Plan 9 from Bell Labs’s /usr/web/sources/contrib/anothy/src/lib/djb-ape/TARGETS.pl

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#!/usr/bin/perl

# list files in current directory that are not in FILES

open FILE,"FILES" || die;
while (<FILE>) {
  chomp;
  $FILES{$_}=1;
}
close FILE;

opendir DIR,"." || die;
foreach $i (readdir DIR) {
  if (-f $i) {
    print "$i\n" unless (exists $FILES{$i});
  }
}
closedir DIR;

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.