Kleines Problem beim auslesen einer Datei: Stehe gerade auf dem Schlau :( - #74678 (Allgemeines zu Perl)

krusty

2007-02-28 15:21

User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]

Also ich habe das jetzt mal so geschrieben, aber das kann so noch nicht funktionieren, da ich die Werte nicht in dem Array @info speichern kann. Wie kann ich das denn anstellen?

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $file = "/root/Desktop/export_28-02-07.txt";
my @array;

{
        local $/ = "\n#";
        open my $fh, '<',$file or die $!;
        while( my $line = <$fh> ){
                my @info = $line =~ /^suchmuster1 =(\d+)/;
                @info = $line =~ /^suchmuster2 (.+)/;
                @info = $line =~ /^suchmuster3 (Hallo)/i;
                @info = $line =~ /^suchmuster4 (Hello)/i;
                push @array, join(";", @info);
        }
}

foreach my $zeile (@array) {
        print $zeile."\n";
}

Was ich noch gerne wissen würde, wird automatisch der inhalt der Klammer in das Array gespeichert? Bsp:

Code: (dl )

 my @info = $line =~ /^suchmuster1 =(\d+)/;

\n\n