Я пытаюсь создать что-то в Perl, что в основном похоже на команду Unix tee
. Я пытаюсь прочитать каждую строку STDIN
, запустить подстановку на ней и распечатать ее. (И, в конце концов, также распечатайте его в файле.) Это работает, если я использую консольный ввод, но если я попытаюсь передать вход в команду, он ничего не сделает. Вот простой пример:
print "about to loop\n";
while(<STDIN>)
{
s/2010/2009/;
print;
}
print "done!\n";
Я пытаюсь передать ему команду dir следующим образом:
C:\perltest>dir | mytee.pl about to loop done!
Почему он не видит входной канал? (Я использую Perl 5.10.0 для WinXP, если это имеет значение.)