Исходное сообщение
"Помогите написать скриптик!" Отправлено vlad1965, 28-Июн-05 09:54
>>Всем привет! >>помогите написать скриптик... >>Есть один большой текстовый файл. >>вида Вот попробуй. #!/usr/bin/perl # $i=0; open(F1,@ARGV[0]) || die ("Can't open file)!\n"); while ($str=<F1>) {   chomp ($str);   if ($str eq @ARGV[1])     {       close(F2);       $i+=1;       $s=$str.$i;       open(F2,">$s");       print "$s","\n";   }   print F2 "$str","\n"; }; close(F1); ./prg.pl file.name HEADER_WORD

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>>Всем привет! >>>помогите написать скриптик... >>>Есть один большой текстовый файл. >>>вида > Вот попробуй. > #!/usr/bin/perl > # > $i=0; > open(F1,@ARGV[0]) || die ("Can't open file)!\n"); > while ($str=<F1>) > { > chomp ($str); > if ($str eq @ARGV[1]) > { > close(F2); > $i+=1; > $s=$str.$i; > open(F2,">$s"); > print "$s","\n"; > } > print F2 "$str","\n"; > }; > close(F1); > ./prg.pl file.name HEADER_WORD
	Введите код, изображенный на картинке: