Первый урок бесплатно :)
>while(true)В принципе нормально, но хватило бы 1 вместо true и нет явного условия выхода из цикла, прерывание программы по ctrl-c это дурной тон
>$file="c:/perl_prog/in" ;
Использование глобальной переменной. Многократное инициирование одним и тем же значением, должно быть вынесено за пределы цикла.
>open (ID,"$file")|| redo;
Вы проверяете на возможность открытия, а не на существование, правильно ли это зависит от ТЗ. Использование redo вместо next вызывает неправильное восприятие смысла проверки, что снижает читабельность
> while ($str=<ID>){
> $nomer=$str
> }
>print "Номер=",$nomer;
Опять глобальные переменные причем одна лишняя. Также не понятен смысл всей конструкции, неужели в ТЗ было сказано вывести последнюю строку файла? А что будет если файл окажется пустым вы подумали?
>redo;
Опять redo причем абсолютно лишнее, ведь после нее идет и так завершение итерации.
Итого только три строки из 11 не вызывают нареканий. Чуть не забыл, у вас плывет стиль оформления, что тоже не добавляет коду читабельности.
Неужели вам не стыдно такое показывать? Также добавлю что код написан без flock и скорее всего вы всегда пишете без него, как следствие ваши программы это мины замедленного действия. А вообще весь этот код пишется в одну строку и подобные по сложности однострочники могут писаться админами по несколько десятков за день, причем никто даже не подумает делится такой элементарщиной.
P.S. Все мы начинали с нуля, лет пятнадцать назад я тоже мог бы написать подобное. Не стыдно чего-то не уметь, но вот публично демонстрировать невежество, да еще и предлагать его как образец мягко говоря неумно. Чтобы вы подумали про человека, который первый раз в своей жизни забил гвоздь, причем коряво, и теперь спрашивает у окружающих не нужен ли кому-то его бесценный опыт?
Вариант для распечатки
Программирование под UNIX (Public)
on 24-Дек-08, 23:53 
