文章有点长，但我是一气看完的，说实话看完老悲哀了。特别是电视里还正在转播两会……一派天下太平的，经济繁荣，社会和谐的景象。必须承认一些中国的左翼学者的言论有些偏激或者夸大事实，但我想多少比看CCAV的新闻有参考价值吧。
（本文转自中华网社区，仅做参考）
今天和各位谈一谈2010年的展望，不过我先念几个新闻给你们听
2009年8月26号，温家宝主持国务院常务会议提出，钢铁、风电等等行业产能过剩。今年一
开春，1月20号，又提出十大行业可能还是产能过剩，包括电力、煤炭、焦炭、有色金属、
建材、轻工、纺织等十大行业。在我们想象中的经济回暖的过程当中，怎么出现这种结果
呢？请各位来宾想一想。
截至到今天中午为止的消息，整个1月份北京房产交易量下跌70%几，上海下跌50%几，平均
价格下跌 3%～4%左右。当然我必须承认1月份一向是淡季，但是跌幅未免过于巨大。这是
什么意思呢？
继续阅读 »
又开始忙碌了，每年这个时候只要有时间一般都会写总结。2009年最大的感受就是累，
努力并不一定都会有好的结局。努力一天容易，努力一年，甚至十年就难了。
过程很艰辛，结果却不是很好，还需要继续努力。昨天我看了一篇文章写的很好，
在个信息大爆炸的时代要能够把握人生前进的方向很难，需要的坚韧的品质，
有恒心有毅力，还需要一股冲劲。
还是很喜欢那句话， 做事认真，做人简单，认真去爱。
- #! /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
