🚀 go-pugleaf

$B9b66$H?=$7$^$9!#(B

<6gfijf$8g9$1@meshsv18.tk.mesh.ad.jp>$B$N5-;v$K$*$$$F(B
hasiguti@mvc.biglobe.ne.jp$B$5$s$O=q$-$^$7$?!#(B

>> http://www.perl.com/cgi-bin/cpan_mod?module=Text::CSV
>> $B>e5-$N%"%I%l%9$K9T$C$F$_$h$&$H$7$?$N$G$9$,!"%5!<%P!<$,3HD%>pJs$rJV$7$?$H$$$C(B
>> $B$F%(%i!<$K$J$C$F$7$^$$$^$9(B(^^;
>> 
$BNc$($P2<5-(BCPAN$B%5%$%H$O$I$&$G$7$g$&$+!)(B
  ftp://ftp.dti.ad.jp/pub/lang/CPAN/modules/by-module/Text/
$B$3$3$K$"$k2<5-$N%U%!%$%k$r%@%&%s%m!<%I$7$F$_$F2<$5$$!#(B
    Text-CSV-0.01.readme
    Text-CSV-0.01.tar.gz
$B2<5-$N(BCPAN$B%^%k%A%W%l%/%9%5!<%S%9$K$F:G4s$j$N(B CPAN$B%5%$%H$K@\B3$7!"(B
$B$3$N%U%!%$%k$X$?$I$jCe$/$3$H$b$G$-$^$9!#(B
    http://www.perl.com/CPAN/modules/

$B855-;v$NL\E*$rC#@.$9$k$K$O(B, $B%$%s%9%H!<%k;~$K2rE`$5$l$k(B
$B%F%9%H%W%m%0%i%`(B $B$,;29M$K$J$k$H;W$$$^$9!#(B

$B$^$?!"$b$7(BCSV$B%U%!%$%k$,F|K\8l%F%-%9%H$r4^$`$N$G$"$l$P!"(B
Text::CSV $B$r(B ISA$B7Q>5$7$?GI@8%/%i%9$N%b%8%e!<%k$K$F(B
parse, fields $B$J$I$N%a%=%C%I$r%*!<%P!<%i%$%IDj5A$9$k(B
$B$H$$$C$?;v$,I,MW$K$J$k$+$bCN$l$^$;$s!#(B
$BNc$($P2<5-(B(JIS_CSV.pm)$B$N$h$&$J$b$N$,9M$($i$l$^$9!#(B

package JIS_CSV;
use Text::CSV;
@ISA = qw(Text::CSV);
sub parse {
  my $self = shift ;
  my $str  = shift ;

  # $B$3$3$G(B $str $B$NF|K\8l%F%-%9%HItJ,$r%(%s%3!<%I$9$k(B #
  $self->SUPER::parse($str);
}

sub fields {
  my $self = shift ;
  my @fields = ();

  @fields = $self->SUPER::fields();
  foreach $field (@fields) {
        # $B$3$3$G(B $field $B$NF|K\8l%F%-%9%HItJ,$r%G%3!<%I$9$k(B #
  }
  return @fields ;
}
1;
__END__

---
$B9b66!w$7$s$3$&$G$s$-(B