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
I thought about that and I understand how that works, however the piece that I
am missing and don't understand is how to access each element of the array,
reverse the data and put the comma in. I know how to access the elements, it
is the manipulating and putting back into the array for furthe
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