Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Get licence from module

by andreas1234567 (Vicar)
on Feb 03, 2011 at 14:12 UTC ( [id://885993]=perlquestion: print w/replies, xml ) Need Help??

andreas1234567 has asked for the wisdom of the Perl Monks concerning the following question:

Given a list of modules, how do I produce a list of licences used? Is there a module on cpan that will take me half-way or even to the finish? Pseudo-code: 
while(<DATA>) {
  print $_ . " - " . get_licence($_);
}
__DATA__
DateTime
JSON::Schema 
Parse::Dia::SQL

[download]
Where the expected output would be: 
DateTime - The Artistic License 2.0
JSON::Schema - The MIT Licence
Parse::Dia::SQL - GNU General Public License.

[download]
--
No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]

Replies are listed 'Best First'.
Re: Get licence from module
by toolic (Bishop) on Feb 03, 2011 at 14:22 UTC
[reply]
[d/l]
      Yes, that might work:
      Read more... (1343 Bytes)
      Output: 
      $ perl analyse-poc.pl
List-MoreUtils-0.22.tar.gz : Software::License::Perl_5
Log-Dispatch-2.22.tar.gz : perl
Mail-Sendmail-0.79.tar.gz : no license found

      [download]
      Thanks!
      --
      No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://885993]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2024-04-23 07:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found