ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Gleb Smirnoff                        2:5020/400     04 Nov 2003  14:21:20
 To : All
 Subject : gethostbyaddr() ???
 -------------------------------------------------------------------------------- 
 

 Вот такая конструкция работает:
 
 while(my $arr=$sth->fetchrow_arrayref()) {
    my $host = gethostbyaddr(inet_aton($arr->[2]), AF_INET);
    printf("%s\t%s\t%s\n", $host, $arr->[0], $arr->[1]);
 }
 
 В $arr->[0] и ->[1] числа от 1000 и выше. Соответственно печатается:
 
 hostname  324123  23412341234
 
 А вот такая конструкция 
 
 while(my $arr=$sth->fetchrow_arrayref()) {
    printf("%s\t%s\t%s\n", gethostbyaddr(inet_aton($arr->[2]), AF_INET),
 $arr->[0], $arr->[1]);
 }
 
 печатает:
 
 hostname  2   2
 ...
 Как это объяснить?
 
 -- 
 Totus tuus, Glebius.
 GLEBIUS-RIPN GLEB-RIPE
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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