Doppelte Zeichenketten über Hash entdecken - #140242 (Allgemeines zu Perl)

MatthiasW

2010-08-02 16:10

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Das sieht mir sehr konfus aus... vielleicht solltest du mal ein Perl-Tutorial durchlesen, oder dir ein Buch besorgen.

Ansonsten würde ich das so machen:

Code: (dl )

perl -nE 'END{say"$_ => $n{$_}"for keys%n}chomp;$n{$_}++' input.txt >output.txt

MfG

edit: Hash %l (wie lines) durch %n (wie number) ersetzt, damit sich $n{$_} wie "number of this line" liest.
Last edited: 2010-08-02 17:52:16 +0200 (CEST)

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'