[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-AnyPerl] Multiple Substitution

At 19.03 +0200 99-05-05, Mark Yannuzzi wrote:
>1) Is there a way to combine the two substitution statements into one?

$label[$i] =~ s/\((.*)\)/ [$1]/;

To combine with the printing:

@label = qw[VD(mA): AB(cD): EF(gH): IJ(kL): MN(oP): QR(sT):];

print OUTFILE map {s/\((.*)\):/ [$1]\t/; $_} @label;

__END__

/Cajo.

___Carl_Johan_Berglund_________________________
   Adverb Information
   carl.johan.berglund@adverb.se
   http://www.adverb.se/



==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org