|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 25 May 2004 20:22:40
To : vilfred
Subject : Re: объясните тупому, почему diff1.txt и diff2.txt различаются??
--------------------------------------------------------------------------------
vilfred -> Serge Chervjakov @ Tue, 25 May 2004 15:57:18 +0000 (UTC):
v> #!/usr/bin/perl -w
v> $count="\x00\x00\x00\x00\x00\x00\x01\x01\x01\x02\x02\x02";
v> #файлы только для примера, нужна переменная $count
v> open F, ">diff1.txt";
v> print F $count;
v> close F;
v> print $count,"\n";
v> $count='';
v> foreach my $i (qw{0 0 1 2}){
v> my $tt1;
v> $tt1 ="\x".sprintf '%.2x', $i;
v> $tt1 x= 3;
v> $count.=$tt1;
v> }
v> print $count,"\n";
"\x00" - это один байт со значением 0. А "\x".sprintf '%.2x', $i - это
три байта "x" и "00". Разницу между строковым значением и его записью в
программе понимаем?
v> # как сделать так, чтобы переменная $count
v> # была такой-же, как и в предыдущем случае?
perldoc -f pack. В данном случае $tt1 = pack('C', $i).
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: объясните тупому, почему diff1.txt и diff2.txt различаются??