Article View: pl.comp.lang.perl
Article #52524[PERL] analiza warunku if
From: Karol Malinowski
Date: Tue, 26 Feb 2013 09:32
Date: Tue, 26 Feb 2013 09:32
25 lines
2192 bytes
2192 bytes
Witam,
poniżej przedstawiam warunek if z aplikacji która analizuje zawartość pliku binarnego. Udało mi się przeanalizować większość skryptu jednak poniży warunek sprawia mi kłopot:
if ($plik and ($sector == 2 or $sector == 3) and $j == 0 and substr($block,0,1) eq "\x10") {
my (undef,$ti,$ty,$tm,$td,$th,$tt,$vy,$vm,$vd,$vh,$vt,$vl,$vb,$vs)=unpack('A8 A8 A7 A4 A5 A5 A6 A7 A4 A5 A5 A6 A14 A6 A14 A10 A*',unpack('B*',$block));
print Dumper($tt,$ti,$ty,$tm,$td,$th,$tt,$vy,$vm,$vd,$vh,$vt,$vl,$vb,$vs);
wynik:
$VAR1 = '000011';
$VAR2 = '00000001';
$VAR3 = '0001101';
$VAR4 = '0000';
$VAR5 = '00000';
$VAR6 = '00000';
$VAR7 = '000011';
$VAR8 = '0001101';
$VAR9 = '0010';
$VAR10 = '10101';
$VAR11 = '01111';
$VAR12 = '110100';
$VAR13 = '00000000010111';
$VAR14 = '0000000110';
$VAR15 = '0000000000000000000000000000000000';
Zastanawiam się w jaki sposób dane są sortowane i które wartości binarne (pozycja w pliku) są wyświetlane w poszczególnych zmiennych?
Technical Details
Message-ID:
<67344604-5bb5-4c97-8e55-c8f113c512ce@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!us.feeder.erje.net!usenet.blueworldhosting.com!news.glorb.com!jn4no7591028pbb.1!news-out.google.com!ov8ni17399pbb.1!nntp.google.com!jn4no7591026pbb.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mailShow Full Headers
Complete Article Headers
X-Received: by 10.66.84.194 with SMTP id b2mr123976paz.44.1361871161576; Tue, 26 Feb 2013 01:32:41 -0800 (PST) X-Received: by 10.50.150.166 with SMTP id uj6mr1481135igb.1.1361871161349; Tue, 26 Feb 2013 01:32:41 -0800 (PST) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!us.feeder.erje.net!usenet.blueworldhosting.com!news.glorb.com!jn4no7591028pbb.1!news-out.google.com!ov8ni17399pbb.1!nntp.google.com!jn4no7591026pbb.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.lang.perl Date: Tue, 26 Feb 2013 01:32:40 -0800 (PST) Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=89.72.64.223; posting-account=4v2JfwoAAACa227nQ8N0PKiahNfHNSMi NNTP-Posting-Host: 89.72.64.223 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <67344604-5bb5-4c97-8e55-c8f113c512ce@googlegroups.com> Subject: [PERL] analiza warunku if From: Karol Malinowski <malinkalive@gmail.com> Injection-Date: Tue, 26 Feb 2013 09:32:41 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit