try this:
#!/usr/bin/perl -w
use strict;
print join("\n",sort map { join(', ',reverse split); } <DATA>);
__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 PROTECTED]...
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, and reading it to <STDIN>,
modifying each line, sort and then print.
Here is the Input:
Grant Hansen
Dave Thomas
Roger Starbauch
Here is the intended output:
Hansen, Grant
Starbauch, Roger
Thomas, Dave
Here is my code:
while(<STDIN>) {
chomp(@lines = split);
@lines1 = $lines[1] . ", " . $lines[0];
@lines2 = sort (@lines1);
print "@lines2 \n";
}
My code is not sorting correctly and I know why (I sort after each line of
input), I just don't know how to fix it.
Any help is appreciated.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
