[linux] Re: perl uitdaging

[Ton Smeele]

On Tue, 2007-05-15 at 07:46 +0200, Hugo van der Kooij wrote:
> Ik zit met een kleine perl uitdaging waar ik even geen idee richting een 
> antwoord heb.
> Ik heb een input file met een regel als:
> "00:11:50:A8:41:BE","I\uffffm a wireless G,  baby!",11,182,"Y","5200.4560 N","00442.6593 E"

Daar is in Perl een mooie module voor, probeer dit maar eens:
#!/usr/bin/perl
use strict;
use warnings;
use Text::ParseWords;
my $str = '"00:11:50:A8:41:BE","I\uffffm a wireless
G,baby!",11,182,"Y","5200.4560 N","00442.6593 E"';
my @parts = quotewords(',',0,$str);
print "$_\n" foreach (@parts);

Suc6,

Ton