Re: how read data from file

[CountZero]

Just open the file and read it line by line:

use Modern::Perl;

open my $FH, '<', '/home/jack/Desktop/Perl_file.txt' or die "Could not
+ open file: $!";

while (my $line = <$FH>) {
    my $char = substr($line, 0, 2);
    print $char;
}

close $FH;

[rammohan]

Thank you.it works perfectly. why you use another CPAN module here.?

[CountZero]

use Modern::Perl is to enable additional features of recent (5.10 or later) versions of Perl and automatically include use strict and use warnings, two very useful pragmas to avoid making silly mistakes. It does some more good things: read all about it at Modern::Perl.