求教 如何从文件中每次读取固定数目的行

geshutian

比如一个文本文件，我想做个循环，每次读入10行进行操作，请问有什么简单些的方法实现没有？

多谢了先

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;
___________________

给你写一个吧，现在挣个工分可真不容易啊

cobrawgl

sub read_n_lines {
        # read_n_times...
}



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

galaxy001

if (wantarray) {
这个，学到了。

forlorngenius

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

lytton32

学会了.

hzl1984

昨天学了一招
可以试试这段代码：

$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

在此谢过～