bin/lib32-diff

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 my @lib32_pkgs = `pacman -Sl testing lib32`;
   6 my %lib32;
   7
   8 foreach (@lib32_pkgs) {
   9     chomp;
  10     next if (! /(?<repo>.+) (?<lib32_pkgname>.+) (?<lib32_pkgver>.+)-(?<lib32_pkgrel>\d+)/);
  11
  12     my $lib32_repo = $+{repo};
  13     my $lib32_pkgname = $+{lib32_pkgname};
  14     my $lib32_pkgver = $+{lib32_pkgver};
  15     my $lib32_pkgrel = $+{lib32_pkgrel};
  16
  17     next if exists $lib32{$lib32_pkgname};
  18     $lib32{$lib32_pkgname}=$lib32_repo;
  19
  20     next if $lib32_pkgname !~ /lib32-/;
  21
  22
  23     my $pkgname = $lib32_pkgname;
  24     $pkgname =~ s/lib32-//;
  25
  26     my $pkg = `pacman -Ss '^$pkgname\$' | grep "/$pkgname " | head -n1`;
  27     chomp $pkg;
  28
  29     next if ( $pkg !~ /(?<repo>.+)\/(?<pkgname>\S+) (?<pkgver>[^-]+)-(?<pkgrel>\d+)/ );
  30
  31     my $repo = $+{repo};
  32     my $pkgver = $+{pkgver};
  33     my $pkgrel = $+{pkgrel};
  34
  35     if ("$lib32_pkgver" lt "$pkgver") {
  36         print "$lib32_repo/$lib32_pkgname $lib32_pkgver is older than $repo/$pkgname $pkgver\n";
  37     }
  38 }