What about:
my @crap = map{ s/\.\w+$//; $_ } glob('*.{pl,pgp}');
Tanton
----- Original Message -----
From: "Nikola Janceski" <[EMAIL PROTECTED]>
To: "Beginners (E-mail)" <[EMAIL PROTECTED]>
Sent: Monday, July 15, 2002 3:16 PM
Subject: RE: Any difference in this?
> (better question) is there a better way to achieve the same result?
>
> > -----Original Message-----
> > From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
> > Sent: Monday, July 15, 2002 3:09 PM
> > To: Beginners (E-mail)
> > Subject: Any difference in this?
> >
> >
> > Is there any speed difference in this?
> >
> > my @crap = map {
> > map{ s/\.\w+$//; $_ } (glob($_))
> > } qw(*.pl *.pgp);
> >
> > and
> >
> > my @crap = map{ s/\.\w+$//; $_ } map { glob($_) } qw(*.pl *.pgp);
> >
> >
> >
> > Nikola Janceski
> >
> > Reading maketh a full man, conference a ready man, and
> > writing an exact man.
> > -- Francis Bacon
> >
> >
> > --------------------------------------------------------------
> > --------------
> > --------------------
> > The views and opinions expressed in this email message are
> > the sender's
> > own, and do not necessarily represent the views and opinions of Summit
> > Systems Inc.
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
> --------------------------------------------------------------------------
--
> --------------------
> The views and opinions expressed in this email message are the sender's
> own, and do not necessarily represent the views and opinions of Summit
> Systems Inc.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
