entfernen von sonderzeichen u. andere symbole (gelöst) - #175027 (Allgemeines zu Perl)

miwieg

2014-04-25 14:20

User since
2006-07-16
59 Artikel
BenutzerIn
[default_avatar]

Nein, das scheint auch nicht zu funktionieren.
Ich habe mal ein kleinen Sample der Datei in den Anhang gestellt.
Die problematischen Zeilen sind die dritte und die vorletzte Zeile.
Ich habe folgenden Code benutzt (siehe unten). Die Symbole in den genannten Zeilen blieben leider drin.

Code: (dl )

#! /usr/bin/perl -w

use strict;
use Encode qw(decode encode_utf8);

my $infile = "sample.txt";
open(INF,$infile);


while(my $line = <INF>){
    my $data = decode "UTF-8", $line;
    chomp($data);
    $data =~ tr/a-zA-ZÄÖÜäöüß0-9.,//cd;
    print encode_utf8 "L: $data\n";
}
close(INF);

Anhänge

text/plain
25 lines
sample.txt