Как получить ввод с консоли с помощью постфикса <команда> | perl [дубликат] ⇐ Linux

[Anonymous]

Я пишу скрипт декодирования. Соглашение об использовании этого сценария: | perl test.plx
test.plx

Код: Выделить всё

use strict;
use warnings;

printf(">>>>select generation: ac03/ac04/ac04_1\n");
chop(my $generation = );
printf(">>>>generation: %s\n", $generation);
if (($generation eq "ac03") || ($generation eq "ac04") || ($generation eq "ac04_1")) {
printf(">>>>start decoding\n");
} else {
printf(">>>> wrong generation\n");
}

Когда я выполняю этот сценарий, например: echo "vienn" | perl test.plx, STDIN является результатом команды echo "vienn". Я не могу ввести поколение ac03 или ac04.
Ожидаемый результат:

Код: Выделить всё

echo "vienn" | perl test.plx
>>>>select generation: ac03/ac04/ac04_1
>>>>generation: ac03
vienn>>>>start decoding

Фактический результат:

Код: Выделить всё

echo "vienn" | perl test.plx
>>>>select generation: ac03/ac04/ac04_1
>>>>generation: vienn
>>>> wrong generation

Мне нужна ваша помощь. Спасибо вам большое.

Подробнее здесь: https://stackoverflow.com/questions/785 ... erl-script