这是查找狗儿整个考场考生成绩的一个脚本！！

这是查找狗儿整个考场考生成绩的一个脚本！！

#!usr/bin/perl -w
use Socket;

open(JL,">jl.txt");
print JL ("狗儿考场所有人的考试成绩： ");
close(JL);
my $host='grad.cau.edu.cn';
my $port='80';
my $str;
my %id=();

open (west,"