Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
my $remote_dir = '/pub/antivirus/NAV/signatures';
my $destination_dir = 'current-sig';
  2. or download this
    
my @lupd = ();
...
  close(LASTUPDATE);
}
  3. or download this
    
my %haveit;
...
my @newupdate;
foreach my $file (@listing) {
  4. or download this
    
  next if $haveit{ $file };
...
close(NEWUPDATE)
  or die "Closing lastupdate.txt failed ($!)";