今天去参加了开源中国的一个源创会，感觉好隆重的样子，近五百人，BAT的工程师都过来演讲了，可都是数据库相关的， 我一个的都没有听懂，但是茶歇的披萨我倒是吃了不少。

说到开源中国，我想起来了我以前在上面分享的代码，上去看了看，竟然有那么多的访问量了，让我蛮意外的，那些代码完全是我学习perl的历程的真实写照。

http://www.oschina.net/code/list_by_user?id=1990747

我抽出几个代码共享给你大家，并简单讲讲。

首先是三行perl代码即可批量下载页面里面所有的图片

[perl]

$html=`curl http://www.u148.net/article/69164.html`;

@img=$html=~m{<img.*?src="([^"]*)".*?>}g;

#print "$_\n" foreach @img;这一行代码是注释，出现问题是可以打开看看捕获的下载地址到底是什么

map {`wget $_`} @img;

[/perl]

这个代码非常有用，其实很多浏览器现在也有这个功能，就是批量下载网页所有图片嘛。这个代码也非常简单。主要利用了curl和wget在两个linux自带的命令工具，然后用了匹配找寻源代码里面的图片标签及地址。

然后是根据一个ID列表文件来从一个fasta文件里面挑取符合要求的序列。

其中一个文件是ID列表，一个ID占一行，另一个文件是fasta格式的序列，一行是>开头的标记，该标记下所有行都是该标记的内容，直到下一个>开头的标记

[perl]

#!/usr/bin/perl -w 

if( @ARGV != 2  ) 

{

    print "Usage: we need two files\n";

    exit 0;

}

 my $ID=shift @ARGV;

 my $fasta=shift @ARGV;

 open FH1,"<$ID" or die "can not open the file,$!";

while (<FH1>)

{

chomp;

$hash{$_}=1;

}

#读取第一个参数，ID列表，每一行的ID都扫描进去hash表

open FH2,"$fasta" or die "can not open the file,$!";

while(defined($line=<FH2>))

{

chomp $line;

if($line =~ />/)

{

$key = (split /\s/,$line)[0];

$key =~ s/>//g;

$flag = exists $hash{$key}?1:0;

}#这个flag是用来控制这个标记下面的序列是否输出

print $line."\n" if $flag == 0;

}

[/perl]

这个代码的利用率非常高， 我经常在生物信息的各种数据转换中需要用到这个脚本。

接下来是一个非常有趣的代码，在window平台下自动截屏这个代码严格意义上来讲以及进入黑客的范畴了，因为它可以自动截屏，在电脑主人不在的时候你给他运行这个代码，然后静等结果，想想都觉得很黑！

需要安装两个win32的模块，然后截图很大，是bmp格式，我下一步研究如何转换bmp到png格式

[perl]

use Win32::Clipboard;

use Win32::GuiTest qw/SendKeys/;

while(1)

{

my @time = localtime(time);

my $file = sprintf "20%02d_%d_%d_%d_%d_%d.bmp", $time[5]%100, $time[4]+1, $time[3], $time[2], $time[1], $time[0];

my ($try_count, $screen) = (30, undef);

    SendKeys('{PRTSCR}');#调用键盘的print_screen这个键

    $screen = Win32::Clipboard::GetBitmap();#print_screen这个键会截图，存储在内存中，然后用这个剪切板来保存文件

if ($screen) {

    open    BITMAP, "> $file" or die;

    binmode BITMAP;

    print  BITMAP $screen; #在这里将截屏的内容写入文件

    close  BITMAP;

    }

sleep(15);

}

[/perl]

如果大家对我的其它代码感兴趣，可以去我的开源中国主页去查询，但是以后我新的代码只会在我自己的网站里面公布了。

http://www.oschina.net/code/list_by_user?id=1990747