Oh, well in that case I think the important point is to not do the second map. Make your glob string up ahead of time and incorporate all the elements if possible. ----- Original Message ----- From: "Nikola Janceski" <[EMAIL PROTECTED]> To: "'Janek Schleicher'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Monday, July 15, 2002 4:28 PM Subject: RE: Any difference in this?
> heheh.. and it still goes on. > > Actually I am using different directories in the qw() with *, and I am doing > a different substitution (not for the basenames). > > That's why I said I am getting more than enough info. > Efforts can be spent elsewhere to help the less fortunate. > > Thanx again, > Nikola Janceski > > Praise from the common people is generally false, and rather follows the > vain than the virtuous. > -- Francis Bacon > > > > > -----Original Message----- > > From: Janek Schleicher [mailto:[EMAIL PROTECTED]] > > Sent: Monday, July 15, 2002 3:20 PM > > To: [EMAIL PROTECTED] > > Subject: RE: Any difference in this? > > > > > > Nikola Janceski wrote at Mon, 15 Jul 2002 21:16:09 +0200: > > > > > (better question) is there a better way to achieve the same result? > > > > > >> my @crap = map{ s/\.\w+$//; $_ } map { glob($_) } qw(*.pl *.pgp); > > > > It seems you want to get the basenames of the files. > > Express what you want in a natural way: > > > > use File::Basename; > > > > my @suffixes = qw/.pl .pgp/; > > my @crap = map {basename $_, @suffixes} map {glob "*$_"} @suffixes; > > > > print join "\n", @crap; > > > > > > Greetings, > > Janek > > > > > > -- > > 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]
