How to assign data after getting from CSV?

NOTSomebody

I faced a problem using Perl. I get the data from CSV using

Expand|Select|Wrap|Line Numbers

 
$csv = "test.csv";

open(DAT, $csv) || die("Cannot Open File");
 
while (<DAT>) {
 
    my @new  = ();
 
    push(@new, $+) while $_ =~ m{

        "([^\"\\]*(?:\\.[^\"\\]*)*)",?
 
           |  ([^,]+),?
 
           | ,

        }gx;
 
       push(@new, undef) if substr($_, -1,1) eq ',';

       print "$_\n" for @new;

}

my test data in excel(convert to csv) is:
a,a123,abc
b,b123,bcd
c,c123,cde

then my result shown is

a
a123
abc

b
b123
bcd

c
c123
cde

What I am wondering is that how can I assign the result "a"-->Name, "a123"-->contact_no, "abc"-->address. Same for b and c.

KevinADC

I don't understand your question.

NOTSomebody

I mean, from i tried your solution for me for the previous post. And now I am able to retrieve the fields. Now, i want to extract 1 field from the csv and assign the data to say $name, $contact_no, $address. How do I assign?

KevinADC

this is the assignment operator: "="

$this = 'that';

Ritusriv

Can you expalin your problem in more details if this problem still exists.

How to assign data after getting from CSV?

Post your reply

Similar topics