2009年总结
又开始忙碌了，每年这个时候只要有时间一般都会写总结。2009年最大的感受就是累，
努力并不一定都会有好的结局。努力一天容易，努力一年，甚至十年就难了。
过程很艰辛，结果却不是很好，还需要继续努力。昨天我看了一篇文章写的很好，
在个信息大爆炸的时代要能够把握人生前进的方向很难，需要的坚韧的品质，
有恒心有毅力，还需要一股冲劲。
还是很喜欢那句话， 做事认真，做人简单，认真去爱。
kuxun.cn 刷票
下载: ticket.pl
- #! /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