CSVの中に"改行code"が…

Program Perl

うろ覚えで Perl の Program を書いた。
どの特殊変数だったけな〜〜思い出した。
ttp://www.rfs.jp/sb/perl/02/nw01.html


忘れない内に書き残しておこう。

#!/usr/bin/perl
use strict;
use warnings;

my $csv_file = shift(@ARGV);
open(FH, $csv_file) || die("Can't open file: $!");

my $csv;

{
local $/;
undef($/);
$csv = <FH>;
}

close(FH);

"改行code"で record が分割されなくなりました。
整形するのに手間がかかるので、column に"改行code"は無い方が良いだけど、
ありえるし、柔軟に対応出来てこそ Programmer ですからね〜〜。
ま〜事が成せて良かった。


mimic28号でした。