file出力, 生成

#!/usr/bin/perl --

print "Content-type:text/html\n\n";
$file="finance.csv";
open(IN, $file) or die "$!";
while(<IN>){
	print $_;
}
close (IN);

出力はOKだが、問題は生成の方だな

#!/usr/bin/perl --

print "Content-type:text/html\n\n";
$file="finance.csv";
$outfile="finance_out.csv";

open(IN, $file) or die "$!";
open(OUT, ">$outfile") or die "$!";

while(<IN>){
	print OUT $_;
}
close (IN);
close (OUT);

拡張子を.csvとして、OUTと指定するだけで出来るんだ。なんか拍子抜けでな。

ほう

#!/usr/bin/perl —

print “Content-type:text/html\n\n”;
$file=”finance.csv”;
$outfile=”finance_out.csv”;

open(IN, $file) or die “$!”;
open(OUT, “>$outfile”) or die “$!”;

while(){
# 改行コード除去
chomp($_);

# 各行をカンマ区切りで分割
@data = split(/,/, $_);

for ($i=0; $i<@data; $++){ $data[$i] =~ s/( | )+//g; } } close (IN); close (OUT); [/perl]