perl如何批量提取所有文件固定位置内容到另一个文件

use strict;
&findfile;
sub findfile
{
    my $some_dir = "c:/tmp/a";
    
    opendir(my $dh, $some_dir) || die "Can't open $some_dir: $!";
    while (my $fn = readdir $dh) {
        next if ($fn eq '');         # 跳过两个系统目录
        next if ($fn eq '');
        next if ($fn =~ /^~/);         # 看情况是否需要跳过其它文件
        next if (!($fn =~ /\txt$/));
        
        print "正在分析文件[$fn]\n";
        &check_file("$some_dir\/$fn");  # 依次检查每一个文件
    }
    closedir $dh;
}
sub checkfile
{
    my $fn = shift;
    open FILE, "<$fn";
    
    foreach my $line (<FILE>)
    {
        chop($line);
        next if ($line !~ /^检测/);        # 跳过不是“检测”两字开头的行
        
        if ($line =~ /# (V) #/)          # 判断是否有"# xxxV #" 字样的字符串
        {
            #如果有，则$1的内容为上面小括号的内容，如“327V”
            my $data = $1;
            # 然后你想将$data放哪？
            print "[$data]\n";
        }
    }
    close FILE;
        
}

以上就是关于perl如何批量提取所有文件固定位置内容到另一个文件全部的内容，包括:perl如何批量提取所有文件固定位置内容到另一个文件、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！