mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-14 11:40:13 +01:00
24 lines
893 B
Perl
24 lines
893 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use LWP::Simple;
|
||
|
|
use IO::Handle;
|
||
|
|
$stdout = *STDOUT;
|
||
|
|
open(RES , ">resultlog.txt") || die "cannot open result log file";
|
||
|
|
#system("rm alldiff.txt in*.txt out*.txt");
|
||
|
|
for($i=10;$i<909;$i++)
|
||
|
|
{
|
||
|
|
RES->printf("Test Page %d \n", $i);
|
||
|
|
$url = "http://people.netscape.com/ftang/testscript/gb18030/gbtext.cgi?page=" . $i;
|
||
|
|
RES->printf( "URL = %s\n", $url);
|
||
|
|
$tmpfile = "> in". $i . ".txt";
|
||
|
|
open STDOUT, $tmpfile || RES->print("cannot open " . $tmpfile . "\n");
|
||
|
|
getprint $url;
|
||
|
|
$cmd2 = "../../../dist/win32_d.obj/bin/nsconv -f GB18030 -t GB18030 in" . $i . ".txt out" . $i . ".txt >err";
|
||
|
|
$cmd3 = "diff -u in" . $i . ".txt out" . $i . ".txt >> alldiff.txt";
|
||
|
|
RES->printf( "Run '%s'\n", $cmd2);
|
||
|
|
$st2 = system($cmd2);
|
||
|
|
RES->printf( "result = '%d'\n", $st2);
|
||
|
|
RES->printf( "Run '%s'\n", $cmd3);
|
||
|
|
$st3 = system($cmd3);
|
||
|
|
RES->printf( "result = '%d'\n", $st3);
|
||
|
|
}
|