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
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 7bit

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/