mcs/class/System.XML/Test/System.Xml.Xsl/standalone_tests/cleanup-output.pl

   1 #!/usr/bin/perl
   2
   3 &main;
   4
   5 sub main ()
   6 {
   7         print "deleting file.\n";
   8         open (fd, "output.lst") or die;
   9         foreach $fn (<fd>) {
  10                 chomp $fn;
  11                 if (-e $fn) {
  12                         unlink $fn;
  13                 } else {
  14                         print "File : " , $fn;
  15                 }
  16         }
  17 }