http://qs321.pair.com?node_id=1010508


in reply to Re: script not working
in thread script not working

Or even better, use strict; as shown here: 
#! perl -w

use strict;

my @lines1= <DATA>;
print "number of lines = $#lines1\n";

my $fivefirstfile1= substr($lines1[2], 0, 5);
print "Five first characters are: $fivefprot1\n";

__DATA__
First line of the file.
Second line of the file.
Third line of the file.
Fourth line of the file.
Fifth line of the file.
Sixth line of the file.

[download]

Replies are listed 'Best First'.
Re^3: script not working
by 2teez (Vicar) on Dec 27, 2012 at 12:25 UTC

    That will still not work, except this line print "Five first characters are: $fivefprot1\n";is changed to print "Five first characters are: $fivefirstfile1\n";
    variable $fivefprot1 requires explicit package name.

    If you tell me, I'll forget.
    If you show me, I'll remember.
    if you involve me, I'll understand.
    --- Author unknown to me
[reply]
[d/l]
[select]

      I think that was the anonymous poster and samwyse's point, that it still wouldn't work but then the OPer would be able to find the problem from the messages.

      samwyse's version using test lines in DATA would also demonstrate to the OPer that there was an off by one error in the array index.

[reply]

In Section Seekers of Perl Wisdom