fox@server cat /usr/local/projmm/checkmm.pl 10:28 ~
#!/usr/bin/perl
use LWP::Simple;
$href = 'http://kernel.org/pub/linux/kernel/people/akpm/patches/2.6/2.6.15/';
$html = get( $href );
while ( $html =~ m/\>(\d\.\d\.\d\d.*?)\//gi ){ push( @patches, $1 ); }
$latest = ( reverse sort { $patches[$a] <=> $patches[$b] } @patches )[0];
opendir( DIR, "/usr/local/projmm" ) || die "Error: $!";
while ( $_ = readdir( DIR ) ){ if ( /$latest/ ){ exit 1; } }
closedir( DIR );
system('/usr/bin/wget -b '.$href.$latest.'/'.$latest.'.bz2');
Ваши варианты?