Opened by hago at 2018-04-04 16:23
User since
2016-05-29
31 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2016-05-29
31 Artikel
BenutzerIn
Danke für die verständliche Erklärung.
Ich habe inzwischen was gefunden, auf meine Situation angewendet und es klappt perfekt.
Die entscheidende Information von dir war, dass die Kodierung nichts mit ftp zu tun hat. ich dachte, Net::FTP kann das auch.
So sieht es jetzt aus:
Der ganze ftp-Teil kommt erst anschließend.
Ich bin zufrieden damit.
Wenn ich die selbe Datei zum Lesen und Schreiben benützen könnte, fände ich es noch besser.
Ich habe inzwischen was gefunden, auf meine Situation angewendet und es klappt perfekt.
Die entscheidende Information von dir war, dass die Kodierung nichts mit ftp zu tun hat. ich dachte, Net::FTP kann das auch.
So sieht es jetzt aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
use Encode qw/encode decode/;
my $datei = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G1.csv';
my $temp = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G.csv';
open(my $alt,'<:encoding(iso-8859-2)',$datei) or die("Mist 1");
open(my $neu,'>:encoding(UTF-8)',$temp) or die("Mist 2");
while (<$alt>) {
print $neu $_;
}
Ich bin zufrieden damit.
Wenn ich die selbe Datei zum Lesen und Schreiben benützen könnte, fände ich es noch besser.