Article View: pl.comp.lang.perl
Article #52526Re: [PERL] analiza warunku if
From: Karol Malinowski
Date: Tue, 26 Feb 2013 13:39
Date: Tue, 26 Feb 2013 13:39
48 lines
2747 bytes
2747 bytes
W dniu wtorek, 26 lutego 2013 10:46:27 UTC+1 użytkownik Stachu 'Dozzie' K. napisał:
> On 2013-02-26, Karol Malinowski
>
> > 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:
>
>
>
> Warunek? Znaczy nie rozumiesz, kiedy się to wykona? Czy jedynie
>
> unpack()?
>
>
>
> > 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));
>
> [...]
>
> > 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?
>
>
>
> A czytałeś dokumentację do pack()/unpack()?
>
>
>
> --
>
> Secunia non olet.
>
> Stanislaw Klekot
Nie mogę osiągnąć poniższego celu.
1. Znając wartości zmiennych od $VAR1 do $VAR15 nie potrafię znaleźć rzeczowych wartości w pliku binarnym. Korzystam z hexeditor i próbując odszukać $VAR3==13 Jednak edytor twierdzi ze nie ma takowej wartości w całym pliku :( co jest oczywiście nieprawdą.
Z dokumentacją oczywiście się zapoznałem ale nie ma tam rozwiązania mojego problemu.
Technical Details
Message-ID:
<e591de88-cca6-4deb-9714-7f96c4ae40ef@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!goblin1!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!jn4no8302831pbb.1!news-out.google.com!ov8ni17067pbb.1!nntp.google.com!su1no8802074pbb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mailReferences:
<67344604-5bb5-4c97-8e55-c8f113c512ce@googlegroups.com> <slrnkip13j.1ta.dozzie@jarowit.net>Show Full Headers
Complete Article Headers
X-Received: by 10.66.88.200 with SMTP id bi8mr200417pab.13.1361885993539; Tue, 26 Feb 2013 05:39:53 -0800 (PST) X-Received: by 10.50.152.232 with SMTP id vb8mr1507563igb.16.1361885993497; Tue, 26 Feb 2013 05:39:53 -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!goblin1!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!jn4no8302831pbb.1!news-out.google.com!ov8ni17067pbb.1!nntp.google.com!su1no8802074pbb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.lang.perl Date: Tue, 26 Feb 2013 05:39:53 -0800 (PST) In-Reply-To: <slrnkip13j.1ta.dozzie@jarowit.net> 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 References: <67344604-5bb5-4c97-8e55-c8f113c512ce@googlegroups.com> <slrnkip13j.1ta.dozzie@jarowit.net> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <e591de88-cca6-4deb-9714-7f96c4ae40ef@googlegroups.com> Subject: Re: [PERL] analiza warunku if From: Karol Malinowski <malinkalive@gmail.com> Injection-Date: Tue, 26 Feb 2013 13:39:53 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit