perl新人求助if(m@[*?\[\]]@)

ytlvy

UID: 17700
帖子: 1
积分: 2
在线时间: 10 分钟

1^# ytlvy 发表于 2007-10-26 12:13

perl新人求助if(m@[*?\[\]]@)

在一篇批量反编译chm文档的脚本的精华文章里，看到一句判断空格的这句话是什么意思啊，if(m@[*?\[\]]@)

#!/usr/bin/perl

#Decompile .chm file to html format.

#Author Huang Yong.

#2007-9-10

#Usage:progname filename1 filename2 ...

#可使用通配符

use File::Copy;
use File::Basename;

sub decompiler
{
    my $chmfile = $_[0];
    my $tmp = "temp";
    my $i=1;
    while (-e "$tmp.chm" or -d $tmp){
    $tmp = $tmp.$i;
    $i++;
    }
    die "Cannot open file $chmfile" unless (-e $chmfile);

    copy($chmfile,"$tmp.chm") or die "Copy failed: $!";

    mkdir ("$tmp") or die "Cannot create temp!";
    `hh.exe -decompile $tmp $tmp.chm`;
    my $html_dir = basename($chmfile);
    $html_dir =~ s/\.chm$//;
    move("$tmp",$html_dir);
    unlink ("$tmp.chm");
}

for(@ARGV){
    my @chmfile;
    if(m@[*?\[\]]@){
       @chmfile =glob($_);
    }
    else{
       push(@chmfile,$_);
    }
    for $file(@chmfile){
        print "正在反编译 $file,请稍候...\n";
        decompiler($file);
        print "文件$file编译完成。\n"
    }
}

ubac

UID: 8216
帖子: 71
积分: 163
在线时间: 7 小时

2^# ubac 发表于 2007-10-26 13:02

就是模式匹配啊，也就是m/your regex/
模式匹配的分割符不一定就是"/"，还有可能是m(regex),m<regex>等等

ytlvy

UID: 17700
帖子: 1
积分: 2
在线时间: 10 分钟

3^# ytlvy 发表于 2007-10-26 13:45

谢谢了