文章有点长,但我是一气看完的,说实话看完老悲哀了。特别是电视里还正在转播两会……一派天下太平的,经济繁荣,社会和谐的景象。必须承认一些中国的左翼学者的言论有些偏激或者夸大事实,但我想多少比看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