86 |
print STDERR "working on $sql_file\n" if ($debug); |
print STDERR "working on $sql_file\n" if ($debug); |
87 |
|
|
88 |
open(SQL,$sql_file) || die "can't open sql file '$sql_file': $!"; |
open(SQL,$sql_file) || die "can't open sql file '$sql_file': $!"; |
89 |
my $comment; |
my $comment = ''; |
90 |
my $sql = ""; |
my $sql = ""; |
91 |
while(<SQL>) { |
while(<SQL>) { |
92 |
chomp; |
chomp; |
114 |
my $fmt_comment = $workbook->addformat(); # Add a format |
my $fmt_comment = $workbook->addformat(); # Add a format |
115 |
$fmt_comment->set_bold(); |
$fmt_comment->set_bold(); |
116 |
|
|
117 |
|
$comment =~ s/^\s+//; |
118 |
|
$comment =~ s/\s+$//; |
119 |
|
|
120 |
$worksheet->write($row, 0, _c($comment), $fmt_comment); |
$worksheet->write($row, 0, _c($comment), $fmt_comment); |
121 |
$row+=2; |
$row+=2; |
122 |
} |
} |