Community  »  Perl: Allgemeines Forum

TXT datei aufsplitten.	Seitenanfang
Hallo ihr lieben, nachdem ich hier durch alle möglichen Forenbeiträge gejumpt bin und nichts gefunden habe melde ich mich mit einem eigenen Inserat: Ich möchte eine TXT datei aufsplitten. Und zwar diese: http://standards.ieee.org/regauth/oui/oui.txt Wie ihr sehen könnt ist die wie ne tabelle aufgebaut. Ich bräuchte jetzt zwei Arrays eines das die MAC Adressen in Hexadezimal enthält und eines das die Daten dazu enthält, also alles was rechts steht. Wie split ich das am dümmsten auf? oder gehts auch völlig anders? ich hol mir die datei übrigens über $varialble=get('http://standards.ieee.org/regauth/oui/oui.txt') Wäre für hilfe sehr dankbar. Gruß Max Datum: 08.04.2009-13:03
re: TXT datei aufsplitten.	Seitenanfang
my %infos; my @parts = split /\n\n/, $variable; for my $part ( @parts ){ my @subparts = split /\s{2,}/, $part; my $mac = $subparts[0]; my $info = $subparts[2] . " " . $subparts[5]; $infos{$mac} = $info; } use Data::Dumper; # nur für Testausgabe print Dumper \%infos; (ungetestet) Datum: 08.04.2009-16:14