Windowsovsky $/ problem (asi)
Milan Sorm
xsorm na informatics.muni.cz
Úterý Listopad 17 01:24:39 MET 1998
Martin Caslavsky Mon, Nov 16, 1998 at 11:55:02PM +0100 pise:
> Zdravim!
>
> Mam tento skript
> #!/usr/bin/perl
>
> open OLD, "old.gif" or die "nejde otevrit old.gif: $!\n";
> open NEW, "> new.gif" or die "nejde otevrit new.gif: $!\n";
> undef $/;
> $t = <OLD>;
> print NEW $t;
>
> close OLD;
> close NEW;
>
> a tento problem: podle mych predpokladu by se mel do promenne nacist obsah
> souboru a pak ulozit do souboru noveho - teda vpodstate zkopirovat. Jenomze
> muj Perl od ActiveStatu to neudela - nenacte soubor cely (vzdy jen par
> prvnich desitek bajtu a u ruznych souboru je to ruzne cislo a u jednoho
> souboru vzdycky to same). Tenhleten problem je jenom u binarnich souboru,
> textovy jedou v pohode.
>
> Martin Caslavsky
>
ja bych videl chybu v tom, ze jde o binarni soubor. nema totiz nekde napr.
znak konce souboru atp. na zacatku ?
ja bych na to sel budto tak, ze bych dal binmodo STDIN;
nebo to oteviral pres sysopen a cetl pres sysread.
m.
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm na informatics.muni.cz
http://www.fi.muni.cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Další informace o konferenci Perl