Форум разработчиков электроники ELECTRONIX.ru

Полная версия этой страницы: Програмка на PERL

-=Vitaly=-

Aug 26 2008, 07:46

Здравствуйте! Пишу програмку на 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 на следующей строке? Где я ошибнулся.
Заранее спасибо!

andrew_b

Aug 26 2008, 08:03

Цитата(-=Vitaly=- @ Aug 26 2008, 11:46)

Почему DIR0 на следующей строке?

Ну раз вы получаете $_ из файла, то там есть конец строки. Используйте chomp().

Код

while (<IX>)
{
chomp;
print new_rules "ALL $_ DIR0";
}

-=Vitaly=-

Aug 26 2008, 11:36

Огромное спасибо, сработало!

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.