跳转至

Perl | y 运算符

原文:https://www.geeksforgeeks.org/perl-y-operator/

Perl 中的 y 运算符将搜索列表的所有字符转换为替换列表的相应字符。 这里的搜索列表是给定的输入字符，这些字符将被转换成替换列表中给出的相应字符。

语法:y/search list/replacement list/

返回:翻译后的字符串

示例 1: 本示例使用 y 运算符从小写转换为大写。

#!/usr/bin/perl

# Initialising some strings
$string1 = 'gfg is a computer science portal';
$string2 = 'geeksforgeeks';

# Calling to y function
$string1 =~ y/a-z/A-Z/;
$string2 =~ y/a-z/A-Z/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

输出:

GFG IS A COMPUTER SCIENCE PORTAL
GEEKSFORGEEKS

示例 2: 本示例使用 y 运算符从大写转换为小写。

#!/usr/bin/perl

# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';

# Calling to y function
$string1 =~ y/A-Z/a-z/;
$string2 =~ y/A-Z/a-z/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

输出:

gfg is a computer science portal
geeksforgeeks

注意:这个 y 运算符执行 lc()函数和 uc()函数的任务，以及将输入字符翻译成数字形式等。

示例 3: 本示例使用 y 运算符将大写转换为数字形式。

#!/usr/bin/perl

# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';

# Calling to y function
$string1 =~ y/A-Z/0-9/;
$string2 =~ y/A-Z/0-9/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

输出:

656 89 0 29999949 9284924 999909
6449959964499
回到顶部