kuxun.cn 刷票

2010-02-08编程开发
编程
54 views

#! /usr/bin/perl -w
use strict;
use Term::ANSIColor qw(:constants);
my $char = "卧";
while (1)
{
my $i = 0;
for ( $i=0; $i < 5; $i++)
{
my $ret = `curl -s http://piao.kuxun.cn/beijing-changsha/p$i`;
my @lines = split('\n', $ret);
my $date = $ARGV[0];
foreach (@lines)
{
if (/<a(.*)a>/ig && /$date/ && /$char/)
{
print RED "$2\n", RESET "$1\n\n" if /href="(.*)" title="(.*)\" target="_blank"/;
}
}
}
sleep 30;
system("clear");
}

Example: perl ticket.pl 2-5

该日志于2010-02-08 14:31由老周发表在编程开发分类下，你可以发表评论。除了可以将这个日志以保留源地址及作者的情况下引用到你的网站或博客，还可以通过RSS 2.0订阅这个日志的所有评论。

发表评论您必须先登录。

安全代码