打卡: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 '$_ .= "\n\n"'

x用于重复倍数

# 在每一行开头处插入5个空格（使全文向右移动5个字符的位置）

perl -pe 'print " "x5'