在Perl中,当我从文件中读取它时,我可以限制一行的长度(比如fgets)吗？

如果你想自己做,那对getc非常简单.

sub fgets {
    my($fh,$limit) = @_;

    my($char,$str);
    for(1..$limit) {
        my $char = getc $fh;
        last unless defined $char;
        $str .= $char;
        last if $char eq "\n";
    }

    return $str;
}

将每个字符连接到$str是有效的,因为Perl会机会性地重新分配.如果Perl字符串有16个字节并且你连接另一个字符,Perl会将它重新分配为32个字节(32个转到64,64到128 ……)并记住长度.接下来的15个连接不需要重新分配内存或调用strlen.