Thread link ueber Dateisysemgrenzen (7 answers)
Opened by blackm at 2003-11-01 00:23

Strat
 2003-11-01 12:44
#68510 #68510
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=blackm,31.10.2003, 23:23]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

...
open(SOURCE, $source) or die "Cannot open source
";
open(DEST, ">", $dest) or die "Cannot open destination file
";

while(<SOURCE>) {
    print DEST $_;
}
...
Klappt 1a....[/quote]
klappt nur dann 1a, wenn man es mit Textdateien macht; z.B. unter Windows wuerden dadurch binaere Dateien verstuemmelt... da muesstest du binmode(SOURCE) und binmode(DEST) setzen, und besser read(....) anstelle von <SOURCE> verwenden...

CPAN:File::Copy kuemmert sich um solche Sachen automatisch...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread link ueber Dateisysemgrenzen