ich bin fertig leute!!!! Vielen Dank!! ihr hab mir wirklich sehr weitergeholfen!! TOP Forum!!
freu mich grad wie ein Nakter über sein erstes Hemd!! :D
Mein erstes Perl Program!

[quote=miki280,12.12.2005, 11:40]Mein erstes Perl Program![/quote]
und hoffentlich nicht dein letztes

btw: wenn du eine deutsche einfuehrung in perl brauchst: auf meiner HP steht meine unter Vortraege... die verwende ich auch fuer Schulungen

hallo,

kann mir bitte wer diese zeilen erklären?

sub unique {
my %h = ();
return grep { !$h{$_}++ } @_; }

vielen Dank!

im prinzip nimmt die sub eine liste und gibt diese nach entfernen von doppelten einträgen wieder aus.

um den code zu verstehen, solltest du dir mal perldoc -f grep anschauen.

stattdessen vielleicht besser List::MoreUtils verwenden, ist einfacher:

danke für die tipps aber das haut leider nicht ganz hinn so!

vorher: 1111 2222 2222 3333 3333 3333 4444 4444 4444
soll: 1111 2222 3333 4444
ist: 1111 2222 3333 4444 4444

mehrfach einträge am ende der zeile werden 2x ausgegeben! die letzte zeile wird richtig angezeigt!!
wenn ich in der letzten zeile ein "newline" mache, dann wird dieser auch NICHT mehr richtig ausgegeben! d.h das anscheinend immer am zeilenende ein newline ist, bis auf die letzte zeile! ist das möglich?
was kann ich dagegen tun?

Lg miki280

Hi,

versuch mal chomp um das newline in jeder Zeile zu entfernen

danke schön! dat klopt! kaum macht man das richtig, schon gehts, naja perl müßte man können.. ;)

[quote=miki280,25.01.2006, 11:52]danke schön! dat klopt! kaum macht man das richtig, schon gehts, naja perl müßte man können..  ;)[/quote]
Naja, dafuer bist ja hier, oder??