perl 拼接字符串

在Perl中，你可以使用不同的方法来拼接字符串。以下是一些常用的方法：

1. 使用.运算符拼接字符串：

my $str1 = "Hello, ";
my $str2 = "World!";
my $result = $str1 . $str2;
print $result;  # 输出：Hello, World!

2. 使用.= 运算符在原始字符串后追加内容：

my $str = "Hello, ";
$str .= "World!";
print $str;  # 输出：Hello, World!

3. 使用双引号内插法（Double-quoted interpolation）：

my $str1 = "Hello";
my $str2 = "World";
my $result = "$str1, $str2!";
print $result;  # 输出：Hello, World!

4. 使用join函数连接数组元素为字符串：

my @words = ("Hello", "World");
my $result = join(", ", @words);
print $result;  # 输出：Hello, World

5. 使用Perl 5.10及以上版本的say函数（需要在脚本开头加入use feature 'say';或者use 5.010;）：

my $str1 = "Hello";
my $str2 = "World";
say "$str1, $str2!";

注意：say函数会自动添加换行符。

这些方法中，使用.运算符和.=运算符是最常见的字符串拼接方式。使用双引号内插法可以在字符串中插入变量值，而join函数则适用于将数组元素连接成一个字符串。say函数则是用来方便地打印字符串并自动添加换行符。你可以根据具体的需求选择适合的方法进行字符串拼接。