?? summeration.cgi
字號:
#!"C:\Program Files\xampp\perl\bin\perl.exe"
print "Content-type: text/html\n\n";
print '
<html>
<head>
<title>S U M E R I S A T I O N</title>
<style>
body{background:white;color:black;margin:3px 8px}
body,html,h2,td{font-size:small;font-family:calibri,arial,sans-serif}
</style>
</head>
<body>';
$filename="korpus.txt";
$null ="";
#kata yang dianggap unik
@kata_unik = qw(dari yang dan dengan pada daripada ke di ini itu untuk jadi adalah atau yakni para karena makakemudian dalam padahal pun paling);
%hashTitle = ();
%hashParagraf = ();
%hashHasil=();
%hashDoc = ();
$idDoc = 0;
open (IN, $filename);
while(<IN>)
{
if(/^</){
if(/<DOC>/){$penambah=1;}elsif
(/<TITLE>.*<\/TITLE*>/){
$idDoc++;
$idParagraf=0;
$get = $_;
$get =~ s/<TITLE>//;
$get =~ s/<\/TITLE>//;
print '<H1>'.$idDoc.' ) '.$get.'</H1>';
$hashTitle{$idDoc}=$get;
$get =~ tr/[A-Z]/[a-z]/;
$get =~ s/^[+]+//g;
$get =~ s/[+]+$//g;
$get =~ s/[!.,()*]|\"//g;
foreach $Unik (@kata_unik){
$get =~ s/ $Unik / /g;
}
print '<B><i>key: '.$get.'</i></B><BR>';
@query = split(/ /, $get);
}elsif(/<\/DOC*>/)
{
$i=0;
foreach $key(sort{$hashHasil{$b}<=>$hashHasil{$a}}keys %hashHasil)
{
$i++;
if ($i<=2)
{
print '<font size=2>'.$hashParagraf{$key}.'<br></font>';
}
}
%hashHasil=();
}
}else
{
$idParagraf++;
$get = $_;
$get =~ s/^\s//g;
$get =~ s/\s$//g;
$hashParagraf{$idParagraf}=$get;
$get=~ s/[!.,()*]|\"//g;
$get=~ tr/[A-Z]/[a-z]/;
@query2 = split(/ /, $get);
foreach $Tag (@query2)
{
foreach $t(@query)
{
if($Tag =~ m/^$t$/)
{
$hashHasil{$idParagraf}=$hashHasil{$idParagraf}+$penambah;
}
}
}
$penambah=$penambah-0.1;
}
}
close(IN);
print '</body></html>';?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -