13 lines
148 B
Perl
Executable File
13 lines
148 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
while (<>)
|
|
{
|
|
chomp;
|
|
s/^\s+//;
|
|
s/^\s+\*\s+//;
|
|
s/^\s+//;
|
|
s/\"/\\\"/g;
|
|
s/\s+$//;
|
|
print "\"$_\",\n";
|
|
}
|