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;
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] |
Thank you.it works perfectly. why you use another CPAN module here.?
| [reply] |
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] |
| [reply] |
how to achieve this output using file handling. Means which data in that string,if suppose that data in some other file.How to read that data and how to achieve my above result
| [reply] |
| [reply] |
$filename1="file.txt";
open (DAT, "<$filename1")|| die("Cannot Open File");
@MYFILE = <DAT>;
close (DAT);
foreach $t (@MYFILE)
{
$char = substr($t, 0, 2);
if (length $t>1) {print "\n $char";}
}
| [reply] [d/l] |