Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
X-WebMail-UserID:	pjacklam AT online DOT no
Date:	Fri, 14 Nov 2003 13:29:24 +0100
From:	"Peter J. Acklam" <pjacklam AT online DOT no>
To:	cygwin <cygwin AT cygwin DOT com>
X-EXP32-SerialNo:	50000140
Subject:	RE: Perl CPAN module help
Message-ID:	<3FB6C603@epostleser.online.no>
Mime-Version:	1.0

Doug VanLeuven <roamdad AT sonic DOT net> wrote:
>
>#!/usr/bin/perl
>
>use CPAN;
># list all modules on my disk and note the newer versions
>for $mod (CPAN::Shell->expand("Module","/./")){
>         next unless $mod->inst_file;
>                 # here only when installed
>         if ($mod->inst_version eq "undef") {
>                 printf "%s :No VERSION\n", $mod->id;
>         }
>         elsif ($mod->uptodate){
>                 printf "%s %s\n", $mod->id, $mod->inst_version
>         }
>         else {
>                 # here when not up to date
>         printf "%s %s, NEW VERSION=%s\n",
>                 $mod->id, $mod->inst_version, $mod->cpan_version;
>         }

That will miss all modules that don't exist on CPAN.

Peter

-- 
Peter J. Acklam - pjacklam AT online DOT no - http://home.online.no/~pjacklam


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -