How to modify Perl script to move packets in diffrent directory based on version? [migrated]
- by Peter Penzov
I have this Perl script which is used to soft packages based on packet version:
#!/usr/bin/perl -w
#
# Compare versions of all *.rpm files against the
# latest packages installed (if installed)
#
# Usage:
# rpmver.pl
# This script looks for all *.rpm files.
#
use strict;
use RPM2;
my $rpm_db = RPM2->open_rpm_db();
for my $filename…