Архив форумов ЦИТФорума

[OlegB]

Народ! Уже пару дней мучаюсь с заменой.. есть исходный текст след.. вида

[x2d]

если есть перл, то можно сделать таким скриптом:
#!/usr/local/bin/perl
open(FILE, "file")||die("Can't open file: $!\n");
@arr = <FILE>;
close(FILE);
foreach(@arr){ # плохо знаю перл
$s = $s.$_;
}
$s =~ s/(call T_AddToMandatory\(.*?ew\)[\t ]*?\n)([\t ]*wait)/\1\tcall StepResult\(pName,"1",ew\)\n\2/mg;
print $s;

потом chmod +x script.pl (script.pl - этот скрипт); потом ./script.pl > file.new;

[Uri]

Для sed: