Perl 字符串运算符

Perl 提供了丰富的字符串处理功能，包括多种字符串运算符和函数。本章将详细介绍 Perl 中的字符串运算符。

字符串连接运算符

. 运算符

. 是 Perl 中用于连接字符串的运算符。它可以将两个或多个字符串连接在一起形成一个新的字符串。

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

x 运算符

x 运算符用于重复一个字符串指定的次数。它通常用于生成一定长度的字符串，如填充字符串。

my $str = "abc";
my $repeated_str = $str x 3;
print $repeated_str; # 输出 abcabcabc

字符串比较运算符

Perl 中的字符串比较运算符与数值比较运算符类似，但它们会根据字符串的内容进行比较。

eq 运算符

eq 运算符用于比较两个字符串是否相等。

my $str1 = "hello";
my $str2 = "world";

if ($str1 eq $str2) {
    print "字符串相等\n";
} else {
    print "字符串不相等\n"; # 输出字符串不相等
}

ne 运算符

ne 运算符用于比较两个字符串是否不相等。

my $str1 = "hello";
my $str2 = "world";

if ($str1 ne $str2) {
    print "字符串不相等\n"; # 输出字符串不相等
} else {
    print "字符串相等\n";
}

lt 和 gt 运算符

lt 运算符用于比较两个字符串，如果第一个字符串按字典顺序小于第二个字符串，则返回真值。

gt 运算符用于比较两个字符串，如果第一个字符串按字典顺序大于第二个字符串，则返回真值。

// www.javascriptcn.com code example
my $str1 = "apple";
my $str2 = "banana";

if ($str1 lt $str2) {
    print "$str1 小于 $str2\n"; # 输出 apple 小于 banana
}

if ($str1 gt $str2) {
    print "$str1 大于 $str2\n";
} else {
    print "$str1 小于 $str2\n"; # 输出 apple 小于 banana
}

le 和 ge 运算符

le 运算符用于比较两个字符串，如果第一个字符串按字典顺序小于等于第二个字符串，则返回真值。

ge 运算符用于比较两个字符串，如果第一个字符串按字典顺序大于等于第二个字符串，则返回真值。

// www.javascriptcn.com code example
my $str1 = "apple";
my $str2 = "banana";

if ($str1 le $str2) {
    print "$str1 小于等于 $str2\n"; # 输出 apple 小于等于 banana
}

if ($str1 ge $str2) {
    print "$str1 大于等于 $str2\n";
} else {
    print "$str1 小于等于 $str2\n"; # 输出 apple 小于等于 banana
}

cmp 运算符

cmp 运算符用于比较两个字符串，并返回 -1、0 或 1。如果第一个字符串按字典顺序小于第二个字符串，返回 -1；如果相等，返回 0；否则返回 1。

// www.javascriptcn.com code example
my $str1 = "apple";
my $str2 = "banana";

my $result = $str1 cmp $str2;

if ($result == -1) {
    print "$str1 小于 $str2\n"; # 输出 apple 小于 banana
}

if ($result == 0) {
    print "$str1 等于 $str2\n";
}

if ($result == 1) {
    print "$str1 大于 $str2\n";
}

字符串截取运算符

substr 函数

substr 函数用于从字符串中提取子串。它可以接受三个参数：原始字符串、开始位置和长度。

my $str = "Hello, World!";
my $sub_str = substr($str, 7, 5);
print $sub_str; # 输出 World

如果省略长度参数，substr 函数将提取从指定位置到字符串末尾的所有字符。

my $str = "Hello, World!";
my $sub_str = substr($str, 7);
print $sub_str; # 输出 World!

如果开始位置为负数，表示从字符串末尾开始计算位置。

my $str = "Hello, World!";
my $sub_str = substr($str, -6, 5);
print $sub_str; # 输出 World

如果长度为负数，表示从指定位置开始向后截取指定长度的字符。

my $str = "Hello, World!";
my $sub_str = substr($str, 7, -1);
print $sub_str; # 输出 World

字符串替换运算符

s/// 运算符

s/// 运算符用于替换字符串中的部分文本。它可以接受三个部分：待替换的模式、替换文本和可选的标志。

my $str = "Hello, World!";
$str =~ s/World/Perl/;
print $str; # 输出 Hello, Perl!

使用全局替换标志 g 可以替换字符串中所有匹配的部分。

my $str = "Hello, World! Hello, Perl!";
$str =~ s/Hello/Hi/g;
print $str; # 输出 Hi, World! Hi, Perl!

使用忽略大小写标志 i 可以使替换操作不区分大小写。

my $str = "Hello, World!";
$str =~ s/world/Perl/i;
print $str; # 输出 Hello, Perl!

字符串格式化运算符

sprintf 函数

sprintf 函数用于格式化字符串。它类似于 C 语言中的 printf 函数，但返回的是格式化后的字符串而不是直接输出。

my $num = 12345.6789;
my $formatted_num = sprintf("%.2f", $num);
print $formatted_num; # 输出 12345.68

可以使用不同的格式化选项来控制输出的精度、宽度等。

my $num = 12345.6789;
my $formatted_num = sprintf("%8.2f", $num);
print $formatted_num; # 输出   12345.68

以上是 Perl 中的字符串运算符详解。这些运算符和函数提供了强大的字符串处理能力，能够满足各种复杂的字符串操作需求。