try this:
#!/usr/bin/perl -w
use strict;
print join("\n",sort map { join(', ',reverse split); } );
__DATA__
abcd apply
xxx peach
yyy dog
zzz cat
prints:
apply, abcd
cat, zzz
dog, yyy
peach, xxx
david
"Grant Hansen" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTE
print @array;
-Original Message-
From: Grant Hansen [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 20, 2002 6:29 PM
To: Timothy Johnson
Cc: Perl Beginners
Subject: Re: Help on Arrays - Beginner
I thought about that and I understand how that works, however the piece that
I
am missing and
> From: Grant Hansen [mailto:[EMAIL PROTECTED]]
> Sent: Friday, September 20, 2002 6:03 PM
> To: [EMAIL PROTECTED]
> Subject: Help on Arrays - Beginner
>
>
> Hello All,
>
> I am new to Perl and I will admit up front this is for a Perl course.
> However, the course is online
I'll give you a hint. This is perfectly legal:
my @array = ;
Let me know if you still can't figure it out.
-Original Message-
From: Grant Hansen [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 20, 2002 6:03 PM
To: [EMAIL PROTECTED]
Subject: Help on Arrays - Beginner
Hello All,
I am new to Perl and I will admit up front this is for a Perl course.
However, the course is online and thus timely communication from the
instructor is not always possible, so I am hoping someone will steer me in
the right direction.
The assignment has to do with taking a file, a
