in reply to swapping PIPE for comma in CSV file
I got to thinking about my other comment correcting someone else that we should be concerned less with the commas and more with the quotes because they provide a more concrete "rule" for delimiting the items. I was writing an array definition for another file and noticed the definition was identical to the provided data, so I wrote a program which simply evals the data into an array, then prints it out in the right format. I'm sure somebody can write something to clean up the output and make it more elegant but the eval does a bang-up job of reading the data properly.
Hopefully this is useful to somebody.#!/usr/bin/perl -w use strict; { while (<DATA>) { my @i = (); eval "\@i = ($_);"; print "\"$i[0]\"|\"$i[1]\"|\"$i[2]\"|\"$i[3]\"|$i[4]|$i[5]|\"$i[6] +\"|\"$i[7]\"\n"; } } __DATA__ "00000142988AFA836117B1B572FAE4713F200567","9B3702B0E788C6D62996392FE3 +C9786A","05E566DF","J0180794.JPG",32768,3290,"WIN","" "000005EE5E3F6961B78CE4549270DE5D05CBC0CB","8D025B6AE1994A40FCBB5AEC2E +F273F9","5E8D7D42","WabIab, and more.bor",4760,4616,"WIN","" "0000085FC602CD8AD4793A874A47D286DACB0F6A","8BA8BC04896C421A704282E9B8 +7B5520","8D89A85D","fpSDt,Finder,Link.gif",1161,2988,"Solaris","" "00000FF9D0ED9A6B53BC6A9364C07074DE1565F3","A5D49D6DA9D78FD1E7C32D58BC +7A46FB","2D729A1E","cmnres,pdb.dll",76800,1550,"WIN",""
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: swapping PIPE for comma in CSV file
by Anonymous Monk on Jun 27, 2007 at 22:05 UTC |