Wie zu Lesen Binärdatei in Perl

Ich habe ein Problem mit dem schreiben ein Perl-Skript zum Lesen einer binären Datei.

Mein code wie den folgenden, wobei die $file sind Dateien im Binär-format. Ich habe versucht, die Suche durch das web und gelten in meinem code versucht, drucken Sie es aus, aber es scheint, es funktioniert nicht gut.

Derzeit druckt nur das '&&&&&&&&&&&" und ""ppppppppppp", aber was ich wirklich will ist, es kann drucken Sie jede der $line, so dass ich tun kann, einige andere post-processing-später. Auch bin ich mir nicht ganz sicher, was die $data ist wie ich das sehe, ist es Teil der code aus dem Beispiel im Artikel, die besagt angenommen, um ein Skalar. Ich brauche jemanden, der kann pin zeigen Sie mir, wo der Fehler geht falsch in meinem code. Unten ist das, was ich getan habe.

my $tmp = "$basedir/$key";
opendir (TEMP1, "$tmp");
my @dirs = readdir(TEMP1);
closedir(TEMP1);

foreach my $dirs (@dirs) {
    next if ($dirs eq "." || $dirs eq "..");
    print "---->$dirs\n";
    my $d = "$basedir/$key/$dirs";
    if (-d "$d") {
        opendir (TEMP2, $d) || die $!;
        my @files = readdir (TEMP2); # This should read binary files
        closedir (TEMP2);

        #my $buffer = "";
        #opendir (FILE, $d) || die $!;
        #binmode (FILE);
        #my @files =  readdir (FILE, $buffer, 169108570);
        #closedir (FILE);

        foreach my $file (@files) {
            next if ($file eq "." || $file eq "..");
            my $f = "$d/$file";
            print "==>$file\n";
            open FILE, $file || die $!;
            binmode FILE;
            foreach ($line = read (FILE, $data, 169108570)) {
                print "&&&&&&&&&&&$line\n";
                print "ppppppppppp$data\n";
            }
            close FILE;
        }
    }
}

Habe ich verändert mein code, damit geht es so wie unten. Jetzt kann ich Lesen $Daten. Dank J-16 SDiZ für den Hinweis dass. Ich bin versucht, die info hab ich aus dem Binär-Datei in ein array mit dem Namen "@array", thinkking zu grep die Daten aus dem array für string-welches match "p04", können aber nicht. Kann jemand Punkt, wo ist der Fehler???

my $tmp = "$basedir/$key";
opendir (TEMP1, "$tmp");
my @dirs = readdir (TEMP1);
closedir (TEMP1);

foreach my $dirs (@dirs) {
    next if ($dirs eq "." || $dirs eq "..");
    print "---->$dirs\n";
    my $d = "$basedir/$key/$dirs";
    if (-d "$d") {
        opendir (TEMP2, $d) || die $!;
        my @files = readdir (TEMP2); #This should read binary files
        closedir (TEMP2);

        foreach my $file (@files) {
            next if ($file eq "." || $file eq "..");
            my $f = "$d/$file";
            print "==>$file\n";
            open FILE, $file || die $!;
            binmode FILE;
            foreach ($line = read (FILE, $data, 169108570)) {
                print "&&&&&&&&&&&$line\n";
                print "ppppppppppp$data\n";
                push @array, $data;
            }
            close FILE;
        }
    }
}

foreach $item (@array) {
    #print "==>$item<==\n"; # It prints out content of binary file without the ==> and <== if I uncomment this.. weird!
    if ($item =~ /p04(.*)/) {
        print "=>$item<===============\n"; # It prints "=><===============" according to the number of binary file I have.  This is wrong that I aspect it to print the content of each binary file instead :(
        next if ($item !~ /^w+/);
        open (LOG, ">log") or die $!;
        #print LOG $item;
        close LOG;
    }
}

Wieder, ich habe meinen code wie folgt, aber es funktioniert immer noch nicht, wie es nicht in der Lage zu grep "p04" richtig, indem Sie auf die "log" - Datei. Es hat grep die ganze Datei mit binären wie dieser "@^@^@^@^G^D^@^@^@^^@p04bbhi06^@^^@^@^@^@^@^@^@^@hh^R^@^@^@^^@^@^@p04lohhj09^@^@^@^^@@" . Was ich aspecting wird es tun grep die nichts mit p04 nur wie grepping p04bbhi06 und p04lohhj09. Hier ist, wie mein code geht:-

foreach my $file (@files) {
    next if ($file eq "." || $file eq "..");
    my $f = "$d/$file";
    print "==>$file\n";
    open FILE, $f || die $!;
    binmode FILE;
    my @lines = <FILE>;
    close FILE;
    foreach $cell (@lines) {
        if ($cell =~ /b12/) {
            push @array, $cell;
        }
    }
}

#my @matches = grep /p04/, @lines;
#foreach $item (@matches) {
foreach $item (@array) {
    #print "-->$item<--";
    open (LOG, ">log") or die $!;
    print LOG $item;
    close LOG;
}

InformationsquelleAutor Grace | 2012-01-19