t_piaohuoche2.pl

从火车票网站(http://piao.kuxun.cn/,http://www.huoche.name/)上监视指定关键字

#!c:\perl\bin\perl.exe -w
use strict;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->env_proxy;

my $rooturl='http://www.huoche.name/';

while( 1 ){
	sleep 20;
	my $response = $ua->get('http://www.huoche.name/TicketList.aspx?__VIEWSTATE=%2FwEPDwUJODcxMjQyMzU2ZGQ8%2Fvidk1U1Y4%2BOaJh07yDYhgfiyQ%3D%3D&ctl00%24ContentPlaceHolder1%24TextBox0=&ctl00%24ContentPlaceHolder1%24TextBox1=&ctl00%24ContentPlaceHolder1%24TextBox2=&ctl00%24ContentPlaceHolder1%24TextBox3=2008-09-28&ctl00%24ContentPlaceHolder1%24SearchBtn=%E6%9F%A5%E8%AF%A2&page=1&t=0&__EVENTVALIDATION=%2FwEWBgLRz7GRDwLc3tynBALc3uCnBALc3tSnBALc3tinBAKmp46bBHCTBL9TZGQiC5Aq8dXRjyy5IVdR');
	if ($response->is_success) {
		my $ret = &huoche2($response->content);
		if( $ret ne '' ){
			open F,">> c:\\piao.txt";
			print F $ret,"\n====================\n";
			close F;
			print $ret,"\n====================\n";
			foreach( 1..3 ){
				system('c:\windows\notepad.exe c:\piao.txt');
			}
			last;
		}else{
			print &getLocaltime."\t搜索中 HuoChe222   z1 z5 z7 z9 z85...\n";
		#	sleep 20;
			next;
		}
		
	}
	else {
	}
	
	#sleep 20;
}


print "\nok\n";

sub huoche2($)
{
	my $body = shift;
	
	my $st = index($body,'<div class="ticketList">',2000);
	
	my $count=0;
	my $ret='';
	
	if( defined($st) ){
		$body = substr($body,$st,4563);
#<div class="centeritem2"><a href="2070305">[转让] 09-28 z9 28日晚上7点30分 北京 - 杭州 软卧 2张</a>
		my @array = split /<\/div>/, $body;
		foreach( @array){
			if( m!<a href=\"(\d{7})\">(.*)<\/a>! ){
				my($u,$t) = ($1,$2);
				if( $u eq '2070305' ){
					last;
				}

				#print $rooturl."$u\n$t\n\n";
				if( $t=~m/z9 /ig || $t=~m/z +9/ig
				 || $t=~m/z7 /ig || $t=~m/z +7 /ig
				 || $t=~m/z5 /ig || $t=~m/z +5/ig
				 || $t=~m/z1 /ig || $t=~m/z +1/ig
				 || $t=~m/z85 /ig || $t=~m/z +85/ig
				 || $t=~m/ｚ/ig){
					#print "$u\n$t\n\n";
					$ret .= $rooturl."$u\n$t\n\n";
					$count += 1;
				}else{
					next;
				}
			}
			#last;
		}
	}
	
	return $ret;
}
sub getLocaltime()
{
	my ($sec,$min,$hour,$day,$mon,$year) = localtime;
	my $formatTime = sprintf "%4d/%02d/%02d %02d:%02d:%02d", $year+1900, $mon+1, $day, $hour, $min, $sec;
	return $formatTime;
}