🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.perl
3 messages
3 total messages Started by Karol Malinowski Tue, 26 Feb 2013 01:32
[PERL] analiza warunku if
#51421
Author: Karol Malinowski
Date: Tue, 26 Feb 2013 01:32
32 lines
1060 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?

Re: [PERL] analiza warunku if
#51423
Author: Karol Malinowski
Date: Tue, 26 Feb 2013 05:39
60 lines
1537 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.
Re: [PERL] analiza warunku if
#51422
Author: "Stachu 'Dozzie'
Date: Tue, 26 Feb 2013 09:46
21 lines
861 bytes
On 2013-02-26, Karol Malinowski <malinkalive@gmail.com> wrote:
> 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads