Well, there is always more than one way to do this. You may not be able to
do this easily without additional modules. Since you are working with CSV
data, check out DBI and DBD::CSV or DBD::Anydata or Anydata or Text::CSV_XS.
But if you absolutely do not want to use a module, then use regular
expressions to strip the leading and trailing quotes,
s/^\"//;
s/\"$//;
push @data, split /\"\,\"/,$_;
NOTE: This could be tripped up by the same sequence appearing in your valid
data. So just make sure there are no occurances .
I wonder, maybe you could eval the $_ since it is a valid syntax for
creating an array...
push @data, eval '('.$_.')'; (While this won't work as written, maybe some
playing around with it will.)
Adam
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> Johnno
> Sent: Friday, March 29, 2002 5:03 PM
> To: [EMAIL PROTECTED]
> Subject: [Perl-unix-users] some more help please?
>
>
> I am using this command and it works find...
>
> how would i change it so it would pick the ," and then do the split..
>
> at the moment it picks up the ,
>
> push @data, split /\,/,$_;
>
> Many thanks for all your help so far.
>
> Johnno
>
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
