Napisałem program, który po wpisaniu przez użytkownika nieokreślonej liczby liczb wypisze je w odwrotnej kolejności. Np:
Input:
0 1 2
1 2 3 4 100
-5 6 -5 -4000
Output:
2 1 0
100 4 3 2 1
-4000 -5 6 -5

Oto kod:
#!/usr/bin/perl

use warnings;

my @liczby;

@liczby = <STDIN>;

@reverse = reverse(@liczby);

print "@reverse\n";

exit;

Jednak program "nie czyta" entera i gdy user wciśnie enter dalej myśli, że user wpisuje liczby do tablicy.
---------------------------------------
I jeszcze nie wiem, jak zrobić, żeby program, który sprawdza czy ciąg jest palindromem czytał nie tylko cyfry, ale i litery i znaki.
Oto kod:
#!/usr/bin/perl

use warnings;

my $liczby;

while($liczby = <STDIN>)
{
$reverse = reverse($liczby);

if($reverse==$liczby)
{
print "Tak\n";
}
else
{
print "Nie\n";
}
}
exit;