Comment lire un fichier binaire en Perl

Je vais avoir un problème avec l'écriture d'un script Perl pour lire un fichier binaire.

Mon code est le suivant laquelle le $file sont des fichiers au format binaire. J'ai essayé de chercher dans le web et de les appliquer dans mon code, essayé de l'imprimer, mais il semble que cela ne fonctionne pas bien.

Actuellement, il n'imprime que le '&&&&&&&&&&&" et ""ppppppppppp", mais ce que je veux vraiment c'est qu'elle peut imprimer chacune des $line, afin que je puisse faire quelque chose d'autre que le post-traitement plus tard. Aussi, je ne suis pas tout à fait sûr de ce que l' $data est que je vois c'est la partie du code à partir de l'exemple dans l'article, en indiquant suppose être un scalaire. J'ai besoin de quelqu'un qui peut cerner le point de m'où l'erreur ne va pas dans mon code. Ci-dessous est ce que j'ai fait.

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;
        }
    }
}

J'ai modifié mon code pour que cela se passe comme ci-dessous. Maintenant, je peux lire les $données. Merci J-16 SDiZ pour préciser que. Je suis en train de pousser les infos que j'ai obtenu à partir du fichier binaire dans un tableau appelé "tableau", thinkking de filtrer les données à partir du tableau de chaîne de caractères selon le match "p04" mais échouent. Quelqu'un peut-il point où est l'erreur?

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;
    }
}

Encore une fois, j'ai modifié mon code comme le suivant, mais ça ne fonctionne toujours pas car il ne sont pas en mesure de filtrer les "p04" correctement en vérifiant sur le fichier "log". Il n'grep l'ensemble du dossier, y compris les binaires du genre "@^@^@^@^G^D^@^@^@^^@p04bbhi06^@^^@^@^@^@^@^@^@^@hh^R^@^@^@^^@^@^@p04lohhj09^@^@^@^^@@" . Ce que je suis aspecting est qu'il ne grep quoi que ce soit avec p04 seulement comme grepping p04bbhi06 et p04lohhj09. Voici comment mon code va:-

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;
}