Revision: 10472
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at December 31, 2008 00:08 by archlight
Initial Code
my $out = 'bklighting.xml';
open (OUTFILE, ">>$out") or die("output file cannot ");
close(OUTFILE);
my $workdir = "./html";
opendir(DIR, $workdir) || die "can't opendir $workdir: $!";
my @htmls = readdir(DIR);
closedir DIR;
#shift away dot directory
shift @htmls;
shift @htmls;
Initial URL
Initial Description
Initial Title
file n directory operation
Initial Tags
file, directory
Initial Language
Perl