Ms-Dos and perl

[Sverre Furberg]

Probably OT but...
The output of the script below isn't
what I expect.
Tested it on a computer
with ActivPerl 5.8.6 on MS Win98 SE.
---
#/usr/bin/perl

use warnings;
use strict;

my @lines;

while (<>) {
push @lines, $_;
}

print reverse @lines[-5 .. -1];
---

When I run the script with:
C:\Temp>d_test.plx
one
two
three
four
five
<CTRL>-z

the output is:

four
three
two
one

without printing 'five' first.

Is this a Ms-Dos issue or
am I doing something wrong?

TIA
Sverre

 

[Brian Wakem]

Probably OT but...
The output of the script below isn't
what I expect.
Tested it on a computer
with ActivPerl 5.8.6 on MS Win98 SE.
---
#/usr/bin/perl

use warnings;
use strict;

my @lines;

while (<>) {
push @lines, $_;
}

print reverse @lines[-5 .. -1];
---

When I run the script with:
C:\Temp>d_test.plx
one
two
three
four
five
<CTRL>-z

the output is:

four
three
two
one

without printing 'five' first.

Is this a Ms-Dos issue or
am I doing something wrong?

Perhaps 'five' is followed by CR but not LF, so 'four' overwrites it?

 

[Sverre Furberg]

Brian Wakem skrev:

Sverre Furberg wrote:

Probably OT but...
The output of the script below isn't
what I expect.
Tested it on a computer
with ActivPerl 5.8.6 on MS Win98 SE.
---
#/usr/bin/perl

use warnings;
use strict;

my @lines;

while (<>) {
push @lines, $_;
}
print "\n";
print reverse @lines[-5 .. -1];
---

Perhaps 'five' is followed by CR but not LF, so 'four' overwrites it?

Putting in a: print "\n"; did the trick so I guess you were right.
Thanks