perl登录whu选课系统，查看信息等

perl登录whu选课系统，查看信息等

tkorays（tkorays@hotmail.com）

永不停止地奋斗！

曾想过用命令行来操作选课系统，这看起来多么好玩的一件事啊。

要实现它，首先要做的就是选课系统的登录，然后是解析页面，获取信息。这些用perl实现是多么简单！

下面实现了一个简单登录与课表查询，其他功能如查询信息，选课等，道理都是一样的。不是post就是get然后解析。

#!/usr/bin/perl# Copyright 2014 tkorays. All rights reserved.
# author tkorays
# email tkorays@hotmail.comuse strict;
use warnings;
use LWP;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use URI::Escape;
use URI::URL;my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
$ua->timeout(100);
my $cookie_jar = HTTP::Cookies->new(file=>'lwp_cookies.txt',autosave=>1,ignore_discard=>1);
$ua->cookie_jar($cookie_jar);my $whu_id = '你的whu学号';
my $whu_pwd = '你的密码';
my $captcha = '';
my $url = 'http://202.114.74.198';
my $form_submit = encode('gb2312',decode('utf8',"确 定"));
my $captcha_url = $url.'/GenImg';
my $pres = $ua->get($captcha_url);
open(FILE_HANDLE,'>img.jpg');
binmode FILE_HANDLE;
print FILE_HANDLE $pres->content;
close FILE_HANDLE;###################################
# input info
print 'input your id:',"\n";
#chomp($whu_id = <STDIN>);
die "\n***please input your id***\n" unless $whu_id;
print 'input your password:',"\n";
#chomp($whu_pwd =  <STDIN>);
die "\n***please input your password***\n" unless $whu_pwd;
print 'input captcha:',"\n";
chomp($captcha = <STDIN>);
die "\n***please input captcha***\n" unless $captcha;my $res = $ua->post($url.'/servlet/Login',{'who'=>'student','id'=>$whu_id,'pwd'=>$whu_pwd,'yzm'=>$captcha,'submit'=>$form_submit
});
if($res->header('Location') eq $url.'/stu/newstu_index.jsp'){print "login success!\n";
}else{exit;
}# get lessonsmy $lessonpage = $ua->get($url.'/stu/query_stu_lesson.jsp');
die 'failed to open lesson page' unless $lessonpage->is_success;
my $pagect = $lessonpage->content;
$pagect =~ s/[\r\n\t]/ /g;
my $result;
my $t = encode('gb2312',decode('utf8',"姓名"));
$pagect =~ /$t:(.*?) /;
print "\n\n",encode('gb2312',decode('utf8',"姓名")),": $1\n";
$t = encode('gb2312',decode('utf8',"学号"));
$pagect =~ /$t:(.*?)\s/;
print encode('gb2312',decode('utf8',"学号")),": $1\n";print encode('gb2312',decode('utf8',"课程")),": \n";
my @allmatch = $pagect =~ /<tr[^>]*>(.*?)(?!\/tr>)<\/tr>/g;
foreach my $single(@allmatch){$result = $single =~ /<td width="80">(.*?)(?!\/td>)<\/td>/g;print $1,"\n" if $result;
}

填写好密码，找到验证码文件填写好后，运行结果如下：

之后你就可以为所欲为，编写自己的选课系统功能，自由选课，一键评教，抢课，so easy……

perl登录whu选课系统，查看信息等相关推荐

springboot基于微信小程序的选课系统毕业设计源码060000
目录摘要 1 绪论 1.1研究背景 1.2开发意义 1.3系统开发技术的特色 1.4论文结构与章节安排 2选课系统小程序系统分析 2.1 可行性分析 2.2 系统流程分析 2.2.1数据增加流程 ...
C#毕业设计——基于C#+asp.net+SQL Server的动态口令认证网上选课系统设计与实现（毕业论文+程序源码）——网上选课系统
基于C#+asp.net+SQL Server的动态口令认证网上选课系统设计与实现(毕业论文+程序源码) 大家好,今天给大家介绍基于C#+asp.net+SQL Server的动态口令认证网上选课系统 ...
springboot基于微信小程序的选课系统060000
目录摘要 1 绪论 1.1研究背景 1.2开发意义 1.3系统开发技术的特色 1.4论文结构与章节安排 2选课系统小程序系统分析 2.1 可行性分析 2.2 系统流程分析 2.2.1数据增加流程 ...
springboot基于微信小程序的选课系统毕业设计-附源码060000
目录摘要 1 1 绪论 1 1.1研究背景 1 1.2开发意义 1 1.3系统开发技术的特色 1 1.4论文结构与章节安排 1 2选课系统小程序系统分析 3 2.1 可行性分析 3 2.2 系统流 ...
（附源码）springboot基于微信小程序的选课系统毕业设计060000
目录摘要 1 1 绪论 1 1.1研究背景 1 1.2开发意义 1 1.3系统开发技术的特色 1 1.4论文结构与章节安排 1 2选课系统小程序系统分析 3 2.1 可行性分析 3 2.2 系统流 ...
基于SSM的公选课的选课系统/选课系统的设计与实现
摘要随着科学技术的飞速发展,各行各业都在努力与现代先进技术接轨,通过科技手段提高自身的优势:公选课的选课系统当然也不能排除在外,随着网络技术的不断成熟,带动了公选课的选课系统的发展,它彻底改变了 ...
教学一体化服务平台——学生选课系统需求分析
1 需求分析 1.1 系统简介 1.2 需求说明 1.3 用例分析 1.3.1 用例与角色 1.3.2 用例图 1.3.3 用例描述 1 需求分析 1.1 系统简介 "选课" ...
基于微信小程序的学生选课系统源码
开发环境及工具: 大等于jdk1.8,大于mysql5.5,idea(eclipse),微信开发者工具技术说明: springboot mybatis 小程序代码注释齐全,没有多余代码,适合学习( ...
查看linux系统账号信息,Linux系统查看账户及登录信息的11个方法
欢迎,来自IP地址为:110.247.163.57 的朋友这里将向您展示11种在Linux系统中查找用户信息的有用方法.我们将描述如何获取用户帐户详细信息.显示登录详细信息以及用户在系统上所做的操作 ...

perl登录whu选课系统，查看信息等

perl登录whu选课系统，查看信息等相关推荐

最新文章

热门文章