Здравствуйте! Пишу програмку на PERLe и не могу понять почему результат отличается от того что мне надо.
Програмка:
Код
open IX, "./prefixes.txt";
open new_rules, ">new_rules";
while (<IX>)
{
print new_rules "ALL $_ DIR0";
}
close IX;
close new_rules;
Получается:
Код
ALL 62.16.0.0/19
DIR0ALL 62.64.64.0/18
DIR0ALL 62.72.160.0/19
DIR0ALL 62.80.160.0/19
а надо:
Код
ALL 62.16.0.0/19 DIR0
ALL 62.64.64.0/18 DIR0
ALL 62.72.160.0/19 DIR0
Почему DIR0 на следующей строке? Где я ошибнулся.
Заранее спасибо!
Програмка на PERL, админы подсобите пожалуйста
Aug 26 2008, 07:46
