ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     07 Apr 2000  07:15:34
 To : All
 Subject : Re: address convert
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 > > > @ip=split(/\./,$ip);
 > > > $num=$ip[0]*256*256*256 + $ip[1]*168*256*256 + $ip[2]*1*256 +
 
 $ip[3]*1;
 
 > >
 
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
 > >
 > > perldoc -f pack
 >
 > Hе выходит: print(pack(S4, 192,168,1,1));
 
 use Socket;
 print unpack( "L", inet_aton( '192.168.1.1' )), "\n";
 print unpack( "L", pack("C4", 192,168,1,1)), "\n";
 
 Bye.
 --- ifmail v.2.15dev4
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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