#!/usr/bin/perl #--------------------------------------------------------------------- #require 5.001; unshift (@INC, '.'); require 'cgi-lib.pl'; # local(%input); &ReadParse(*input); # $file = $input{'file'}; $name = $input{'name'}; $score = $input{'score'}; # # For debug # #$file = "../a.tmp"; #$name = "xxx"; #$score = 122; $size = 1; @data = (); push(@data,$score . "," . $name); open(IN,$file); while(){ chomp($_); if($_ ne ''){ push(@data,$_); $size++; } } close(IN); # $flag = 1; while($flag != 0){ $flag = 0; for($i=0;$i<$size;$i++){ for($j=$i+1;$j<$size;$j++){ if(&compare($data[$i],$data[$j]) < 0){ $temp = $data[$j-1]; $data[$j-1] = $data[$j]; $data[$j] = $temp; $flag++; } } } } # if($name ne ''){ open(OUT,">$file"); foreach(@data){ print OUT; print OUT "\n"; } close(OUT); } &printHTML; # sub compare { if(&getScore($_[0]) < getScore($_[1])){ -1;} elsif(&getScore($_[0]) > getScore($_[1])){ 1;} else {0;} } sub getScore { local @ls = split(/,/,$_[0]); $ls[0]; } sub printHTML { local $i; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; if($file eq ''){ $i = 0; print "\n"; foreach(@data){ @rec = split(/,/,$_); if($rec[0] ne ''){ print "\n"; $i++; } } if($i == 0){ print "\n"; } print "
$rec[0]$rec[1]
The book of records is empty
\n"; } else { print "$file , $name , $score, \n"; } print "\n"; print "\n"; }