Как в скритпе на перл обработать файл передаваемый скрипту в ком-й строке?

[Shkurik]

что-то вроде script.pl filename (в винд)
т.е. как передать имя файла скрипту?

Извините, я не знаю....


Спасибо!

[RaZEr]

$argc

[Shkurik]

to Razer

$argc - ето как?

script.pl filename


listing script.pl:
open(file, filename);
while <file>
{....}

Извините за надоедливость...
Спасибо!

[RaZEr]

Все аргументы в массиве @argv ($argc нет, это меня на си занесло). Имя файла, как несложно догадаться, будет в первом элементе этого массива.

[rontommy]

Shkurik

$filename = shift @ARGV;
open(FILE, "$filename");
. . .

RaZEr
уточнение - ARGV большими буквами, тут вам не DOS

[Shkurik]

to all
т.е. если зделать такой скрипт script.pl

$filename = shift @ARGV;
printf($filename);

и потом запустить его так

script.pl file

в окне должно напечататься имя файла - file?
- у меня не работает......

????????

[Ghost]

В скрипт параметры передаются следующим образом: script.pl?var1=value1&var2=value2 Для расшифровки этой строки вставь в скрипт строки:

# Get data from memory --------------------------------------------------------
if ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'}); }
else {
  $bufer=$ENV{'QUERY_STRING'}; }    

# Decode data -----------------------------------------------------------------
@pairs = split(/&/, $bufer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $FORM{$name} = $value; }

Потом находи значение параметра по его имени:

my $par1 = $FORM{var1};

Теперь у тебя есть имя файла. Открываешь его и записываешь содержимое в массив:

open (FILE, "$par1");
my @indata = <FILE>;
close (FILE);

После чего можешь обрабатывать массив. Если файл бинарный, то для считывания его содержимого необходимо использовать такой код:

my $fsize = -s "$par1";
open (FILE, "$par1");
binmode (FILE);
sysread (FILE, $indata, $fsize);
close (FILE);

[RaZEr]

Я бы конечно сказал "Ghost, старик, - мы тут шелл обсуждаем", если бы у меня небыло опасений ... хмм ...

[Ghost]

RaZEr
Прошу прощения, если сморозил что не то, но по посту автора темы не понял, что ему нужен именно "шелл".

[RaZEr]

Странно другое - почему не работает вариант:

$filename = shift @ARGV;
printf($filename);

[rontommy]

Первоначальное сообщение от RaZEr
Странно другое - почему не работает вариант:

$filename = shift @ARGV;
printf($filename);

Так там написано "printf", а надо "print", не так ли ?

[RaZEr]

Так там написано "printf", а надо "print", не так ли ?

По идее да. Я просто забыл что printf в перле отличается от printf в других языках.

[Ghost]

RaZEr

Странно другое - почему не работает вариант

Ничего странного. Просто винда не передает параметры в скрипт. Нужно отредактировать описание типа файла pl следующим образом - см. аттач.

[rontommy]

Ghost:
Ничего странного. Просто винда не передает параметры в скрипт. Нужно отредактировать описание типа файла pl следующим образом

Не знаю как у тебя, у меня на PC всегда работало без проблем, надо только сделать одно из двух :
1. Прописать Perl.ехе в переменной PATH, инсталляция это делает вроде автоматом, запускать все скрипты так :

perl.exe script.pl param1 param2 ...

2. Если по каким-либо причинам этого нет, запускать все скрипты так :

<C:\Path_to_install_Perl>\perl.exe script.pl param1 param2 ...

А вопрос был про PERL on Windows ?

[Ghost]

rontommy
Если сделать то, что описал я, то можно будет запускать скрипты так:

script.pl param1 param2 ...

[rontommy]

Ghost
Кому как удобно, в твоем варианте больше 10 параметров не передашь, у меня все скрипты запускаются из контекстного меню, а не из DOSовского окна. Для шелла есть UNIX !

[Shkurik]

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


немного спустя:

опосля того как прописал как в картинке - все работает! век живи - век учись. Премного благодарен!!!!!
Всем!!!

тока дальше появляется вопрос (читаю документаху - на английском, может из-за етого трудности, ну и не программер я, это попытки решить маленькие локальные задачи) ... -а впрочем для начала нада маленько подчитать.

ЗЫ если это для Вас актуально - я проголосоваль!
для Rontommy - printf($filename) и print($filename) работают одинаково (в этом случае), поскольку не определено форматирование вывода.... кажется так?
Спасибо!

[Ghost]

rontommy

в твоем варианте больше 10 параметров не передашь

Правильно. Но есть способ передачи любого количества параметров. Искал я его не долго, просто потребовалось это только сегодня, поэтому и верулся к этой теме только сейчас. Может кому понадобится: нужно прописать не

perl "%1" "%2" "%3" "%4" "%5"

(см. рисунок из предыдущего поста), а

perl "%0" %*

.