perl写的非主流文件查询工具(百度)

Hacksign

工作需要,写的一个文件查询工具(就是通过百度查某一个文件是干嘛的),木有啥技术含量...高手请无视..........
主要是懒得开浏览器,把这个文件复制到sendto目录,平常查询就很方便了.

说明:
1。需要perl环境(推荐activeperl).
2。文件名称形式为:md5_name.xxx,其中,md5为文件md5，name为文件名,xxx为后缀.如果这种形式的文件名不符合你的习惯,可以修改源程序中的get_file_name函数.

悲剧...不能传文件.....贴源码吧....

#!D:\Perl\bin\perl.exe -w

use strict;
use LWP;
use HTML::Parser;

our $cache_file = 'search_resule.html';

sub get_file_name{
 my $filename = shift@ARGV;
 my $index = index($filename,'_');
 $filename = substr($filename,$index + 1);
}
sub search{
        my $url = 'http://www.baidu.com/s?wd='.get_file_name;
        my $browser = LWP::UserAgent->new;
        my $respone = $browser->get($url);

        if($respone->is_success){
                open OUTFILE,">$cache_file" or die "cannot open cache_file";
                print OUTFILE $respone->content;
                close OUTFILE;
        }else{
                print "error:".$respone->status_line."\n";
        }
}
sub print_info{
        open FF,"<$cache_file" or die "cannot open cache_file";

        while(<FF>){
                my $bool = 0;
                if(/^<table.*>/ || $bool == 1){
                        s/<\/font>/\n/g;
                        s/.*百度快照.*/--------------------------------------------------------------------------------------------/g;
                        s/<.+?>//g;
                        print;
                }

                if(/下一页/){ $bool = 0; }else{$bool = 1;}
        }
        close(FF);
}

search;
print_info;
unlink($cache_file);
print "[+]done!\n";
<>

tcwjw

學習了

lkou

#!D:\Perl\bin\perl.exe -w

#!/usr/bin/perl.exe -w


一般没人会装D盘，而且perl装完后就直接设置patch路径了，按照常规都是装在usr目录下面

Hacksign

回复 3# lkou


    那个....windows系统......而且,win系统的话,这一行无所谓,因为会搜索环境变量~

lkou

这样啊，我以为和web下面一样，路径错就无法执行了

一曲离别

来学习一下

lxj520dyn

不错的东西。借鉴了