perl如何在perl中进行字符串对齐

Question

如果我有两个不同的字符串,如:

my $a = "garfieldaagt";
my $b = "field";

我需要将它们对齐

garfieldaagt
   field

比较它们,我怎么能这样做？

有任何想法吗？谢谢

Answer 1

您可以使用索引函数搜索字符串中的字符串,然后使用x重复运算符将子字符串与在较长字符串中找到它的位置对齐.

$a = "garfield";
$b = "field";
print $a,"\n";
print " " x index($a,$b) ,$b,"\n";