APM: Regular Expression Question

Zach Vonler zvonler at gmail.com
Wed Aug 16 09:10:44 PDT 2006

On 8/16/06, Barron Snyder (CE CEN) <Barron.Snyder at wholefoods.com> wrote:
> foreach my $piece (@pieces) {
>         my @strings = split(/\t/, $piece);
>         print DATA_OUT "\"", join ("\"\t\"", $strings[0], $strings[1],
> $strings[2], $strings[3], $strings[4], $strings[5]), "\"\t",
> $strings[6], "\n";
> }

In that case, I think using regexes makes the problem harder, not
easier.  How about the following instead:

my @strings = split /\t/, $piece;
print DATA_OUT "\"", join("\"\t\"", @strings[0..5]), "\"\t$string[6]\n";

Essentially the same as what you were doing.  Split and join are
highly optimized, so I think they're a win over trying to do this in a


More information about the Austin mailing list