ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serguei Miridonov                    2:5020/400     06 Sep 2000  10:51:26
 To : All
 Subject : HTTP::Date
 -------------------------------------------------------------------------------- 
 

 Джентлмены, не объясните, случайно, где копать:
 
 имеется скрипт:
 #!/usr/bin/perl
 
 require 'stat.pl';
 use POSIX qw(strftime);
 use IO::Socket;
 use HTTP::Date;
 
 $r = gmtime;
 print "========= ", $r, " =========\n";
 
 $time1 = time();
 print "time1: $time1\n";
 
 @timestr2 = gmtime($time1);
 print "gmtime: @timestr2\n";
 
 $strtime0 = strftime "%a, %d %b %Y %H:%M:%S GMT", @timestr2;
 print "strtime0: $strtime0\n";
 
 $time2 = str2time($strtime0);
 print "time2: $time2\n";
 $strtime2 = strftime "%a, %d %b %Y %H:%M:%S GMT", gmtime($time2);
 print "strtime2: $strtime2\n";
 
 open(OUT, ">TTfile");
 print OUT "test\n";
 close(OUT);
 
 print "\n";
 
 @local_file_stat = stat("TTfile");
 $local_file_mtime = $local_file_stat[$ST_MTIME];
 print "time1: $local_file_mtime\n";
 
 @timestr2 = gmtime($local_file_mtime);
 print "gmtime: @timestr2\n";
 
 $strtime0 = strftime "%a, %d %b %Y %H:%M:%S GMT", @timestr2;
 print "strtime0: $strtime0\n";
 
 $time2 = str2time($strtime0);
 print "time2: $time2\n";
 $strtime2 = strftime "%a, %d %b %Y %H:%M:%S GMT", gmtime($time2);
 print "strtime2: $strtime2\n";
 
 А результат получается такой:
 ========= Wed Sep  6 06:41:17 2000 =========
 time1: 968222477
 gmtime: 17 41 6 6 8 100 3 249 0
 strtime0: Wed, 06 Sep 2000 07:41:17 GMT
 time2: 968226077
 strtime2: Wed, 06 Sep 2000 08:41:17 GMT
 
 time1: 968222477
 gmtime: 17 41 6 6 8 100 3 249 0
 strtime0: Wed, 06 Sep 2000 07:41:17 GMT
 time2: 968226077
 strtime2: Wed, 06 Sep 2000 08:41:17 GMT
 
 Если внимательно ;) посмотреть, то везде разное время
 получается... Самое смешное, что если перед запуском сделать
 
 export TZ=GMT
 
 то результат "более правильный" получается:
 ========= Wed Sep  6 06:41:18 2000 =========
 time1: 968222478
 gmtime: 18 41 6 6 8 100 3 249 0
 strtime0: Wed, 06 Sep 2000 06:41:18 GMT
 time2: 968222478
 strtime2: Wed, 06 Sep 2000 06:41:18 GMT
 
 time1: 968222478
 gmtime: 18 41 6 6 8 100 3 249 0
 strtime0: Wed, 06 Sep 2000 06:41:18 GMT
 time2: 968222478
 strtime2: Wed, 06 Sep 2000 06:41:18 GMT
 
 Да, живем мы в PST8PDT.
 
 И еще, если интересно:
 
 uname -a; ldd `which perl`;perl -v
 Linux quantum 2.2.9 #2 SMP Fri Jun 4 10:43:27 PDT 1999 i686 unknown
         libnsl.so.1 => /lib/libnsl.so.1 (0x4001c000)
         libdl.so.2 => /lib/libdl.so.2 (0x40033000)
         libm.so.6 => /lib/libm.so.6 (0x40036000)
         libc.so.6 => /lib/libc.so.6 (0x40052000)
         libcrypt.so.1 => /lib/libcrypt.so.1 (0x40145000)
         /lib/ld-linux.so.2 => /lib/ld-linux.so.2 (0x40000000)
 
 This is perl, version 5.005_03 built for i386-linux
 
 Какие идеи будут?
 Заранее спасибо.
 
 --
 Serguei Miridonov                CICESE, Research Center,
 CICESE, Optics Dept.             Ensenada B.C., Mexico
 PO Box 434944                    E-mail: mirsev@cicese.mx
 San Diego, CA 92143-4944         FAX: +52 (6) 1750553
 U.S.A.
 --- ifmail v.2.15dev5
  * Origin: CICESE Research Center, Ensenada, B.C., Mexico (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор