35 lines
825 B
Perl
Executable File
35 lines
825 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
#my $file_in = `ls -tr bitbake_build/tmp/work/*/*/*/installed_pkgs.txt |tail -1`;
|
|
my $file_in = `ls -tr bitbake_build/tmp/work/intel_x86_64-wrs-linux/wrlinux-image-cgcs-base/*/installed_pkgs.txt |tail -1`;
|
|
$file_in = $ARGV[0] if ($ARGV[0] ne "");
|
|
|
|
open(FILES_IN, $file_in) || die "Could not open list of files";
|
|
|
|
my %pkgs;
|
|
while (<FILES_IN>) {
|
|
chop;
|
|
my @v = split();
|
|
my $pkg = $v[0];
|
|
my $arch = $v[1];
|
|
# Fix up any lib32 packages
|
|
if ($pkg =~ /lib32-(.*)$/) {
|
|
$pkg = "$1";
|
|
$arch = "lib32_x86";
|
|
}
|
|
$pkgs{"$pkg.$arch"} = "1";
|
|
}
|
|
close(FILES_IN);
|
|
|
|
# Print all packages in sorted unique order with architecture
|
|
foreach (sort keys %pkgs) {
|
|
if (/(.*)\.(.*)/) {
|
|
my $pkg = $1;
|
|
my $arch = $2;
|
|
print "$pkg $arch\n";
|
|
}
|
|
}
|
|
|
|
exit 0;
|