advanced code snippet search

Posted By

archlight on 12/31/08


Tagged

file directory


Versions (?)

file n directory operation

 / Published in: Perl
 
Expand | Embed | Plain Text 
  1. my $out = 'bklighting.xml';
  2. open (OUTFILE, ">>$out") or die("output file cannot ");
  3. close(OUTFILE);
  4.  
  5. my $workdir = "./html";
  6. opendir(DIR, $workdir) || die "can't opendir $workdir: $!";
  7. my @htmls = readdir(DIR);
  8. closedir DIR;
  9.  
  10. #shift away dot directory
  11. shift @htmls;
  12. shift @htmls;

Report this snippet  

You need to login to post a comment.