打卡:10 perl string

1 字符串与数组转化
length后面接标量，不能接数组上下文,所以length数组是1

$str="1234567";
@a=split (//,"1234567");

中间什么也不加。可以直接分开没有分隔符的string.列表转成数组

$d1=@d;
$d2=length(@d);
d1=7;d2=1
print $str;
print "str";--------当加上""，perl会自动在每个变量直接加上空格
(1 2 3 4 5 6 7)
$e=@a;-------------表示数组长度
$f="@a";------------数组转成了字符串
$g=join "n",@d-----------数组转成了字符串

2

string reverse
# 倒置所有行，第一行成为最后一行，依次类推（模拟“tac”）

perl -e 'print reverse <>'  

# 将行中的字符逆序排列，第一个字成为最后一字，……（模拟“rev”）?

perl -ple '$_=scalar reverse'  

3: 点号用于连接
# 在每一行后面增加两行空行?

perl -pe '$_ .= "nn"'

x用于重复倍数
# 在每一行开头处插入5个空格（使全文向右移动5个字符的位置）?

perl -pe 'print " "x5'