in reply to Re: Swimsuits2004
in thread Swimsuits2004
Please feel free to add html / body etc tags of the non compliance upsets you. Hmmm, I'm already thinking there should be a use cgi in there somewhere. Enjoy.
#!/usr/bin/perl use strict; $|++; my %files; foreach my $file_name (glob "RESULTS/*") { my ($top_level, $model_name) = ($file_name =~ m/RESULTS\/(.*?)_(.*?) +_.*$/); $top_level =~ s/^9/199/ or $top_level =~ s/^0/200/; $files{$top_level}{$model_name}{$file_name} = 1; $files{$model_name}{'all'}{$file_name} = 1; } -d 'HTML' or mkdir 'HTML' or die "mkdir HTML: $!"; open INDEX, ">HTML\\index.html"; foreach my $top_level (sort keys %files) { print INDEX qq|<a href="./index_$top_level.html">$top_level</a><br/> +\n|; open TOP_INDEX, ">HTML\\index_$top_level.html"; foreach my $model_name (sort keys %{$files{$top_level}}) { open MODEL_INDEX, ">HTML\\index_${top_level}_${model_name}.html"; my $image_count = 0; foreach my $file_name (sort keys %{$files{$top_level}{$model_name} +}) { $image_count++; print MODEL_INDEX qq|<img src="../$file_name"><br/>\n|; } print TOP_INDEX qq|<a href="./index_${top_level}_${model_name}.htm +l">$model_name ($image_count)</a><br/>\n|; } }
|
---|