noobee has asked for the wisdom of the Perl Monks concerning the following question:
Hi Folks,
I have a text file as below:
asdsadsd But what I want to do is process the whole file and print each of the lines. Can you please point out what I am doing wrong?
--Jessica
In order to process the above kind of text file, I wrote the following code:asdsadsd /* asds wqeoiywe qwe qwewewe oooooo sadssdsa
When I execute the above code, the result I get is only the first line#!/usr/bin/perl use warnings; use strict; package main; my $file = './test_file'; my $line = inFile->new($file); print $line->getLine(); package inFile; sub new { my $class = shift; my $self = { fname => shift, fp => undef, lineno => 0, buff => [] }; my $fname = $self->{fname}; open($self->{fp},"< $fname") || die "failed to open the file $fname + ($!)\n"; bless $self, $class; } sub getLine { my ($self) = @_; my $fp = $self->{fp}; my $buf = $self->{buff}; if (@{$buf}) { $self->{lineno}++; return shift @{$buf}; } my $line; while ($line = <$fp>) { $self->{lineno}++; chomp $line; next if $line =~ /^\s*$/; return $line; } return undef; }
asdsadsd But what I want to do is process the whole file and print each of the lines. Can you please point out what I am doing wrong?
--Jessica
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: text file reading
by GrandFather (Saint) on Dec 18, 2007 at 02:27 UTC | |
by noobee (Acolyte) on Dec 18, 2007 at 02:59 UTC | |
Re: text file reading
by pfaut (Priest) on Dec 18, 2007 at 02:18 UTC | |
A reply falls below the community's threshold of quality. You may see it by logging in. |
Back to
Seekers of Perl Wisdom