Question

$string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e 这个是perl语言 什么意思啊

刚学的perl $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e 这是什么意思啊

Answer 1

--这句话的意思是说：吧字符串里的制表符 \t 换为等长度的空格

因为每种机器规定的tab长度不等，有相当于4个空格的，有是8个的~

--你把它改成星号，执行一次就明白了

$string =~ s/\t+/"*" x (length($&) * 8 - length($`) % 8)/e;

Answer 2

正则表达式默认的是修改$_变量
$string =~是绑定$string为被修改的变量， 后面的表达式原型是 s/str1/str2/；意思是str2替换str1；
首先看str1，\t代表制表符，也就是tab输入的空白，+代表重复1到n次。也就是说，str1匹配至少有一个制表符组成的字符串。
str2~我也水平有限~实在是说不清了。最好能看看程序其他部分。。。。