, 2003 10:58 PM
To: Mark Weisman; [EMAIL PROTECTED]
Subject: RE: Reverse Order?
try
open (INFILE, "; close(INFILE); foreach my
$rec (reverse(@array)) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print "$a - $b\n";
};
-Original Message-
From: Mark Weisman
> try
>
> open (INFILE, " filename.txt.$!,stopped"; @array = ; close(INFILE);
> foreach my $rec (reverse(@array)) {
> chomp($rec);
> ($a,$b) = split(/\|/,$rec);
Just a litle tip, I think it's not a good idea to use
$a and $b variables since Perl uses those for sort() and whatever.
> -Original Message-
> From: Mark Weisman [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, September 02, 2003 4:53 PM
> To: [EMAIL PROTECTED]
> Subject: Reverse Order?
>
>
> I read a text file into HTML for viewing through a webpage, fairly
> straight forward.
>
> Open (INFILE, " filename.tx
try
open (INFILE, ";
close(INFILE);
foreach my $rec (reverse(@array)) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print "$a - $b\n";
};
-Original Message-
From: Mark Weisman [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 02, 2003 8:53 AM
To: [EMAIL PROTECTED]
S
