>>Попробуй делать тож'самое на перле. >>Синтаксис почти один в один и есть такая штука, как split, с >>которой ты хоть пробелы в плюсики, хоть наоборот можешь вертеть %) >> >> >>Кстати, слышал слух, что в линухах могут вообще shell сотоварищи заменить перлом. >> >>Во как! > >Ты знанешь пробовал, но там другая проблема (а может вовсе и не >проблема) мне надо вызвать скрипт. >прога такая: >open (FILE, "имя_файла"); >@lines=<FILE>; >close (FILE); >$kol=@lines; >for ($i=0;$i<$kol;i++) >{ > #тут вызывается скрипт которому передается результат чтения файла - строка > >} >так вот сколько бы повторов не было, цикл вываливается после первого. не знаю почему может вываливаться, но помоему свот такой код приятней. open(FILE, "< /tmp/file"); foreach my $line (<FILE>) { &some_sub($line); } close(FILE); ну или open(FILE, "< /tmp/file"); my @file = <FILE>; close(FILE); foreach my $line (@file) { &some_sub($line); } где ессесно функция some_sub что то делает со строкой.
|