查看Kernel所有2.6.* ChangeLog

查看Kernel所有2.6.*的 ChangeLog,在目录log中查看所有log文件。

#!/usr/bin/perl -w


use strict;
use warnings;

#

# run command

# wget ""

# got index.html

# run command

# grep "ChangeLog" index.html>list


my $url = "";

open (LF, "< list") or die "Couldn't open file list: $!\n";
while (<LF>)
{
    my $line = $_;
    if ( $line =~ /\>(Ch.*?)\</ )
    {
        #printf $1;

        #printf "\n";

        my $fn = "$1.log";
        my $wcmd = "wget -O log/$fn $url/$1";
        printf "$wcmd \n";
        `$wcmd`;
    }
}

close(LF);

#printf "Bye bye.\n";

exit;