按照sourceInsight的搜索结果提取文件

最新推荐文章于 2024-09-03 18:25:26 发布

排烟小达人

最新推荐文章于 2024-09-03 18:25:26 发布

阅读量1.6k

点赞数

分类专栏： PERL 文章标签： sourceInsight 提取文件

本文链接：https://blog.youkuaiyun.com/fy_lei/article/details/9359377

版权

本文介绍如何根据SourceInsight的搜索结果文件‘×.SearchResults’，将其中列出的所有文件提取并移动到特定目录。在使用此方法前，请确保你的搜索设置能够全面覆盖所需文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

利用sourceInsight的搜索结果“×.SearchResults”文件，提取文件到指定目录下。

使用这个脚本，要注意的是你在利用sourceInsight搜索时要充分保证能把文件都搜索出来。

代码如下：

#!usr/bin/perl

##
## getfile.pl test.SearchResults  F:\test
##
## 用来根据sourceinsight的搜索结果"*.SearchResults"文件提取目标文件
##
## sourceinsight的搜索结果一般为"filename (path) : ..."
## 如果"(path)"为空说明为file在当前目录下, 否则表示file在当前目录的相对路径下
##
## 2013-07-17, first version.
##

use strict;
use File::Path;
use File::Copy;

my $rsltFile = ${ARGV[0]}; ##sourceInsight的搜索结果文件
my $workPath = ${ARGV[1]}; ##欲提取的文件源目录
my $destPath = ${ARGV[2]}; ##输出文件的存放目录

if ($rsltFile eq "" || $workPath eq "")
{
    die "\nParameter error!\n[USAGE] $0 souceInsight_SearchResults_file work_path [output_path]\n";
}

print "\n----Process begin----\n\n";

$rsltFile =~ s/\\/\//g;
$workPath =~ s/\\/\//g;

if ($destPath eq "")
{
    $destPath = $workPath."/__o