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