Perl 字符串

2024 年 8 月 29 日 | 4 分钟阅读

字符串是 Perl 语言的重要组成部分。它们是标量变量，因此以 ($) 符号开头。字符串可以在单引号 (') 或双引号 (") 中定义。

Perl 字符串运算符

这些运算符使您可以轻松地以不同方式操作字符串。字符串运算符有两种类型

连接 (.)
重复 (x)

Perl 连接运算符

Perl 字符串使用 (.) 符号而不是 (+) 符号连接。

$firstName = "Christian";
$lastName = "Grey";
$fullName = $firstName . " " . $lastName;
print "$fullName\n";

输出

Christian Grey

Perl 重复运算符

Perl 字符串可以使用 (x) 变量重复多次。

$text = "Thank You ";
$output = $text x 3;
print "$output\n";

输出

Thank You Thank You Thank You

Perl 初始化和声明字符串

在 Perl 中，要在变量名前声明一个字符串，请使用 my 关键字。

可以使用以下语法初始化和声明字符串

在此示例中，我们展示了如何初始化和声明字符串。我们通过以下方式一起打印了几个字符串

使用点 (.) 运算符连接字符串。
将字符串作为单独的参数提供。
将字符串嵌入更大的字符串中。

我们展示了所有三种打印输出的方法。

 use strict;
use warnings;
# Declaring and initializing a string.
my $msg1 = "Welcome at JavaTpoint.";
my $msg2 = "This is our Perl Tutorial.";
#printing using . operator.
print $msg1 . "" . $msg2. "\n";
#print as separate arguments.
print $msg1, "",$msg2, "\n";
#embedd string in a bigger string.
print "$msg1$msg2\n";

输出

Welcome at JavaTpoint. This is our Perl Tutorial.
Welcome at JavaTpoint. This is our Perl Tutorial.
Welcome at JavaTpoint. This is our Perl Tutorial.

Perl 字符串中的格式化字符

Character	描述
\a	响铃
\b	给出退格键
\cX	控制字符。X 是一个字符。
\e	转义下一个字符
\E	它结束 \u、\l 和 \q 函数
\f	为字符串提供换页符
\l	仅将下一个字母转换为小写。
\L	将所有字母转换为小写。
\n	从新行开始下一行
\0nn	创建八进制格式数字
\Q	不匹配该模式
\r	给出回车符
\t	给字符串一个制表符
\u	仅将下一个字母转换为小写。
\U	将字母转换为大写。
\xnn	创建十六进制格式数字

Perl 单引号与双引号字符串

字符串可以放在单引号 (') 或双引号 (") 中，但它们的行为略有不同。

my $user = 'Ana';
print 'Hello $user, welcome at our site.\n';
print "\n";
my $user = 'Ana';
my $day  = "today";
print "Hello $user, welcome at our site $day.\n";

输出

Hello $user, welcome at our site.\n
Hello Ana, welcome at our site today.

在单引号中，所有字符都按原样解释。

双引号提供插值。这意味着字符串中存在的其他变量将表示它们的值。转义字符将替换为其值，例如“\n”将显示一个新行。

Perl substr() 示例

substr() 函数用于截断字符串。我们需要提供一个偏移字符串。字符串将被截断到提供的偏移值。

用偏移量指定长度将在偏移值之后和指定长度之前打印字符串。

如果使用偏移量和长度提供一个新字符串，它将替换偏移量之后到长度值的字符串。

use strict;
use warnings;
# Original string
my $originalstring = "Our site javaTpoint provides all type of tutorials";
print "$originalstring\n";
# Offset of 4
my $offset = substr($originalstring, 4);
print "$offset\n";
# Offset of 4, length 15
my $offsetlength = substr($originalstring, 4, 15);
print "$offsetlength\n";
# Replacing length with the new string
my $replacing = substr($originalstring, 4, 15, "one and only site");
print "$originalstring\n";

输出

Our site javaTpoint provides all type of tutorials
site "javaTpoint" provides all type of tutorials
site javaTpoint
Our one and only site provides all type of tutorials

Perl 字符串比较示例，eq

Perl 字符串始终使用 eq 而不是 (==) 进行比较。它检查两个字符串是否相等。

my $string1 = "Ana";
my $string2 = "Ana";
if($string1 eq $string2) {
    print "Match!\n";
}
my $string3 = "Ana";
my $string4 = "Christian";
if($string3 eq $string4) {
    print "Match\n!";
}else{
    print "Missmatch!\n";
}

输出

Match!
Missmatch!

Perl 确定字符串长度，length()

Perl 字符串长度可以使用 length() 函数确定。

my $msg = "Our site javaTpoint provides all type of tutorials";
print "String Length : ", length($msg), "\n";

输出

String Length : 50

Perl 使用另一个字符串替换一个字符串，s///g

一个字符串可以用另一种方式替换。

在第一个中，我们使用 s/// 将字符串中出现一次的 Tigers 替换为 Lions。

在第二个中，我们使用 s///g 将 roses 全局替换为 flowers。

my $var1 = "Tigers are big and frightening.";
$var1 =~ s/Tigers/Lions/;
print "$var1\n";
my $var2 = "Red roses are very popular. Yellow roses are less seen.";
$var2 =~ s/roses/flowers/g;
print "$var2\n";

输出

Lions are big and frightening.
Red flowers are very popular. Yellow flowers are less seen.

Perl 在字符串中查找匹配项，=~

Perl 提供一个匹配运算符 (=~) 以从字符串中查找子字符串。

my $var = "Tigers are big and frightening.";
if($var =~ /frightening/)
{
	print "Matched\n";
}else{
	print "Match not Found\n";
}
if($var =~ /biggest/)
{
	print "Matched\n";
}else{
	print "Match not Found\n";
}

输出

Matched
Match not Found

Perl 连接两个字符串 (.=)

可以使用 (.=) 运算符将两个字符串连接在一起。

my $str1 = "Where there is a will,";
my $str2 = "there is a way.\n";
my $joining = '';
$joining = $str1 . ' ';
$joining .= $str2;
print $joining;

输出

Where there is a will, there is a way.

下一主题Perl 字符串转义字符

← 上一个下一个 →

我们提供所有技术（如 Java 教程、Android、Java 框架）的教程和面试问题

联系信息

G-13, 2nd Floor, Sec-3, Noida, UP, 201301, India

hr@tpointtech.com

+91-9599086977

关注我们

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

Perl 教程

Perl 控制语句

Perl 数组

Perl 字符串

Perl 命名空间

Perl 哈希

Perl Regex

Perl 函数

Perl 文件处理

Perl 目录

Perl 错误处理

Perl 高级

Perl 面试

Perl 字符串

Perl 字符串运算符

Perl 连接运算符

Perl 重复运算符

Perl 初始化和声明字符串

Perl 字符串中的格式化字符

Perl 单引号与双引号字符串

Perl substr() 示例

Perl 字符串比较示例，eq

Perl 确定字符串长度，length()

Perl 使用另一个字符串替换一个字符串，s///g

Perl 在字符串中查找匹配项，=~

Perl 连接两个字符串 (.=)

相关帖子

Perl 转义字符

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器