Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? - #59363 (Allgemeines zu Perl)

duerov

2005-11-02 13:13

User since
2005-10-26
27 Artikel
BenutzerIn
[default_avatar]

Könntest du das bitte kurz erkläutern?
Was machen die q~ in @data?
Und wie ließt man das map{$_->[0]} ?
Hab mal folgendes geschrieben, aber ohne Wirkung und ohne Fehlermeldung:

Code: (dl )

open(DATEI,"datei.txt") || die "Apothekenfile nicht gefunden";
while(<DATEI>) 
{
   open(SERVER1,">>apo_server1.txt") || die "Datei     apo_server1.txt nicht gefunden";
   {
            @unsorted = "$_";
            my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@unsorted;
            print SERVER1 $_ for(@sorted);
            
   }
   close(SERVER1);
}
close(DATEI);