pyrox.dev
1#! /usr/bin/perl -w
2
3use strict;
4
5my %map;
6open LIST1, "<$ARGV[0]" or die;
7while (<LIST1>) {
8 /^(\S+)\s+(.*)$/;
9 $map{$1} = $2;
10}
11
12open LIST1, "<$ARGV[1]" or die;
13while (<LIST1>) {
14 /^(\S+)\s+(.*)$/;
15 if (!defined $map{$1}) {
16 print STDERR "missing file: $2\n";
17 next;
18 }
19 print "$2\n";
20 print "$map{$1}\n";
21}
22