\n"; } print OUT "
\n
\n
\n", "
\n"; $tmp = $thisyear; $end = $thisyear - $years; while ( $tmp > $end ) { push(@allyears,$tmp); $tmp--; } foreach (@allyears) { print OUT " | $_\n"; } $month=0; foreach (@allmonth) { $month++; $s_month = ($month < 10) ? "0".$month : $month; print OUT " |
---|---|
$_\n"; foreach (@allyears) { $year = $_; $year =~ s/^..//; print OUT " | \n"; $txt = ""; $count=0; foreach (@files) { if ( -f "$path/${year}${s_month}/$_" ) { $txt .= " ". $abrev[$count]."\n"; } $count++; } if ($txt eq "") { $txt = " \n"; } print OUT $txt; } } print OUT " |
TOTAL\n"; foreach (@allyears) { $year = $_; $year =~ s/^..//; print OUT " | \n"; $txt = ""; $count=0; foreach (@files) { if ( -f "$path/total${year}/$_" ) { $txt .= " ". $abrev[$count]."\n"; } $count++; } if ($txt eq "") { print OUT " \n"; } else { print OUT $txt; } } $tmp = &ctime(time); print OUT " |