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

[MikeK]

Ну, в принципе тема отражает суть вопроса.
В файле необходио заменить все символы "\" на "|".
HP-UX B.10.20

[butcher]

#!/usr/bin/perl

open (FILE, "test") or die ("not open");
@list = ;
close (FILE);
open (FILE, ">test1") or die ("not open 2");
select FILE;
foreach (@list){
$_ =~ s/\\/|/g;
print $_;
}
close (FILE);

оптимизироовать не стал, так на вскидку..
и вообще, перл хорошая штука..
_________________
Нет ничего невозможного...

[Dmitry.Karpov http://prof]

Попробуй
sed 's/\\/|/g' <файл

Текст с замененными символами будет выкинут на stdout; его нельзя сразу перенаправлять в тот же файл, а то он затрет исходное содержание. Короче, пробуй и спрашивай подробнее.

[Agp]

sed 's/\\/|/g' file.txt > new.txt

[Борис]

awk "{ gsub(/\\\\/,\"\|\"); print > \"tmptmp1\" } END { close(\"tmptmp1\"); system(\"mv tmptmp1 \" FILENAME)}" имя_файла

[rino]

narod vse proshe

esli v hp-ux est komanda tr, to pishem

tr "\134" "\172" result_fail
i ne nado nikakih perl-sed-awk