in reply to Re: FlatFile Sort Help
in thread FlatFile Sort Help

Thanks for the reminder about the \n and for the reply. Would I be able to do something like this then?

while (<LOOPFILE>) {
 foreach (sort <LOOPFILE>) {
      $linenumber ++; 
      
       @lineItems = split (/\t/);
        #...
          print OUTFILE "<BR><B>$lineItems[0]</b> ($lineItems[1])\n";
        #....
      
 }
}
        require "footer.pl";
        close (LOOPFILE);

[download]
Thank you...and and sincerely appreciate the help and please don't giggle, I'm trying to jog what little memory I have.

Replies are listed 'Best First'.
Re^3: FlatFile Sort Help
by ikegami (Patriarch) on Nov 05, 2008 at 19:20 UTC
    Remove the while. 
    while (<LOOPFILE>) {              # Reads first line
 foreach (sort <LOOPFILE>) {      # Reads the rest of the line.

    [download]

    So you'll end up printing everything but the first line.

[reply]
[d/l]
[select]
Re^3: FlatFile Sort Help
by jethro (Monsignor) on Nov 05, 2008 at 19:20 UTC
    Drop the while loop and you should be fine.
[reply]

In Section Seekers of Perl Wisdom