|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 25 May 2004 18:56:38
To : All
Subject : объясните тупому, почему diff1.txt и diff2.txt различаются??
--------------------------------------------------------------------------------
#!/usr/bin/perl -w
$count="\x00\x00\x00\x00\x00\x00\x01\x01\x01\x02\x02\x02";
open F, ">diff1.txt";
print F $count;
close F;
print length $count,"\n";
$count='';
foreach my $i (qw{0 0 1 2}){
open F, ">",\$_ or die "Can't open F: $!";
printf F "%.2x", $i;
close F;
my $tt1="\x".$_;
$tt1 x= 3;
$count.=$tt1;
}
open F, ">diff2.txt";
print F $count;
close F;
print length $count,"\n";
Пишу в эти файлы одно и тоже... а результат разный:
[vilfred@mobile100 img]$ ls -la
итого 792
drwxrwxr-x 3 vilfred vilfred 4096 Май 31 10:18 .
drwxr-xr-x 5 vilfred vilfred 4096 Май 31 02:33 ..
-rw-rw-r-- 1 vilfred vilfred 12 Май 31 10:19 diff1.txt
-rw-rw-r-- 1 vilfred vilfred 48 Май 31 10:19 diff2.txt
Причем бинарники diff1.txt и diff2.txt - различаются(!!!!)...
А так хочется, чтобы второй diff2.txt был в точности идентичным
diff1.txt
Может я чего не понял в сабже?
Спасибо за ответ!
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
