It's late so maybe I'm missing something, but here's one way:

  #throw away the header and keep everything after
"application/octet-stream"
  my($junk,$data2) = split(/application\/octet-stream/,$data);
  #split the rest up by commas and put it into an array
  my @records = split(/,/,$data2);

Then it's all in a neat little array.  This is, of course, assuming that you
don't have any data in your file that has a comma in it...

-----Original Message-----
From: Clinton [mailto:[EMAIL PROTECTED]
Sent: Tuesday, February 25, 2003 10:34 PM
To: [EMAIL PROTECTED]
Subject: parsing uploaded csv file from HTTP


Hi

I'm trying to parse an uploaded csv file. From the HTTP info I have a string
that looks like this

Content-Disposition: form-data; name="afile";
filename="C:\myfolder\mytest.csv" Content-Type: application/octet-stream
12345678,John Doe 79696676,Superman 215154552,Wilfred DeSilva 216215,Bart
Simpson -----------------------------7d336333d1034e--

with some difficulty I've managed to jury-rig a regex

$data =~ m/(.*[:]\\.*\s.*\s\W+)([\w+\,\w+\s\w+\r\n]+)(-+\w+-{2}\s$)/g;

which gives me

12345678,John Doe 79696676,Superman 215154552,Wilfred DeSilva 216215,Bart
Simpson

Unfortunately if the CSV file has punctuation (Wilfred De'Silva) everything
falls in a heap.
How can I pull out the data without relying on  $2 ([\w+\,\w+\s\w+\r\n]+)
which seems to be the bit that grabs the CSV values

Running ASP on WinNT box with PerlScript

Help appreciated
Clinton


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to