#!/usr/bin/perl -w open ( DOTS, "dots.svg");my $a = "0";my $b = "1";my $line = "first";while ($line = ) {s/bb5566/aa4400/;if ($line =~ /path[0-9]/) {sub {s/bb5566/aa4400/}; print $b,$a;}$a = $line;$b = $.;}В этом скрипте в 7 строке и в 8 есть реплейс. ни тот ни другой не работают. Естественно из консоли седом или perl -i -pe... все работает. в 7 строке не нужен по логике "s" просто я уже наверняка чтобы он хоть чтото заменил - не меняет. пишет warning'и:...Use of uninitialized value $_ in substitution (s///) at script.pl line 7, line 93....Что неправда, если я знаю английский.Кто нибудь знает как в теле программы на перле правильно осуществляется replace ?
| 
Линейный вид
