Исходное сообщение
"построчная считка значений из файла" Отправлено allez, 21-Фев-05 14:32
#!/usr/bin/perl open (IN, "tst.123"); $max_sum=0; $min_sum=0; while (<IN>) {   for ($i=0; $i<6; $i++) {     ~s/= /=/;     ~s/  / /;     ~s/\t/ /;   }   @array=split (' ',$_);   @max=split ('=',$array[2]);   @min=split ('=',$array[3]);   $max_sum+=$max[1];   $min_sum+=$min[1]; } close IN; open (OUT, ">tst.out"); print OUT "Max = $max_sum\tMin = $min_sum\n"; close OUT; P.S.: Пока писал, XMan дал ответ, причем гораздо лучше, чем мой. Внесу единственную поправку: $var=$_; # без этого присваивания - не сработает $var=~ s/\s+//g; ($garbage,$max,$min)=split(/Max\=|Min\=/,$var); или, как вариант: $_=~ s/\s+//g; ($garbage,$max,$min)=split(/Max\=|Min\=/,$_);

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> #!/usr/bin/perl > open (IN, "tst.123"); > $max_sum=0; > $min_sum=0; > while (<IN>) { > for ($i=0; $i<6; $i++) { > ~s/= /=/; > ~s/ / /; > ~s/\t/ /; > } > @array=split (' ',$_); > @max=split ('=',$array[2]); > @min=split ('=',$array[3]); > $max_sum+=$max[1]; > $min_sum+=$min[1]; > } > close IN; > open (OUT, ">tst.out"); > print OUT "Max = $max_sum\tMin = $min_sum\n"; > close OUT; > P.S.: Пока писал, XMan дал ответ, причем гораздо лучше, чем мой. Внесу > единственную поправку: > $var=$_; # без этого присваивания - не сработает > $var=~ s/\s+//g; > ($garbage,$max,$min)=split(/Max\=|Min\=/,$var); > или, как вариант: > $_=~ s/\s+//g; > ($garbage,$max,$min)=split(/Max\=|Min\=/,$_);
	Введите код, изображенный на картинке: