auto wˆ¿Ò 0¾Ð yˆ¿Ò 0¾Ð {ˆ¿Ò 0¾Ð#}ˆl–Ãa¾”êh¥8 ]¸\i¥1hßÓ „Û¿¿Ñ(}#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; #!/usr/bin/perl =head1 NAME corelist - a commandline frontend to Module::CoreList =head1 DESCRIPTION See L for one. =head1 SYNOPSIS corelist -v corelist [-a|-d] | // [] ... corelist [-v ] [ | // ] ... corelist [-r ] ... corelist --diff PerlVersion PerlVersion =head1 OPTIONS =over =item -a lists all versions of the given module (or the matching modules, in case you used a module regexp) in the perls Module::CoreList knows about. corelist -a Unicode Unicode was first released with perl v5.6.2 v5.6.2 3.0.1 v5.8.0 3.2.0 v5.8.1 4.0.0 v5.8.2 4.0.0 v5.8.3 4.0.0 v5.8.4 4.0.1 v5.8.5 4.0.1 v5.8.6 4.0.1 v5.8.7 4.1.0 v5.8.8 4.1.0 v5.8.9 5.1.0 v5.9.0 4.0.0 v5.9.1 4.0.0 v5.9.2 4.0.1 v5.9.3 4.1.0 v5.9.4 4.1.0 v5.9.5 5.0.0 v5.10.0 5.0.0 v5.10.1 5.1.0 v5.11.0 5.1.0 v5.11.1 5.1.0 v5.11.2 5.1.0 v5.11.3 5.2.0 v5.11.4 5.2.0 v5.11.5 5.2.0 v5.12.0 5.2.0 v5.12.1 5.2.0 v5.12.2 5.2.0 v5.12.3 5.2.0 v5.12.4 5.2.0 v5.13.0 5.2.0 v5.13.1 5.2.0 v5.13.2 5.2.0 v5.13.3 5.2.0 v5.13.4 5.2.0 v5.13.5 5.2.0 v5.13.6 5.2.0 v5.13.7 6.0.0 v5.13.8 6.0.0 v5.13.9 6.0.0 v5.13.10 6.0.0 v5.13.11 6.0.0 v5.14.0 6.0.0 v5.14.1 6.0.0 v5.15.0 6.0.0 =item -d finds the first perl version where a module has been released by date, and not by version number (as is the default). =item --diff Given two versions of perl, this prints a human-readable table of all module changes between the two. The output format may change in the future, and is meant for I, not programs. For programs, use the L API. =item -? or -help help! help! help! to see more help, try --man. =item -man all of the help =item -v lists all of the perl release versions we got the CoreList for. If you pass a version argument (value of C<$]>, like C<5.00503> or C<5.008008>), you get a list of all the modules and their respective versions. (If you have the C module, you can also use new-style version numbers, like C<5.8.8>.) In module filtering context, it can be used as Perl version filter. =item -r lists all of the perl releases and when they were released If you pass a perl version you get the release date for that version only. =back As a special case, if you specify the module name C, you'll get the version number of the Unicode Character Database bundled with the requested perl versions. =cut use Module::CoreList; use Getopt::Long; use Pod::Usage; use strict; use warnings; my %Opts; GetOptions( \%Opts, qw[ help|?! man! r|release:s v|version:s a! d diff|D ] ); pod2usage(1) if $Opts{help}; pod2usage(-verbose=>2) if $Opts{man}; if(exists $Opts{r} ){ if ( !$Opts{r} ) { print "\nModule::CoreList has release info for the following perl versions:\n"; my $versions = { }; my $max_ver_len = max_mod_len(\%Module::CoreList::released); for my $ver ( sort keys %Module::CoreList::released ) { printf "%-${max_ver_len}s %s\n", format_perl_version($ver), $Module::CoreList::released{$ver}; } print "\n"; exit 0; } my $num_r = numify_version( $Opts{r} ); my $version_hash = Module::CoreList->find_version($num_r); if( !$version_hash ) { print "\nModule::CoreList has no info on perl $Opts{r}\n\n"; exit 1; } printf "Perl %s was released on %s\n\n", format_perl_version($num_r), $Module::Co