perl 编程求助 my$docRoot=\"/path/；最后一定要 '/'opendir D，\"$docRoot\"or die\"Can't read dir$docRoot$/；while(my$fd=readdir D){next unless-f$docRoot.$f；排除了资料夹open F，\"$docRoot$f\"or warn\"Can't open file$docRoot$f$/；data=；close F；print\"${docRoot}${f}：$data[$#data-3]$/$/；}closedir D；应该是这样写的，但还没测试过，有错告诉我啊。
谁知道perl编程里的s/^\\s+//； 这个语句是什么意思？ 谁知道perl编程里的s/^\\s+；这个语句是什么意思？谁知道perl编程里的s/^\\s+；这个语句是什么意思？s/^\\s+；正则里，^匹配来行首（字源符串开始位置）\\s 匹配任意的空白符，。
PERL编程 入门问题 可以用qx。如：my@re=qx\"ls*.xml；print@re；你可以对结果（数组里就是保存好的执行结果）进行二次处理。反引号 或 system()只是调用命令，不能返回命令执行的结果。你要根据实际的需要来用相应的调用方法。
