Forum Debian Users Gang

karol · 2013-02-25 12:42:55

Witam,
poniżej przedstawiam warunek if z aplikacji która analizuje zawartość pliku binarnego. Udało mi się przeanalizować większość programu jednak poniższe linie sprawiają mi kłopot:

Kod:

    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?

Jacekalex · 2013-02-25 12:54:07

Czy ten program w perlu ma jakąś nazwę?

Time (s)	Query
0.00013	SET CHARSET latin2
0.00007	SET NAMES latin2
0.00105	SELECT u., g., o.logged FROM punbb_users AS u INNER JOIN punbb_groups AS g ON u.group_id=g.g_id LEFT JOIN punbb_online AS o ON o.ident='3.143.218.115' WHERE u.id=1
0.00067	REPLACE INTO punbb_online (user_id, ident, logged) VALUES(1, '3.143.218.115', 1732409720)
0.00053	SELECT * FROM punbb_online WHERE logged<1732409420
0.00085	DELETE FROM punbb_online WHERE ident='3.141.7.165'
0.00076	DELETE FROM punbb_online WHERE ident='3.144.31.64'
0.00069	SELECT topic_id FROM punbb_posts WHERE id=225628
0.00084	SELECT id FROM punbb_posts WHERE topic_id=23035 ORDER BY posted
0.00080	SELECT t.subject, t.closed, t.num_replies, t.sticky, f.id AS forum_id, f.forum_name, f.moderators, fp.post_replies, 0 FROM punbb_topics AS t INNER JOIN punbb_forums AS f ON f.id=t.forum_id LEFT JOIN punbb_forum_perms AS fp ON (fp.forum_id=f.id AND fp.group_id=3) WHERE (fp.read_forum IS NULL OR fp.read_forum=1) AND t.id=23035 AND t.moved_to IS NULL
0.00012	SELECT search_for, replace_with FROM punbb_censoring
0.00086	SELECT u.email, u.title, u.url, u.location, u.use_avatar, u.signature, u.email_setting, u.num_posts, u.registered, u.admin_note, p.id, p.poster AS username, p.poster_id, p.poster_ip, p.poster_email, p.message, p.hide_smilies, p.posted, p.edited, p.edited_by, g.g_id, g.g_user_title, o.user_id AS is_online FROM punbb_posts AS p INNER JOIN punbb_users AS u ON u.id=p.poster_id INNER JOIN punbb_groups AS g ON g.g_id=u.group_id LEFT JOIN punbb_online AS o ON (o.user_id=u.id AND o.user_id!=1 AND o.idle=0) WHERE p.topic_id=23035 ORDER BY p.id LIMIT 0,25
0.00077	UPDATE punbb_topics SET num_views=num_views+1 WHERE id=23035
Total query time: 0.00814 s

Forum Debian Users Gang

Ogłoszenie

#1 2013-02-25 12:42:55

karol - Użytkownik

[PERL] analiza warunku if

Kod:

#2 2013-02-25 12:54:07

Jacekalex - Podobno człowiek...;)

Re: [PERL] analiza warunku if

Stopka forum

Informacje debugowania