After Work
The best club in Chicago
for Chicago Singles is
Highlife Adventures!
Are you looking for a
Jersey Girl T-Shirt
?
Kyoto Sushi
in Chicago, on Lincoln Ave.
Moody's Pub
in Chicago, has great burgers
Skylark
in Chicago, on Halsted .. excellent Friday fish fry!
|
UNIX
»
Perl
»
Coding
»
CSV File Processor
#!/usr/bin/perl
# --------------------------------------
# Process data file, and convert to
# CSV quote delimited format
# --------------------------------------
use Text::ParseWords ;
while (<STDIN>) {
$line1 = $_ ;
chomp $line1 ;
$line1 =~ s/\\/0/;
$line1 =~ s/X/Z/;
#print $line1 , "\n" ;
@flist = parse_it ($line1) ;
for ($i=0;$i<@flist;$i++)
{
if ( $i > 0 )
{
$line2 = $line2 . "|";
}
else
{
$line2 = "";
}
$line2 = $line2 . $flist[$i];
}
print $line2 , "\n" ;
}
sub parse_it {
return quotewords(",", 0, @_ );
}
|
|
|
|
