Question

一行Perl代码，请问下什么意思 my ($dir,$name)=$_=~/.*\/(.*?)\/(.*?)\/R/;

my ($a,$b)=$_=~/.*\/(.*?)\/(.*?)\/R/;

Answer 1

执行正则表达式匹配，把匹配的结果$1、$2依次赋值给等号左边括号里面的变量。