Reverse standard input

[perler wannabe]

Hi,

Why my script doesn't reverse my input?

#!/usr/bin/perl -w
@lines=<STDIN>;
@backwardlines=reverse @lines;
print @backwardlines;

This script print the same thing as my keyboard input.

So if I input:
beginning perl

the output will be:
beginning perl

I am expecting the following output though:
perl beginning

Am I missing something?

Thanks

 

[Mart van de Wege]

Hi,

Why my script doesn't reverse my input?

#!/usr/bin/perl -w
@lines=<STDIN>;
@backwardlines=reverse @lines;
print @backwardlines;

This script print the same thing as my keyboard input.

So if I input:
beginning perl

the output will be:
beginning perl

I am expecting the following output though:
perl beginning

Am I missing something?

Yup.

The <> operator is called readline for a reason.

You're trying to reverse the order between a single line and itself.

Mart

 

[Vivien MOREAU]

But, from the camel book:

Yes, one line of input per list element:
__EXAMPLE__
hello world
42
__END__

is ('hello world', '42').

 

[Vivien MOREAU]

What happened to the newlines?

I ate them. Sorry, you're right.