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]
