Цитата

art=`perl -e ';$ARGV[0] =~ s/\[\[\[\[(\w*)\]\]\]\] \[\[\[\[(\w*)\]\]\]\]/$1/; print $ARGV[0]' $*` charge=`perl -e ';$ARGV[0] =~ s/\[\[\[\[(\w*)\]\]\]\] \[\[\[\[(\w*)\]\]\]\]/$2/; print $ARGV[0]' $*`

Так, тут единичку....Работает, но со скобками. Скобки ща буду отдельно удалять, заменяя шаблон [ и ] на ...пустой символ?
Как он выглядит? Пробел врят ли подойдёт, хотя попробую.

CrazyDiamond - не нужно ничего отдельно удалять, напиши нормальное регулярное выражени.

Код

s/\[\[\[\[(\w*)\]\]\]\] \[\[\[\[(\w*)\]\]\]\]/$1/;

Вот это выражение не работатает, рабочий пример смотри выше.
Приведи полный пример всех трёх параметров, отдельно на каждой строке.

Это сообщение отредактировал(а) korob2001 - 24.11.2005, 12:41

Цитата

Приведи полный пример всех трёх параметров, отдельно на каждой строке.

Я уже приводил выше:

Цитата

Если параметры команды - qwe123 qwe 123 q w e123 qwe123 - параметр1 qwe 123 - параметр2 q w e123 - параметр3

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

Это сообщение отредактировал(а) CrazyDiamond - 24.11.2005, 12:51

Код

#!/usr/bin/perl -w use strict; my @result = (); # Я так понимаю, ты передаёшь все параметры в виде строки my $prm = "[[[[qwe123]]]] [[[[qwe 123]]]] [[[[q w e123]]]]"; $prm =~ s/\[+(.*?)\]+\s*?/push(@result,$1)/eg; # Начиная отсюда, массив @result содержит все параметры. print join("\n", @result);

Только я не пойму: Зачем запихивать все параметры в одну строку, что бы потом их отпарсивать? Не проще ли было бы передать их в виде списка? После чего массив @ARGV содержал бы все параметры как отдельные элементы.

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

Цитата

Только я не пойму: Зачем запихивать все параметры в одну строку, что бы потом их отпарсивать? Не прощели было бы передать их в виде списка? После чего массив @ARGV содержал бы все параметры как отдельные элементы.

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

Цитата

7:# Начиная отсюда, массив @result содержит все параметры.

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

Чёрт с ним, сдаюсь.

А как ты запускаешь Shell из терминала? - это один способ. Второй заключается в сокетном соединении.
Вообще в Shell есть такое понятие как массив и список?

Цитата

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

Ну вот тебе отдельные переменные.

Код

$result[0]; # Параметр 1 $result[1]; # Параметр 2 $result[2]; # Параметр 3

Это сообщение отредактировал(а) korob2001 - 24.11.2005, 13:48

Как должна выглядеть строчка

Цитата

my $prm = "[[[[qwe123]]]] [[[[qwe 123]]]] [[[[q w e123]]]]";

?

Код

my $prm = "$*";

и

Код

my $prm = "@ARGV";

Не работают....кавычки пробовал разные, всё одно. В переменной te пусто.

Код

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

Цитата

Вообще в Shell есть такое понятие как массив и список?

А вот не знаю...

Это сообщение отредактировал(а) CrazyDiamond - 24.11.2005, 14:08

Послушай, давай напишем всё это на Perl, потому как не имеет смысла писать этого на Shell, если ты не знаешь есть ли в Shell массивы или списки. На одних переменных ты далеко не выедешь. Программа будет работать куда надёжнее, без лишних процессов, вобщем без гемороя.

Всё работает, осталось понять как в
my $prm = "[[[[qwe123]]]] [[[[qwe 123]]]] [[[[q w e123]]]]";
вставить все параметры скрипта, явно не указывая их.
$* и @ARGV с любыми сочетаниями кавычек не работают=\

Код

my $prm = join(" ", @ARGV);

Но это не есть хорошее решение, соединять все параметры в строку, затем парсить её, для того, что бы их разделить.

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

Я хоть чуть чуть понимаю
Я не использую эту строку.

Код

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

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

Ну так подставь переменные вместо параметров. А вообще откуда они берутся, я имею ввиду параметры?

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

Цитата

Ну так подставь переменные вметото параметров.

Блин, ну перл же не знает, что хранится в этих переменных, они пустые! Всё это - ради того, что бы их заполнить,а ты говоришь - подставь их и всё!

Код

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

Ни один из приведённых выше вариантов не работает, т.к. для переменные te art и charge ещё пустые.

Цитата

А вообще откуда они берутся, я имею ввиду параметры?

Первые строки первого поста:

Цитата

Есть некая команда printzebra.pl В процессе своего выполнения она запускает файл get.szmhdat с параметрами X Y Z.

Т.е. скрипт запускается основной программой вместе с параметрами.

Это сообщение отредактировал(а) CrazyDiamond - 24.11.2005, 15:24

Давай пдойдем к задаче логически У тебя несколько параметров, разделенных пробелами, каждый из которых может содержать пробелыы. Если так, то отделить каждый параметр практически невозможно, поскольку невозможно опредлить формальное правило для идентификации параметров. Вот если ты можешь передать параметры с другим разделителем, который заведомо не может встретиться в параметре (запятая, циркумфлекс, табуляция), тогда можно легко написать скрипт, который примет параметры и разложит их по переменным.

Цитата

Вот если ты можешь передать параметры с другим разделителем, который заведомо не может встретиться в параметре (запятая, циркумфлекс, табуляция), тогда можно легко написать скрипт, который примет параметры и разложит их по переменным.

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

Код

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

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

Цитата

Блин, ну перл же не знает, что хранится в этих переменных, они пустые! Всё это - ради того, что бы их заполнить,а ты говоришь - подставь их и всё!

А Shell не интерполирует переменные? Если нет тогда нужно формировать системную команду в виде строки, а затем эту переменную вставлять в обратные кавычки.