perl 修改文件名

qizhi502

回复 10# zhlong8


这个也可提取（）中内容
$newfile = (split/([()])/,$file)[2]  #提取 () 中的内容

zhlong8

回复 11# qizhi502


    当然可以，只是$newfile = (split/([()])/,$file)[2]  你知道到底是什么意义就行

zhlong8

回复 13# qizhi502


    你要从字符串中提取内容有几种方法如 substr unpack 等，这里只讲 RE 的。一是在 m// 中用 () 捕获，再就是把不需要的都用 s/// 给替换为空。

    m//中用 () 捕获则结果在包变量 $1, $2 ... 中，你用的 $string =~ /M.{5}^-?\d+$/; 一没用 () 捕获，二是没用 $string = $1; 把 $string 变为捕获的字符串。你还是先多看看 RE 的入门吧，没别的意思 :)