Annotation of /ldetect-lst/trunk/update-ldetect-lst

#!/usr/bin/perl

my $dir = '/usr/share/ldetect-lst';
my @files = qw(pcitable usbtable isatable pcmciatable dmitable);

unlink("$dir/$_", "$dir/$_.gz") foreach @files;

$ARGV[0] eq '--clean' and exit 0;

foreach (@files) {
    my $d = "$dir/$_.d";
    -d $d or next;
    my @l = sort(glob("$d/*.lst"), glob("$d/*.lst.gz")) or next;

    if (@l == 1 && $l[0] =~ /gz$/) {
        link $l[0], "$dir/$_.gz";
    } else {
        open(my $OUT, "| gzip -9 > $dir/$_.gz");
        foreach (@l) {
            open(my $IN, /gz$/ ? "gzip -dc $_ |" : $_) or next;
            print $OUT $_ foreach <$IN>;
        }
    }
}
1	dmorgan	1357	#!/usr/bin/perl
2
3			my $dir = '/usr/share/ldetect-lst';
4			my @files = qw(pcitable usbtable isatable pcmciatable dmitable);
5
6			unlink("$dir/$_", "$dir/$_.gz") foreach @files;
7
8			$ARGV[0] eq '--clean' and exit 0;
9
10			foreach (@files) {
11			my $d = "$dir/$_.d";
12			-d $d or next;
13			my @l = sort(glob("$d/.lst"), glob("$d/.lst.gz")) or next;
14
15			if (@l == 1 && $l[0] =~ /gz$/) {
16			link $l[0], "$dir/$_.gz";
17			} else {
18			open(my $OUT, "\| gzip -9 > $dir/$_.gz");
19			foreach (@l) {
20			open(my $IN, /gz$/ ? "gzip -dc $_ \|" : $_) or next;
21			print $OUT $_ foreach <$IN>;
22			}
23			}
24			}