Perl - funkcja reverse

[kokosoko]

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;

[TQM]

$cos = <STDIN>;

wczytuje jedna linie zakonczona enterem

@cos = <STDIN>;

wczytuje linie do konca pliku czyli do wcisniecia Ctrl+D a kazda linie jaka uda sie wczytac umiesci w osobnym elemencie tablicy

Patrzac na to co potrzebujesz to interesuje Cie taka konstrukcja:

chomp ($cos = <STDIN>);  #obcinamy koncowy znak nowej linii
@tablica = split /\s+/, $cos;    # dzielimy na elementy
print reverse @tablica, "\n";     # wynik

do sprawdzania palindromow bedzie kod prawie identyczny ale... split bedzie wzgledem // albo '' (notacja bez znaczenia - wazne ze to ciag pusty), co rozlzy zawartosc skalara na pojedyncze znaki - tablica pojedynczych znakow

if (@tablica == reverse @tablica) { print "PALINDROM!\n" };

[kokosoko]

split bedzie wzgledem // albo '' (notacja bez znaczenia - wazne ze to ciag pusty), co rozlzy zawartosc skalara na pojedyncze znaki - tablica pojedynczych znakow

Jak względem // albo " ? Względem czego?

[TQM]

To oznacza pusty string - napis nie posiadajacy zadnych znakow, wiec perl widzi to tak, ze dziali na to co jest, czyli to co jest miedzy znakami :P
Akurat to czy napiszesz // czy '' czy "" ma male znaczenie - jak kto woli (od razu mowie ze sa tam ukryte triki zalezne od tego co uzywasz).

Ciezko to wytlumaczyc...

#!/usr/bin/perl
use Data::Dumper;
$str = "zajefajny kodzik";
my @arr = split /j/, $str;
print Dumper \@arr;

__END__
zwroci
$VAR1 = [
          'za',
          'efa',
          'ny kodzik'
        ];

teraz zmiana na split //, $str i odpowiedz mamy taka...

$VAR1 = [
          'z',
          'a',
          'j',
          'e',
          'f',
          'a',
          'j',
          'n',
          'y',
          ' ',
          'k',
          'o',
          'd',
          'z',
          'i',
          'k'
        ];

wszystko co w skrypcie perlowym dasz po lini zawierajacej tylko __END__ jest ignorowane...

[kokosoko]

Tyle że wyskakuje błąd:
Argument "kajak" isn't numeric in numeric eq (==) at palin.pl line 14, <STDIN> line 1.

Tak więc program nie działa.
Oto kod:
#!/usr/bin/perl

use warnings;


chomp ($liczba = <STDIN>);
@liczby = split //, $liczba;

$reverse = reverse(@liczby);

print "@liczby\n";
print "$reverse\n";

if(reverse(@liczby)==@liczby)
{
print "t\n";
}
else
{
print "n\n";
}

exit;

[GSG-9]

gdy porownujesz liczby nie uzywaj 'eq' tylko '=='
gdy nie, zamien '==' na 'eq' i bedzie dobrze
mimo tego STDIN mozesz podac wszystko, nie tylko liczbe

[kokosoko]

gdy porownujesz liczby nie uzywaj 'eq' tylko '=='
gdy nie, zamien '==' na 'eq' i bedzie dobrze
mimo tego STDIN mozesz podac wszystko, nie tylko liczbe

Ok, udało się. Dzięki wszystkim! (serio jestem wdzięczny; to nie puste słowa)

A gdybym chciał zrobić, żeby program sprawdzał nie tylko czy dany wyraz jest palindromem, ale też czy zdanie nim jest (musiałby ten program usuwać spacje z inputu). Np. żeby uznawał takie zdanie, jako palindrom:
ala wzorcowo owoc rozwala