|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 25 May 2004 19:57:18
To : Serge Chervjakov
Subject : Re: объясните тупому, почему diff1.txt и diff2.txt различаются??
--------------------------------------------------------------------------------
SC> perldoc -f binmode.
Угу, спасибо, но, похоже, мне это не помогло. Вод другой вариант кода с
такой-же функциональностью:
#!/usr/bin/perl -w
$count="\x00\x00\x00\x00\x00\x00\x01\x01\x01\x02\x02\x02";
#файлы только для примера, нужна переменная $count
open F, ">diff1.txt";
print F $count;
close F;
print $count,"\n";
$count='';
foreach my $i (qw{0 0 1 2}){
my $tt1;
$tt1 ="\x".sprintf '%.2x', $i;
$tt1 x= 3;
$count.=$tt1;
}
print $count,"\n";
# как сделать так, чтобы переменная $count
# была такой-же, как и в предыдущем случае?
open F, ">diff2.txt";
print F $count;
close F;
print length $count,"\n";
смысл в том, что мне надо функции передать переменную
$count в 16-тиричном виде, которую я хочу собрать из массива массивов,
но интерпретация(интерполяция?) $count в двух случаях различны.
А запись в файлы сделал специально, чтобы продемонстрировать,
что содержимое переменных разное. Как их сделать
одинаковым - не знаю.
И еще, для первого случая моя функция принимает переменную $count и
отображает верно, и для второго тоже принимает, но отображает криво.
Дня два наверное долбался, пока понял, в чем фишка..
Спасибо за ответ!
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
