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