#!/usr/local/bin/perl # # Program By Shunsuke Itoh # print "Content-type: text/html\n\n", "", "

This system is produced by ", "Shunsuke Itoh

", "

Write an article, ", "Date Order Mode, ", "Help

"; open( FILE, "$ARGV[0]" ) || print "Can't open log file $ARGV[0]."; while( ){ if ( /
/ ){ $_ = ; @Temp = split(/:/, $_ ); $Ftell[ $Temp[0] ] = tell(FILE); $Tree [ $Temp[0] ] = "$Temp[0],{"; $Tree [$Temp[1]] .= ",$Temp[0]" if( defined( $Tree[$Temp[1]] ) ) ; } } $check ="{,"; foreach $Order ( @Tree ){ if ( substr($Order, -1, 1) eq "{" ){ chop $Order; } elsif( length($Order) >0 ){ $Order.=",},"; } @Temp = split(/\,/, $Order ); if( $check=~/,$Temp[0],/ ){ $check =~ s/,$Temp[0],/,$Tree[$Temp[0]]/; } else{ $check = $check . $Order; }; } $check .= "}"; @Temp = split(/\,/, $check ); foreach $Order ( @Temp ){ if ( $Order eq "{" ){ print "
    "; } elsif( $Order eq "}" ){ print "
    "; } else{ seek( FILE, $Ftell[ $Order ], 0 ); print "" while( ($_=) && !(/<\/header>/) ); print ""; } } print "

    ";

    No : $Order"; print "$_