Hi John
Here's your code again, laid out a little more visibly:
use strict;
use warnings;
my @a;
@a = qw/frc.apmt frc_ff.apmt/;
print join(q{,}, map(&subt($_), @a)), "\n\n";
@a = qw/frc.apmt frc_ff.apmt/;
print join(q{,}, map(s/^(.*)\..*/$1/, @a)), "\n\n";
@a = qw/frc.apmt frc_ff.apmt/;
prin
Moon, John wrote:
>
> perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,}, map(&subt($_),
> @a)), "\n";
> sub subt {my ($a) = @_; $a=~s/^(.*)\..*/$1/; print "a=$a\n";
> return $a;}'
> perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,},
> map(s/^(.*)\..*/$1/, @a)), "\n"; '
> perl -e '@a=("
On Wed, Oct 11, 2006 at 07:37:36PM -0400, Moon, John wrote:
> On 10/11/06, Moon, John <[EMAIL PROTECTED]> wrote:
> > perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,}, map(&subt($_),
> > @a)), "\n";
> > sub subt {my ($a) = @_; $a=~s/^(.*)\..*/$1/; print "a=$a\n";
> > return $a;}'
> > p
On 10/11/06, Moon, John <[EMAIL PROTECTED]> wrote:
> perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,}, map(&subt($_),
> @a)), "\n";
> sub subt {my ($a) = @_; $a=~s/^(.*)\..*/$1/; print "a=$a\n";
> return $a;}'
> perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,},
> map(s/^(.*)\..*
On 10/11/06, Moon, John <[EMAIL PROTECTED]> wrote:
perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,}, map(&subt($_),
@a)), "\n";
sub subt {my ($a) = @_; $a=~s/^(.*)\..*/$1/; print "a=$a\n";
return $a;}'
perl -e '@a=("frc.apmt","frc_ff.apmt");print join(q{,},
map(s/^(.*)\..*/$1/, @a))
