Thread perl code um text files unix2dos konvertieren (37 answers)
Opened by cc at 2004-06-20 04:16

cc
 2004-06-21 01:06
#83610 #83610
User since
2004-01-09
55 Artikel
BenutzerIn
[default_avatar]
[quote=steffenw,20.06.2004, 14:23]"\n" ist uneindeutig, also systemabhängig. Besser ist:
Code: (dl )
1
2
s/\x0D//g;
s/\x0A/\x0D\x0A/g;

Und dann hast Du sicher noch das Umlautproblem. cp850 ist die Codepage von DOS.

Wenn Du zum Filehandle schreibst, was das DOS-File wird, füge nach dem Open folgendes ein:
Code: (dl )
binmode FILEHANDLE, 'encoding(cp850)' or die $!;
[/quote]

aber wie kann ich diesen code über mein file ($File) laufen ?
Code: (dl )
1
2
3
4
5
6
7
8
my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
$ftp or die "$server: cannot connect: $@";
$ftp->login ($user,$passwd) or
die "$_: Could not login: " . $ftp->message;
# Put file
$ftp->put ($File) or
die "$server: cannot put $file: " . $ftp->message;
$ftp->quit;

View full thread perl code um text files unix2dos konvertieren