есть файл, в нем:
1    1    serv1
2    1    serv2
3    1    serv3
4    2    serv4
5    2    serv5
6    3    serv6

написал код, и случайно заметил что:

и второй вариант

первый аутпут(все как и хотели):
perl test.pl -f service.txt
:1:1:serv1
:2:1:serv2
:3:1:serv3
:4:2:serv4
:5:2:serv5
:6:3:serv6


второй (ууупс):
perl test.pl -f service.txt
::1:serv1
::1:serv2
::1:serv3
::2:serv4
::2:serv5
::3:serv6


почему от перемены мест принта совершенно неожиданный вывод????


Это сообщение отредактировал(а) dpush - 1.12.2008, 15:33

Вообще-то Ваш код ничего не должен напечатать(за исключением ругани на неоткрытый filehandle FILE при включенных предупреждениях). Но если заменить <FILE> на <>, то все нормально. 

ЗЫ Почему бы не заменить /[ ]+|\t+/ на ' ' или хотя бы на /\s+/
ЗЫЗЫ А опция -f с какой целью?

это часть кода , а не код целиком... весь не интересен, интересен тока это момент.
через -f  я файл передаю...

Ух, сообразил, как такой эффект мог получиться. Дело в неправильных концах строк: каждая строка кончается на "\r\n" (DOS-формат), а исполнение скрипта, видимо, происходит на *nix (ну или файл был открыт в бинарной моде). Дальше, думаю, понятно: после того как напечаталось serv1, происходит возврат каретки ("\r"), и двоеточие печатается на месте 1-го символа.

Бороться с этим просто: вместо Вашего регулярного выражения для split используйте ' ' (пробел в кавычках).

Добавлено через 2 минуты и 34 секунды

dpush, опция -f в перле отнюдь не для передачи файла, не используйте ее, если точно не знаете, что она нужна.

dpush, позволю себе привести немного более краткий, но аналогичный Вашему код:

Вызывать 
perl test.pl service.txt

спаибо! похоже на правду!

а про -f -а почему нет? я использую Getopt.. ключ -f относится не к perl а к test.pl .... (> ./test.pl -f file.txt)

Добавлено через 1 минуту и 49 секунд
ща подумал, а разве chomp не должен отрезать концы строк?

Добавлено через 11 минут и 48 секунд
хм, помогло вот это:

криворуко, да?

всегда думал что chomp достаточно...

Добавлено через 12 минут и 55 секунд
chop - не опечатка, действительно есть такая функция)))

оказывается - проблема решена)

спасибо amg Ваша идея с концами строк в разных осах, и есть правильный ответ!

Это сообщение отредактировал(а) dpush - 1.12.2008, 17:33

вобще для удаления перехода на новою строку еще используют такой вариант
s/[\r\n]+$//;

dpush, С -f все нормально, это я не туда посмотрел по невнимательности. Конечно же, у Вас это опция не перла, а скрипта.

chomp $line;
chop $line;
Это неудачное решение. Если файл будет с правильными концами строк, то результат будет неправильным -- chop удалит последний символ строки. Лучше вместо Вашего регулярного выражения для split используйте ' ' (пробел в кавычках), тогда ни chop, ни chomp не нужет будет (хотя chomp и не помешает). К тому же, у Вашего регулярного выражения для split есть еще один недостаток: если в качества разделителя полей окажется комбинация идужих подряд пробелов и табуляторов, то получится неожиданный результат.  

Другое решение -- вместо chomp используйте вариант tolkien: $line =~ s/[\r\n]+$//;

Да это и не проблема то вовсе. Только на этом форуме вопрос о неправильных концах строк и как с этим бороться вставал раз этак двести. Кстати, то что предлагают по приведенной Вами ссылке (устанавливать значение $/ = "\r\n") -- тоже не самое хорошее, т.к. не универсальное решение. Сегодня у Вас файл с непривильными концами строк (например, передали его по FTP, забыв включить ascii-моду), а завтра -- с правильными, chomp ничего не удаляет и скрипт начинает глючить. Универсальные решения предложены выше.