Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , 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" To: cygwin 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 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/