nefunguje zamena

[Honza Pazdziora]

> > Potiz je v tom, ze znak | se v reg. vyrazech pro varianty, tj. s/x|z/Q/g
> > zajisti, ze se kazdy vyskyt x NEBO z nahradi Q. 
> > Takze doporucuji but misto "|" pouzit "\|", coz zrusi spec. vyznam znaku |, nebo
> > pouzit jiny znak.

Tohle ale samozrejme v tomto pripade neni relevatni, ve druhe casti
substituce je svislitko naprosto normalni znak.

> Hmm, to jsem si neuvedomil, ale kdyz jsem zkusil pouzit \| tak ten 
> enter tam zustal stejne:(.
> 
> ten kod vypada takhle:
> 
> $_=$vstup{"saywhat"};
> s/\n/\|/gm;
> print OUTFILE $_,"|~|\n";

Predpokladam, ze v $vstup{"saywhat"} je neco s entery. V tom pripade
uz me napada jenom: nesnazite se to udelat na nejakem obskurnim
systemu, ktery pri vstupu a vystupu data modifikuje? Jakoze v tom
$vstup{"saywhat"} ve skutecnosti "neco\r\nnecojineho\r\n" (tedy CR/LF)
a Vy po nahrazeni dostanete "neco\r|necojineho\r|" a pri tisku se to
jevi, jakoby tam zustal ten Enter i to svislitko?

Jinak, pokud by Vam nedal ocekavany vysledek ani ten muj skript

$_ = "ahoj\nbeta\n";
s/\n/|/g;
print "$_\n";
__END__

a mate verzi 5.004_04, tak pouzijte skript perlbug ze sve instalace
a poslete bug report, protoze to proste fungovat musi.

Doufam, ze to pomuze.

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
                   I can take or leave it if I please
------------------------------------------------------------------------