[SOLVED] PERL script has strange behavour

smeezekitty · 04-19-2010, 02:48 AM

Here is my code:

Code:

$_ = (<>);
my @fields = split(" ");
print ($fields[3], $fields[2], $fields[1]);

run with:

Code:

echo 3 2 1 | perl -w rvrs.pl

result:

Code:

expected result:

Code:

1 2 3

Thanks...

PMP · 04-19-2010, 02:53 AM

Perl Array default Start with 0

Code:

$_ = (<>);
my @fields = split(" ");
print ($fields[2], $fields[1], $fields[0]);

You can also have a look at perl function reverse

smeezekitty · 04-19-2010, 02:54 AM

Ok thank you and, nice response time.