求教 如何從文件中每次讀取固定數(shù)目的行

geshutian

比如一個(gè)文本文件，我想做個(gè)循環(huán)，每次讀入10行進(jìn)行操作，請(qǐng)問有什么簡(jiǎn)單些的方法實(shí)現(xiàn)沒有？

多謝了先

cobrawgl

package MyFileIO;

use base 'IO::File';

sub get_n_lines {
        my $self = shift;
        my $lines = shift || 1;  #default for 1 line.

        if (wantarray) {
                my @t;
                for (1 .. $lines) {
                        push @t, $self->getline;
                }

                return @t;
        }

        my $t;
        for (1 .. $lines) {
                $t .= $self->getline;
        }

        return $t;
}

1;


------

#! /usr/bin/env perl

use strict;
use warnings;

use MyFileIO;

my $file = MyFileIO->new('test.pl') or die;

my $test = $file->get_n_lines(10);

print $file->get_n_lines(10);

print $test;
___________________

給你寫一個(gè)吧，現(xiàn)在掙個(gè)工分可真不容易啊

cobrawgl

sub read_n_lines {
        # read_n_times...
}



[ 本帖最后由 cobrawgl 于 2008-7-16 20:24 編輯 ]

galaxy001

if (wantarray) {
這個(gè)，學(xué)到了。

forlorngenius

你都有那么多分了。俺還得多逛水

lytton32

學(xué)會(huì)了.

hzl1984

昨天學(xué)了一招
可以試試這段代碼：

$lineNum = 1;
while ( $lineNum <= 1000 ) {
        &readTenLines($lineNum);
        print "------------------------------------------------------\n";
        $lineNum += 10;
}
       
sub readTenLines() {
        open FILE, "< file.txt";
        my ($begin) = @_;
        my $end = $begin + 10;
        while (<FILE>) {
                print if ( $. >= $begin && $. <= $end );
        }
        close FILE;
}

geshutian

在此謝過～