sed-Kommando aus Perl-Skript aufrufen? - #108912 (Allgemeines zu Perl)

Dubu

2008-04-27 20:51

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Vor allem nehme ich an, eine Perl-Lösung wäre offensichtlicher, Speicher schonender und schneller:

Code (perl): (dl )

...
my %textinhalte;
open my $fh, '<', $FILE or die "cannot open $FILE: $!";
while (<$fh>) {
    $textinhalte{$1}++ if m~<text:text>(.*)</text:text>~;
}
close $fh;
print "Anzahl unterschiedlicher Inhalte: ", scalar keys %textinhalte;