У меня проблема с написанием сценария Perl для чтения двоичного файла.
Мой код следующий: $file - это файлы в двоичном формате.Я пытался искать в Интернете и применять в своем коде, пытался распечатать его, но кажется, что он не работает хорошо.
В настоящее время он печатает только '&&&&&&&&&&& "и" "ppppppppppp", ночто я действительно хочу, так это то, что он может распечатать каждый из $line, чтобы позже я мог выполнить некоторую другую постобработку.Кроме того, я не совсем уверен, что такое $data, так как я вижу, что оно является частью кода из примера в статье, утверждая, что это скаляр.Мне нужен кто-то, кто может указать мне, где ошибка идет не так в моем коде.Ниже я сделал то, что сделал.
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-16 SDiZ за указание на это.Я пытаюсь перенести информацию, полученную из двоичного файла, в массив с именем «@array», пытаясь получить данные из массива для поиска строки, которая соответствует «p04», но не получается.Может кто-нибудь указать, где находится ошибка?
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;
}
}
Опять же, я изменил свой код следующим образом, но он по-прежнему не работает, так как не может корректно отобразить "p04", проверив"журнальный файл.Это действительно grep весь файл, включая двоичный файл, как это "@ ^ @ ^ @ ^ @ ^ G ^ D ^ @ ^ @ ^ @ ^^ @ p04bbhi06 ^ @ ^^ @ ^ @ ^ @ ^ @ ^ @ ^ @ ^ @ ^@ hh ^ R ^ @ ^ @ ^ @ ^^ @ ^ @ ^ @ p04lohhj09 ^ @ ^ @ ^ @ ^^ @@ ".То, что я аспектирую, это то, что он делает grep что-нибудь только с p04, например, grepping p04bbhi06 и p04lohhj09.Вот как работает мой код: -
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;
}