perl s replase не заменяет

[tremor]

#!/usr/bin/perl -w
open ( DOTS, "dots.svg");
my $a = "0";
my $b = "1";
my $line = "first";
while ($line = <DOTS>) {
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, <DOTS> line 93.
...
Что неправда, если я знаю английский.
Кто нибудь знает как в теле программы на перле правильно осуществляется replace ?

[wl]

Не, это правда. Оператору s/// не сказано, где работать, поэтому он работает на переменной $_. А ей на самом деле ничего не было присвоено.
Надо либо

Код: [Выделить]

$line=~s/bb5566/aa4400/;либо убрать $line вообще:

Код: [Выделить]

while (<DOTS>) {

И в строке if($line=~ ... не совсем понятно, что делается - объявляется безымянная процедура, которая никогда не вызывается.

[tremor]

open ( DOTS, "dots.svg");
my $a = "0";
my $b = "0";
while (<DOTS>) {
if (/path[0-9]/) {s/bb5566/aa4400/; print $b,$a;}
$a = $_;
$b = $.;
}
 
Не заменяет...
Мне уж посоветовали для замены sed -i исп-ть и делать все башем )) Но все таки если вы знаете как делать, то напишите

[wl]

А можно конкретный пример?
Пару строчек из файла dots.svg, которые должны быть обработаны, но не обрабатываются.

[tremor]

66       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
76       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
86       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
96       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"

Это то что выводит скрипт. Номера строк это $.
Должно быть вместо bb5566 - aa4400

[alexander.pronin]

svg - это xml файл, который может состоять из одной строки (чтобы быть поменьше).
Для обработки рекомендуется его слегка разобрать - обработать - и собрать. Для ускорения процесса.
Или пользоваться парсером xml.

[wl]

Во-первых, исходные строки где?
Откройте этот файл в vi и покажите то, что показывает vi.

Во-вторых, у меня все работает.

Код: [Выделить]

#!/usr/bin/perl -w
my $a = "0";
my $b = "0";
$_="path0/bb5566";
if (/path[0-9]/) {s/bb5566/aa4400/; print $b,$a;}
$a = $_;
$b = $.;

print "\n===\n";
print;
print "\na=$a\n";
print "b=$b\n";
результат:

Код: [Выделить]

$ ./replace.pl
00
===
path0/aa4400
a=path0/aa4400
Use of uninitialized value $b in concatenation (.) or string at ./replace.pl line 12.
b=

Ругань на последнее присваивание $b = $. - в перле нет переменной $.

[tremor]

    <path
       sodipodi:type="arc"
       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
       id="path03"
       sodipodi:cx="75.535713"
       sodipodi:cy="58.75"
       sodipodi:rx="29.464285"
       sodipodi:ry="25.535715"
       d="M 105,58.75 A 29.464285,25.535715 0 1 1 46.071428,58.75 A 29.464285,25.535715 0 1 1 105,58.75 z"
       transform="matrix(1.0860606,0,0,1.2531468,-34.179219,61.377625)" />
    <path
       sodipodi:type="arc"
       style="fill:#bb5566;fill-rule:evenodd;stroke:none;stroke-width:1;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
       id="path04"
       sodipodi:cx="75.535713"
       sodipodi:cy="58.75"
       sodipodi:rx="29.464285"
       sodipodi:ry="25.535715"
       d="M 105,58.75 A 29.464285,25.535715 0 1 1 46.071428,58.75 A 29.464285,25.535715 0 1 1 105,58.75 z"
       transform="matrix(1.0860606,0,0,1.2531468,60.463638,61.020482)" />

Это если cat'ом
path и fill точно в разных строках.
Пользователь решил продолжить мысль 23 Декабря 2009, 12:55:28:$. это номер строки. переменная есть и вывод присутствует. сейчас без нее попробую.

[wl]

Все правильно, там же стоит if(/path[0-9]/)
if не отрабатывает, замена не происходит.

[tremor]

Код: [Выделить]

Ругань на последнее присваивание $b = $. - в перле нет переменной $.
[/quote]

12 строка - это уже ваше. у меня присваивание в 8ой
Пользователь решил продолжить мысль 23 Декабря 2009, 12:58:03:

Все правильно, там же стоит if(/path[0-9]/)
if не отрабатывает, замена не происходит.

Точно, а как заменить предыдущую строку тогда, вот я дал то ))

[wl]

Точно, а как заменить предыдущую строку тогда, вот я дал то ))

Запоминать ее.

[tremor]

Ну я ее запоминаю в переменной. а как ее потом изменить? Можно пример, не совсем понимаю. типа так: $a=~s/ddd/fff/;
и он в файле поменяет?

[wl]

Ну я ее запоминаю в переменной. а как ее потом изменить? Можно пример, не совсем понимаю.
типа так: $a=~s/ddd/fff/;

Так. Можно еще в конце флагов добавит, типа gi. В документации все написано.

Код: [Выделить]

$a=~s/ddd/fff/gi;

и он в файле поменяет?

Нет, конечно, только в памяти

[tremor]

А мне надо файл. В памяти то не проблема поменять.
gi не надо мне

[wl]

Так надо туда явно писать

Код: [Выделить]

OUT=open(">file") or die("cannot open");

while(<DOTS>) {
  [цикл чтения и обработки]
  [тра-ля-ля]
  print OUT $a;
}
close(OUT)