17.11.2007, 12:10
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Код:
#!perl
use strict;
use warnings;
open(my $SITES,"sites.txt") ;
while( <$SITES> )
{
chomp;
print "$_ \n";
}
sites.txt
Код:
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
Код:
C:\>s.pl
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
|
|
|