volks,

The basic problem -

        I want a perl script that will parse out the 'use FOO::BAR'
        stuff from other perl scripts so that it will then be able to
        resolve which revs it will be using.

eg:
vladimir: 129:] perl GetUseVersions PlainSpeak
HTML::Parser -  3.26
HTML::FormatText -  1.18
HTML::TreeBuilder -  3.11
vladimir: 130:]

the loop I have that works that is:

###   foreach my $mod (@uselist) {
###     my $verToken = "$mod" . '::VERSION' ;
###     print "$mod -  ";
###     my $cmd = " perl -M$mod -e \' print \$$verToken ; \'\n" ;
###     system( $cmd);
###     print "\n";
###   }

Since that works, even though it requires the 'system()' call
I should just 'live with it' - or is there a more Orthodox Perlie
way that I could/should do this?

ciao
drieux

---

"I should have to rip my code by hand to run command line
arguments of many tokens, when I can just run one piece
of code and let it step through the hoops?"
        - why we code
          uncle drieux


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to