perl code um text files unix2dos konvertieren (Allgemeines zu Perl)

cc

2004-06-20 04:16

User since
2004-01-09
55 Artikel
BenutzerIn
[default_avatar]

hallo

brauche perl code oder modul um CSV files unix2dos zu konvertieren.

gruss
cc\n\n

sri

2004-06-20 04:26

User since
2004-01-29
828 Artikel
BenutzerIn

s/\n/\r\n/\n\n

http://mojolicio.us/

format_c

2004-06-20 07:26

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hier nochmal als kleiner Einzeiler

Code: (dl )

perl -i.bak -pe 's/\n/\r\n/g' infile

Gruß Alex

Effizente Linuxshell

steffenw

2004-06-20 16:23

User since
2003-08-15
692 Artikel
BenutzerIn

"\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 $!;

\n\n

$SIG{USER} = sub {love 'Perl' or die};

cc

2004-06-21 01:06

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 )

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;

steffenw

2004-06-21 02:12

User since
2003-08-15
692 Artikel
BenutzerIn

Ich denke mal so:

Code: (dl )

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 (Parameter kann Filename oder Handle sein)
open FILE, '<', $file or die "open $file $!";
binmode FILE, 'encoding(cp850)' or die $!;
$ftp->put (\*FILE) or die "$server: cannot put $file: " . $ftp->message;
close FILE;
$ftp->quit;

\n\n

$SIG{USER} = sub {love 'Perl' or die};

cc

2004-06-21 02:39

User since
2004-01-09
55 Artikel
BenutzerIn
[default_avatar]

herzlichen dank !

bekomme aber folgende Fehlermeldung:
"Must specify remote filename with stream input at script.cgi line 29"

linie 29 ist:

Code: (dl )

$ftp->put (\*FILE) or die "$server: cannot put $file: " . $ftp->message;

BungeeBug

2004-06-21 08:56

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

$ftp->put(local,server);

Wenn local ein Filehandle ist muss in Server der Name der Datei auf dem Server angegeben werden. Ist local ein Filename so wird dieser ( wenn Server NICHT angegeben ist ) auch auf dem Server benutzt.

MfG
BungeeBug

cc

2004-06-21 11:02

User since
2004-01-09
55 Artikel
BenutzerIn
[default_avatar]

sorry, verstehe nicht ganz...

jetzt bekomme ich bei dieser neuen linie:

"aborted due to compilation errors"\n\n

renee

2004-06-21 11:13

User since
2003-08-04
14371 Artikel
ModeratorIn

Das ist aber bestimmt nicht die ganze Fehlermeldung... Poste doch mal alles (Fehlermeldung und vielleicht den relevanten Code)!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/