|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Fedor Krovopuskoff 2:5020/400 15 Apr 2002 17:00:17
To : Artem Chuprina
Subject : Re: perlre: переносимость re между Unix
--------------------------------------------------------------------------------
AC> From: Artem Chuprina <ran@ice.ru>
FK>> Есть файл с данными (test.dat):
FK>> ------------------
FK>> qwertyuiop
FK>> DATA: 12-04-02
FK>> ДАТА: 12-04-02
FK>> asdfghjkl
FK>> ------------------
FK>> ... и моя программа:
FK>> ------------------
FK>> #!/bin/perl -w
FK>> open(MYFILE, './test.dat');
FK>> undef $/;
FK>> while(<MYFILE>){
FK>> if($_=~/^.*?DATA:\ +.*$/s){
FK>> print "DATA Ok!\n";
FK>> }
FK>> if($_=~/^.*?\204\200\222\200:\ +.*$/s){
FK>> print "RUS DATA Ok!\n";
FK>> }
FK>> }
FK>> ------------------
AC> А покажи вывод od -x от той строки. HА ЭТОЙ МАШИHЕ, а не на своей рабочей
AC> винде.
Solaris Sparc:
# od -x test.dat
0000000 7177 6572 7479 7569 6f70 0d0a 4441 5441
0000020 3a20 3132 2d30 342d 3032 0d0a 8480 9280
0000040 3a20 3132 2d30 342d 3032 0d0a 6173 6466
0000060 6768 6a6b 6c0d 0a00
0000067
Red Hat 7.1
# od -x test.dat
0000000 7771 7265 7974 6975 706f 0a0d 4144 4154
0000020 203a 3231 302d 2d34 3230 0a0d 8084 8092
0000040 203a 3231 302d 2d34 3230 0a0d 7361 6664
0000060 6867 6b6a 0d6c 000a
0000067
Обратный порядок байт в слове, ну и что?
У меня же все равно "ДАТА" в файле, а не "АДАТ"...
Федор.
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
