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
Author: Karol Malinowski
Date: Tue, 26 Feb 2013 01:32
Date: Tue, 26 Feb 2013 01:32
32 lines
1060 bytes
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
Author: Karol Malinowski
Date: Tue, 26 Feb 2013 05:39
Date: Tue, 26 Feb 2013 05:39
60 lines
1537 bytes
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
Author: "Stachu 'Dozzie'
Date: Tue, 26 Feb 2013 09:46
Date: Tue, 26 Feb 2013 09:46
21 lines
861 bytes
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