🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #52526

Re: [PERL] analiza warunku if

#52526
From: Karol Malinowski
Date: Tue, 26 Feb 2013 13:39
48 lines
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-mail
References: <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