求助，perl的正则表达式的问题,麻烦大神给看看，谢谢

神之战戟

现在打算写个脚本，用svn更新E盘，如果锁定，就执行cleanup并重新更新E盘，现在写成这个样子了：
print "\nsvn up E:......\n";
    my $svnres = `svn up  E:`;

    print $svnres;
    if ($svnres =~ /locked/)
    {
         print "Inner";
         my $svnclr = `svn cleanup  E:`;
         redo;
    }

执行结果
svn up  E: ......
svn: Working copy 'E:' locked
svn: run 'svn cleanup' to remove locks (type 'svn help cleanup' for details)

为什么现在报锁定 没有执行到cleanup呢，里面的Inner的打印也没有 这个样子匹配不正确吗？

pitonas

匹配正确
不正确   redo;

zhlong8

出现违背常识的现象时多用 Data::Dumper 看下数据到底是什么