You're applying your matches to the names, not the files. Keep strict and warnings, here's a fairly cheesy approach:
Sorry that's not the whole job, but it's an outline.my $cvs_match = qr/whatever/; for (keys %INC) { push @versions, ($foo = `perldoc -m $_`) =~ /$cvs_match/; }
After Compline,
Zaxo
In reply to Re: 'reflection', aka traversing symbol tables
by Zaxo
in thread 'reflection', aka traversing symbol tables
by d_i_r_t_y
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |