Да, я заключаю все параметры в скобки, т.о. обозначаю начало и конец параметра.

Цитата

Может пора уже код сохранить в отдельный файл? Или так и будем писать всё в командной строке?

Перловый код является небольшим фрагментом шел скрипта. Так что это не совсем командная строка
Я не вижу смысла переходить к написанию всего,включая SQL запрос,на перле. Если у меня проблемы с такой элементарщиной, то куда там писать всё на перле....Или я не вижу какой то очевидной причины перехода от шела на перл?

Цитата

Но я не пойму зачем объединять все параметры в одну строку и потом разбивать эту строку, если можно их передать как список?

Они передаются строкой
$szmhdat=`~/get.szmhdat_new [[[[$te]]]] [[[[$art]]]] [[[[$charge]]]]`
Ты хочешь сказать, что их можно передать, указав вмето параметров имя массива(списка), который будет задан строкой выше?И потом не придётся ничего парсить и ломать голову над тем, как их воспринять и разделить?

Про интерполяцию переменных я тебе ничего не могу сказать, не знаю что это такое. Хотя может быть и знаю, но под более простым названием

Цитата

Перловый код является небольшим фрагментом шел скрипта. Так что это не совсем командная строка Я не вижу смысла переходить к написанию всего,включая SQL запрос,на перле. Если у меня проблемы с такой элементарщиной, то куда там писать всё на перле....Или я не вижу какой то очевидной причины перехода от шела на перл?

Всё верно, но этот код Shell передаёт оболочке, та в свою очередь зупускает отдельнай процесс perl и тот в свою очередь выполняет этот код. Не важно введёшь ты этот кодв терминал или будешь передавать его из Shell. Твой код уже достаточно большой, что бы писать его в отдельном файле.

Цитата

Они передаются строкой $szmhdat=`~/get.szmhdat_new [[[[$te]]]] [[[[$art]]]] [[[[$charge]]]]` Ты хочешь сказать, что их можно передать, указав вмето параметров имя массива(списка), который будет задан строкой выше?И потом не придётся ничего парсить и ломать голову над тем, как их воспринять и разделить?

Всё верно ты делаешь, только скобки убери, примерно будет это выглядеть так:

Код

$szmhdat=`~/get.szmhdat_new '$te' '$art' '$charge'`;

Зачем такое кол во скобок? Почему не по 10 с каждой стороны?

Цитата

Про интерполяцию переменных я тебе ничего не могу сказать, не знаю что это такое. Хотя может быть и знаю, но под более простым названием

Это когда переменная подставляет своё значение, а не имя. Например:

Код

# есть переменная содержащая строку my $a = "Hello"; # Есть ещё одна переменная, тоже содержит строку my $b = "world"; # В следующей строке происходит интерполяция переменных my $c = "$a, $b!\n";

Теперь переменная $c содержит строку "Hello, world!\n", но не "$a, $b!\n";

Код

a="hello" b="world!" c="$a $b" echo $c

Получаю
hello world!
Так что видимо работает. Только ты пример приводил на перле, а я на шеле.

Цитата

Зачем такое кол во скобок? Почему не по 10 с каждой стороны?

Ну не в этом суть

Цитата

Всё верно ты делаешь, только скобки убери, примерно будет это выглядеть так:

Дык если я их уберу, то как их можно будет разделить на первую,вторую, третью...?? Скобки в самих переменных не содержаться.

Цитата

Дык если я их уберу, то как их можно будет разделить на первую,вторую, третью...?? Скобки в самих переменных не содержаться.

Если ты их уберёшь, тогда нам не нужно будет их обрезать следующим шаблоном. Собственно благодаря ему их и нет в, получающей параметры, программе.

Код

s/\[+(.*?)\]+\s*?/push(@result,$1)/eg;

Вот смотри, я твою Perl программу разложил по строкам, теперь давай посмотрим и хорошо подумаем. Что же она делает? И нужна ли она вообще?

Код

my @result = (); my $prm = "$te $art $charge"; $prm =~ s/\[+(.*?)\]+\s*?/push(@result,$1)/eg; print $result[0];

Может вообще не нужно ничего и никуда передавать? Ты сам себя запутываешь, зря ты смешиваешь Shell и Perl.

Это сообщение отредактировал(а) korob2001 - 25.11.2005, 17:30

Повторяю в энный раз.
Программа A запускается с параметрами в виде трёх переменных. Они содержат примерно вот такую фигню:
610000
ARTIKUL S PROBELOM
PARTIA S PROBELOM
Т.е. программа запускается вот так:
$szmhdat=`~/get.szmhdat_new '$te' '$art' '$charge'`;
А фактически:
$szmhdat=`~/get.szmhdat_new 610000 ARTIKUL S PROBELOM PARTIA S PROBELOM

Задача:
Построить в этой программе А SQL запрос, используя переданный номер, артикул и партию.
Проблема: как загнать в переменные, для дальнейшего использования, переданные параметры?

Вариант решения - передать параметры так, что бы как то можно было понять, где кончается первый параметр и начинается второй. Смысл скобок теперь ясен? Разумеется, для построения запроса они не нужны.

Хотелось бы заметить, что не стоит ломать голову, если влом. Я просто думал, что это несколько проще, чем оказалось.

Так, я уже с трудом понимаю что тебе нужно Но все таки попробую помочь. Если не подойдет, просто напиши мне пример входящих данных (твои три параметра) и пример исходящих данных (как должен выгляжеть твой SQL запрос)...

Код

#!/usr/bin/perl use strict; use warnings; my @arr = ($ARGV[0] =~ /\[+([^\[\]]+)\]+/g); print $arr[$ARGV[1]-1];

Это сохраняешь как getarg.pl и ставишь ему 755 (rwxr-xr-x)
Первым параметром скрипт принимает строку аргументов (всю, со скобками) а вторым - номер аргумента который надо вернуть... Далее твой bash:

Код

#!/bin/sh     tr=`getarg.pl $* 1` art=`getarg.pl $* 2` boo=`getarg.pl $* 3` echo $tr echo $art echo $boo

CrazyDiamond

Цитата(CrazyDiamond @ 26.11.2005, 14:22)

610000 ARTIKUL S PROBELOM PARTIA S PROBELOM Т.е. программа запускается вот так: $szmhdat=`~/get.szmhdat_new '$te' '$art' '$charge'`; А фактически: $szmhdat=`~/get.szmhdat_new 610000 ARTIKUL S PROBELOM PARTIA S PROBELOM

Необходимо пробелы, которые встречаются в переменных - экранировать или заменить на какой-нить символ, редко встречающийся в данном контексте. Поэтому вот:

Код

my $te = 610000; (my $art = 'ARTIKUL S PROBELOM') =~ s/ /_/g; # все пробелы заменяем на символ подчеркивания  (my $charge = 'PARTIA S PROBELOM') =~ s/ /_/g; # можно на любой другой, н-р, \0 или | my $szmhdat = `perl get.szmhdat_new $te $art $charge`; # одинарные кавычки не нужны

Программа get.szmhdat_new

Код

for (my $i=0; $i<@ARGV; $i++) {  $ARGV[$i] =~ s/_/ /g; # наш символ заменяем обратно на пробел (если это существенно)  print "$i: $ARGV[$i]\n"; }

И далее можно строить SQL-запрос.



Это сообщение отредактировал(а) sharq - 28.11.2005, 13:02

Не работает, возвращает в три строки первый аргумент.
Кроме того Can't locate warnings.pm. Эту строку убрал из кода. И добавил путь к getarg.pl, иначе не находил файл.

Цитата

Так, я уже с трудом понимаю что тебе нужно

Что конкретно ты не понимаешь? Я уже не знаю что можно добавить, поэтому только повторяюсь, пытаясь вновь обрисовать задачу

Цитата

просто напиши мне пример входящих данных (твои три параметра)

Уже сто раз писал, чистые параметры имеют вид:
610000
ARTIKUL S PROBELOM
PARTIA S PROBELOM
Но передаю я их с ограничителями - скобками.

Цитата

и пример исходящих данных (как должен выгляжеть твой SQL запрос)...

Код

echo "select first 1 szmhdat[7,8]||'.'||szmhdat[5,6]||'.'||szmhdat[1,4] from art_ref, bestand where bestand.ltenr=$te and art_ref.szartnr='$art' and bestand.szcharge='$charge' and bestand.lasl=art_ref.lasl" | /home/informix/bin/dbaccess xlvs

Цитата

Первым параметром скрипт принимает строку аргументов (всю, со скобками) а вторым - номер аргумента который надо вернуть...

А возвращает всегда первый аргумент. $rt

Вы мне вот что скажите...

Код

te=`perl -e " my $arg = '[b][u]$*[/u][/b]'; @result = (); $arg =~ s/\[+(.*?)\]+\s*?/push(@result,$1)/eg;print $result[0]"`

Вот почему перл эту строчку не обрабатывает?? Тут же всё верно...Если вместо $* просто перечислить параметры как они идут, т.е.

Код

te=`perl -e 'my @result = (); my $prm = "[[[[610000]]]] [[[[ARTIKUL S PROBELOM]]]] [[[[PARTIA S PROBEL]]]]"; $prm =~ s/\[+(.*?)\]+\s*?/push(@result,$1)/eg;print $result[1]'`

то всё отлично работает, но подставляя переменную $* - не обрабатывает((

Это сообщение отредактировал(а) sharq - 28.11.2005, 13:25

CrazyDiamond чем тебя не устраивает мой пример, он вполне рабочий!

Я его не видел, когда начал писать ответ.

Цитата

то куда там писать всё на перле....

Я не знаю, как на перле сделать запрос к базе
Сейчас пытаюсь записать твой вариант в виде строки в шеле...

Цитата

Я не знаю, как на перле сделать запрос к базе

А тебе не кажется, что за это время, сколько мы тут пытаемся скрестить Shell с Perl, можно было уже 20 раз прочесть документацию по модулям DBI и DBD::Informix?

Это сообщение отредактировал(а) korob2001 - 28.11.2005, 14:09

Начинать надо с азов...сначала я хочу разобраться в шеле и в простых вставочках перла.
Кроме того, если до на каждой странице кто то что то не понимает, то уж куда тут до результатов Без обид

Вот переписал твой код, sharq, для извлечения второга параметра...

Код

art=`perl -e "$ARGV[2] =~ s/\^/ /g; print '$ARGV[2]'"` echo $art

...на что мне отвечают:
Can't modify scalar ref constructor in substitution at -e line 1, near "s/\^/ /g;"
А так всё выглядит правильно.......

Цитата(CrazyDiamond @ 28.11.2005, 15:49)

Can't modify scalar ref constructor in substitution at -e line 1, near "s/\^/ /g;"

Код

art=`perl -e "(my $art=$ARGV[2]) =~ s/\^/ /g; print '$art'"`

Код

art=`perl -e "(my $art=$ARGV[2]) =~ s/\^/ /g; print '$art'"`

syntax error at -e line 1, near "my ="
Execution of -e aborted due to compilation errors.

Код

art=`perl -e "$art=$ARGV[2]; $art =~ s/\^/ /g; print '$art'"`

syntax error at -e line 1, near "="
Execution of -e aborted due to compilation errors.

Я вокруг подобного предложения уже который день пляшу...собственно, этот вариант наверное самый короткий, вот только как его правильно записать.

По поводу моего кода... Ты говоришь что возвращяет только первый аргумент, а можно узнать в каком виде ты передавал их bash скрипту? В моем примере предполагалось что так:

Код

[[[61000]]][[[ARTIKUL S PROBELOM]]][[[PARTIA S PROBELOM]]]

В этом случае все работает, я проверял несколько раз.
По поводу последней ошибки про которую ты писал:
код perl надо писать в одинарных кавычках.

Код

art=`perl -e '$art=$ARGV[2]; $art =~ s/\^/ /g; print "$art"' qwe asd zxc`

проверь...

Это сообщение отредактировал(а) Kiber_rat - 28.11.2005, 20:20