|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 15 Apr 2002 17:35:07
To : "Fedor Krovopuskoff"
Subject : Re: perlre: переносимость re между Unix
--------------------------------------------------------------------------------
Здравствуй, Fedor Krovopuskoff.
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>> винде.
FK> Solaris Sparc:
FK> # od -x test.dat
FK> 0000000 7177 6572 7479 7569 6f70 0d0a 4441 5441
FK> 0000020 3a20 3132 2d30 342d 3032 0d0a 8480 9280
FK> 0000040 3a20 3132 2d30 342d 3032 0d0a 6173 6466
FK> 0000060 6768 6a6b 6c0d 0a00
FK> 0000067
FK> Red Hat 7.1
FK> # od -x test.dat
FK> 0000000 7771 7265 7974 6975 706f 0a0d 4144 4154
FK> 0000020 203a 3231 302d 2d34 3230 0a0d 8084 8092
FK> 0000040 203a 3231 302d 2d34 3230 0a0d 7361 6664
FK> 0000060 6867 6b6a 0d6c 000a
FK> 0000067
Мнда... Файл нормальный. Бредие. Hе вижу ошибок. И у меня тоже не работает. И
при переводе в koi8-r и прописывании букв явно и перенабивке регекса с нуля
все равно не работает. Люди, объясните, кто дурак.
==== 8< [!perl -V] ====
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
Platform:
osname=linux, osvers=2.4.13, archname=i386-linux
uname='linux duende 2.4.13 #1 wed oct 31 19:18:07 est 2001 i686 unknown '
config_args='-Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i386-linux
-Dprefix=/usr -Dprivlib=/usr/share/perl/5.6.1 -Darchlib=/usr/lib/perl/5.6.1
-Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5
-Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.6.1
-Dsitearch=/usr/local/lib/perl/5.6.1 -Dman1dir=/usr/share/man/man1
-Dman3dir=/usr/share/man/man3 -Dman1ext=1 -Dman3ext=3perl
-Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Duseshrplib
-Dlibperl=libperl.so.5.6.1 -Dd_dosuid -des'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='cc', ccflags ='-DDEBIAN -fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-DDEBIAN -fno-strict-aliasing -I/usr/local/include'
ccversion='', gccversion='2.95.4 (Debian prerelease)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lgdbm -ldb -ldl -lm -lc -lcrypt
perllibs=-ldl -lm -lc -lcrypt
libc=/lib/libc-2.2.4.so, so=so, useshrplib=true, libperl=libperl.so.5.6.1
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under linux
Compiled at Jan 11 2002 04:09:18
@INC:
/usr/local/lib/perl/5.6.1
/usr/local/share/perl/5.6.1
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.6.1
/usr/share/perl/5.6.1
/usr/local/lib/site_perl
.
==== >8 [!perl -V] ====
FK> Обратный порядок байт в слове, ну и что?
FK> У меня же все равно "ДАТА" в файле, а не "АДАТ"...
Так у меня это тоже "ДАТА". Hо не 8084 8092, а e1e4 e1f4...
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
