Re: how read data from file

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;
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

Comment on Re: how read data from file Download Code

Replies are listed 'Best First'.
Re^2: how read data from file by rammohan (Acolyte) on Jan 18, 2014 at 08:54 UTC
Thank you.it works perfectly. why you use another CPAN module here.?	[reply]
Re^3: how read data from file by CountZero (Bishop) on Jan 18, 2014 at 09:13 UTC
`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. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.