- #! /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
1. 是否要写注释
写注释能让你更好的思考程序在干什么,但是糟糕的注释适得其反。
2. 如何高效的注释
应该通过书写具有意义的变量名,子程序名来避免过多的注释。注释不是重复描述代码,而是对代码的补充说明。
3. 不要注释糟糕的代码,应该重写之。
4. 文件头部的注释应该起到概述的作用,说明文件的内容和实现的主要功能。
5. 对于具体环境和值得注意的地方应该注释,这将为今后问题的解决带来极大的好处。
Here are steps how I got it and solve:
1. I like to compile some sources from the command prompt, so I added to the PATH environment variable – “C:\Program Files\Microsoft Visual Studio 8\VC\Bin”. After that I had to copy some files from “C:Program Files\Microsoft Visual Studio 8\Common7\IDE” to get cl.exe working (one of files was mspdb80.dll).
2. Some time later I tryed to compile a project from MSDev and got C1902 error.
3. With MSDN search I got to this place to see Jonathan Caves’s helpful message about mspdbsrv.exe.
4. I just copied that EXE to VC\Bin and everithing becomes Ok.
5. Now I can compile anything .
不用vc 好多年,最近做项目用到C# , 安装了visual studio 2005,于是又怀念起visual assist 的日子了,人总是怀念以前的日子。
这软件好是好,就是贵,其实保持试用真的是好方法。不要费脑筋找破解,原汁原味。软件试用时间的控制是用Armadillo壳实现的,直接使用Trial-Reset 3.2 搞定。

trial-reset_32.rar
1. 单击“开始”,单击“运行”,键入 control admintools,然后单击“确定”。
2. 双击“本地安全策略”。
3. 单击“软件限制策略”。(注意:如果未列出软件限制,请右击“软件限制策略”,然后单击“新建策略”。 )
4. 在“对象类型”下,双击“强制”。
5. 单击“除本地管理员以外的所有用户”,然后单击“确定”。
重启后就可以正常安装了.