かぜぶろさんにText::CSV::Simpleがあるよとおしえてもらた。 節操無くパクッタ。 package Text::CSV::Simple_PP; use strict; use warnings; use base 'Text::CSV::Simple'; use Text::CSV_PP; sub new { my $class = shift; return bless { _parser => Tex…

あんまり考えずに作った。 package Text::CSV_PP::Simple; use strict; use warnings; use base qw/Text::CSV_PP Class::Data::Inheritable/; use IO::File; use Scalar::Util qw/blessed/; __PACKAGE__->mk_classdata('io'); sub getline { my ($self,$io) …