Community  »  Perl: Allgemeines Forum

Rautenzeichen rausfiltern	Seitenanfang
Hallo ich habe hier eine Liste in der ich alle Namen die mit # anfangen ignorien will in der späteren Ausgabe. Ich habe schon an grep gedacht hab aber kein Plan wie ich damit ein Rautenzeichen ignorieren soll. Datum: 28.04.2009-12:28
re: Rautenzeichen rausfiltern	Seitenanfang
my @list = ('Test', '#Raute', '#nochneraute', 'Hans'); my @ohne_raute = grep{ !/^#/ }@list; print $_,"\n" for @ohne_raute; Datum: 28.04.2009-15:59
re: Rautenzeichen rausfiltern	Seitenanfang
So habe das jetzt hingekriegt rauszufiltern hatte das eigentlich genauso schon vorher gehabt wie in deiner Antwort. Das Problem ist jetzt filtert mein Script nicht mehr die doppelten Einträge raus was er davor gemacht hat :D print "Bitte geben Sie die Datei ein die sie sortieren wollen.\n"; #Eingabe chomp( my $datei = <STDIN> ); open my $dateiname, '<', $datei or die "Die Eingabe ist nicht gueltig. Bitte geben Sie einen richtigen Dateinamen ein\n"; @array = (<$dateiname>); @ohne_raute = grep{ !/^#/ }@array; %hash = map{ $_,1 }@array; foreach $key(sort keys %hash){ print $key, for @ohne_raute; } Datum: 29.04.2009-08:56