Reverse Order?

[Mark Weisman]

I read a text file into HTML for viewing through a webpage, fairly
straight forward.

Open (INFILE, "<filename.txt") || die "Error opening
filename.txt.$!,stopped";
@array = <INFILE>;
Close(INFILE);
Foreach my $rec (@array) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print "<i>$a - $b</i><br>\n";
};

This code simply reads the text file, and populates it to the screen in
the line order from the text file. I need to reverse the order from the
text file to the screen. So that the last entry in the text file appears
at the top of the HTML page? Can anyone help me out? I'm hoping that I
can just do this in the display code, and that I don't have to rewrite
the file writing sequence.

Sincerely in Christ,
Mark

[Dan Muey]

> try
>
> open (INFILE, "<filename.txt") || die "Error opening
> filename.txt.$!,stopped"; @array = <INFILE>; 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.

> print "<i>$a - $b</i><br>\n";
> };
>
>
> -----Original Message-----
> From: Mark Weisman [mailto:mark@outlander.us]
> Sent: Tuesday, September 02, 2003 8:53 AM
> To: [email]beginners@perl.org[/email]
> Subject: Reverse Order?
>
>
> I read a text file into HTML for viewing through a webpage,
> fairly straight forward.
>
> Open (INFILE, "<filename.txt") || die "Error opening
> filename.txt.$!,stopped"; @array = <INFILE>; Close(INFILE);
> Foreach my $rec (@array) {
> chomp($rec);
> ($a,$b) = split(/\|/,$rec);
> print "<i>$a - $b</i><br>\n";
> };
>
> This code simply reads the text file, and populates it to the
> screen in the line order from the text file. I need to
> reverse the order from the text file to the screen. So that
> the last entry in the text file appears at the top of the
> HTML page? Can anyone help me out? I'm hoping that I can just
> do this in the display code, and that I don't have to rewrite
> the file writing sequence.
>
> Sincerely in Christ,
> Mark
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
>
>

[Mark Weisman]

Worked like a charm, big time thanks.

Sincerely in Christ,
Mark-Nathaniel Weisman
President / Owner
Outland Domain Group Consulting
Anchorage / Washington DC / Bellevue
[email]mark@outlander.us[/email]


-----Original Message-----
From: [email]Marcos.Rebelo@eurocopter.com[/email] [mailto:Marcos.Rebelo@eurocopter.com]

Sent: Monday, September 01, 2003 10:58 PM
To: Mark Weisman; [email]beginners@perl.org[/email]
Subject: RE: Reverse Order?


try

open (INFILE, "<filename.txt") || die "Error opening
filename.txt.$!,stopped"; @array = <INFILE>; close(INFILE); foreach my
$rec (reverse(@array)) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print "<i>$a - $b</i><br>\n";
};


-----Original Message-----
From: Mark Weisman [mailto:mark@outlander.us]
Sent: Tuesday, September 02, 2003 8:53 AM
To: [email]beginners@perl.org[/email]
Subject: Reverse Order?


I read a text file into HTML for viewing through a webpage, fairly
straight forward.

Open (INFILE, "<filename.txt") || die "Error opening
filename.txt.$!,stopped"; @array = <INFILE>; Close(INFILE); Foreach my
$rec (@array) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print "<i>$a - $b</i><br>\n";
};

This code simply reads the text file, and populates it to the screen in
the line order from the text file. I need to reverse the order from the
text file to the screen. So that the last entry in the text file appears
at the top of the HTML page? Can anyone help me out? I'm hoping that I
can just do this in the display code, and that I don't have to rewrite
the file writing sequence.

Sincerely in Christ,
Mark