#code not tested
my @dashes2 = map {s/-\d.*$//} @patches;

# got patches file names in the @patches array

# next section strips the numeric part of patch file names
# which leaves us with only the leading  alpha and dashes
# up to but not including any of the digits

# begin of alpha_only (number, numeric not allowed)
my @dashes2 = map {s/-\d.+$//} @patches;
# got alpha_only and dashes in the @dashes2 array
# end of alpha_only

print @dashes2, "\n";
print "Patches on mirror server:\n";
print @patches; # mirror server's patches print to screen
print "\n---\n\n";

my @dashes2 = map {s/-\d.*$//;$_} @patches;

sub GetPackageName {
        my $string = shift;
        $string =~ s/-\d.*$//;
        return $string;
}
my @dashes2 = map {GetPackageName($_)} @packages;

sub GetPackageInfo {
        my $string = shift;
        my ($package_name, $version) = $string =~ m/(.*)-(\d[^-]*)-.*$/;
        return ($package_name, $version);
}
my %version = map {GetPackageInfo($_)} @packages;
foreach (sort keys %version) {
    print "Package Name: $_\nVersion: $version{$_}\n";
}

#!/usr/bin/perl

use strict;
use LWP::Simple;

my $url = 'ftp://ftp.slackware.com/pub/slackware/slackware-12.0/ChangeLog.txt';
my $change_log = get $url
  or die "Could not download ChangeLog";
my @change_log = split "\n", $change_log;

my @installed_packages = `ls /var/log/packages`;

my (%installed_version, %latest_version, %package_location, %installed_build, %latest_build);

sub GetPackageInfo {
        my $string = shift;
        my ($package_name, $version) = $string =~ m/(.*)-(\d[^-]*)-.*$/;
        return ($package_name, $version);
}

for my $line (@change_log) {
        next unless ($line =~ m:^patches/:) || ($line =~ m:^extra/:);
        my ($package_location, $package_file_name) = $line =~ m:^(.*/.*/)(.*)$:;
        my ($package_name, $package_version) = GetPackageInfo($package_file_name
);
        next if $latest_version{$package_name};
        $latest_version{$package_name} = $package_version;
        $package_location{$package_name} = $package_location;
}

%installed_version = map {GetPackageInfo($_)} @installed_packages;

for (sort keys %latest_version) {
        next unless $installed_version{$_};
        if ($installed_version{$_} ne $latest_version{$_}) {
                print "New version of $_ available:\nInstalled: $installed_version{$_}\nAvailable: $latest_version{$_}\nLocation: $package_location{$_}\n";
        }
}

#!/usr/bin/perl

use strict;
use warnings;

system("wget -m -nd -P.slak_updck ftp://slackware.mirrors.tds.net/pub/slackware/slackware-12.0/ChangeLog.txt -o ~/.slak_updck/dl_log.txt");
my $new_updates;
my $downl_log = '/home/al/.slak_updck/dl_log.txt'; # path to wget log (dl_log.txt)

open my $logfil, "<", $downl_log or die "cant open $downl_log: $!";
while ( <$logfil> ) {

print if /RETR ChangeLog.txt/;
$new_updates = 'newstuff' if /RETR ChangeLog.txt/;
last if /RETR ChangeLog.txt/;
}
close($logfil) or die "Could not close input: $!";

my $chnglogfil = '/home/al/.slak_updck/ChangeLog.txt'; # path to ChangeLog.txt


if ( $new_updates ) {
print $new_updates, " on mirror\n\n";
open my $change_log, '<', $chnglogfil or die "could not open '$chnglogfil' $!";

my @change_log = do { local $/; <$change_log> }; # Slurp

print @change_log, "\n";

# print "yesir\n" if $new_updates;

# __END__

# my @change_log = split "\n", $change_log;

my @installed_packages = `ls /var/log/packages`;

my (%installed_version, %latest_version, %package_location, %installed_build, %latest_build);

sub GetPackageInfo {
        my $string = shift;
        my ($package_name, $version, $build) = $string =~ m/(.*)-(\d[^-]*)-.*$/;
        return ($package_name, $version);
}

for my $line (@change_log) {
        last if /^Released as Slackware 12/; # not parse 11.0 changelog
        next unless ($line =~ m:^patches/:) || ($line =~ m:^extra/:);
        my ($package_location, $package_file_name) = $line =~ m:^(.*/.*/)(.*)$:;
        my ($package_name, $package_version) = GetPackageInfo($package_file_name
);
        next if $latest_version{$package_name};
        $latest_version{$package_name} = $package_version;
        $package_location{$package_name} = $package_location;
}

%installed_version = map {GetPackageInfo($_)} @installed_packages;

for (sort keys %latest_version) {
        next unless $installed_version{$_};
        if ($installed_version{$_} ne $latest_version{$_}) {
                print "New version of $_ available:\nInstalled: $installed_version{$_}\nAvailable: $latest_version{$_}\nLocation: $package_location{$_}\n";
        }
}

} else {
print "no new updates on mirror server\n";
}
# end

use List::MoreUtils qw/first_index/;
my $release_announce_index = first_index {m/Released as Slackware 12/} @change_log;
$#change_log = $release_announce_index - 1;
my @package_lines_from_change_log = grep {m:^patches/: || m:^extra/:} change_log;
my @latest_packages = map {s:^.*/.*/::;$_} @package_lines_from_change_log;
my %latest_version = map {GetPackageInfo($_)} @latest_packages;