MS-SQLのRPTをCSVに変換
MS-SQLからクエリ結果を出力した場合に使用されるRPT形式のファイルを
CSV形式に変換するPerlスクリプト
rpt2csv.pl aaaa.rpt
みたいに使用する
#!/usr/bin/perl
use strict;
use utf8;
use File::BOM qw/open_bom/;
if ( $#ARGV < 0 ) {
print "$0
print "output filename is
exit;
}
my $filename = $ARGV[0];
open INFILE, "<:via(File::BOM)", $filename or die "cannot open $filename";
open OUTFILE, ">:utf8", $filename. ".csv" or die "cannot open $filename.csv";
$/ = "\r\n";
print "$filename:\t";
my $titleline =
chomp $titleline;
my $lengthline =
chomp $lengthline;
my @length_tmp = split / /, $lengthline;
$lengthline = undef;
my @length;
for (my $i=0; $i < $#length_tmp; $i++){
$length[$i] = length $length_tmp[$i];
}
print OUTFILE txt2csv($titleline) , "\r\n";
$titleline = undef;
my $counter = 0;
my $counter_length = 0;
$| = 1;
while (
$counter++;
chomp $_;
print OUTFILE txt2csv($_) , "\r\n";
if ($counter % 100 == 0){
print "\b" x $counter_length;
$counter_length = length $counter;
print $counter;
}
}
print "\b" x $counter_length;
print $counter , "\n";
close INFILE;
close OUTFILE;
exit;
sub txt2csv($){
my $line = shift @_;
my @items = ();
my $str = undef;
for (my $i=0; $i < $#length; $i++){
$str = substr($line, 0, $length[$i]);
substr($line, 0, $length[$i]+1) = "";
$str =~ s/^\s*//go;
$str =~ s/\s*$//go;
push @items, $str;
}
return join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @items;
}
コメントする