Re: Split criteria

You have an unfortunate field delimiter, so something like this might help:

while(<DATA>) {
    my $str = $_;
    $str =~ s/!,!/!:::!/g;
    my @parts = split(':::', $str);
    print join("==>", @parts), "\n";
}
[download]

Output:

!A001ST!==>!98!==>!1!==>!01/10/1999!==>!EUROPEENNE!==>!0!==>!EUR!==>!6
+!==>!7!==>!0!==>!98!==>!1!

!A001ST!==>!AD,CD!==>!1!==>!20/05/2004!==>!ANDORRA!==>!0!==>!EUR,USD!=
+=>!6!==>!7!==>!0!==>!AD!==>!1!
[download]

Comment on Re: Split criteria Select or Download Code

Replies are listed 'Best First'.
Re^2: Split criteria by JavaFan (Canon) on Nov 05, 2008 at 09:59 UTC
That would break as soon as there's a field containing ':::'.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom