Perl tr用法及代码示例

中的 tr 运算符珀尔将SearchList的所有字符转换为ReplacementList的相应字符。
这里SearchList是给定的输入字符，其将被转换成替换列表中给定的相应字符。

用法： tr/SearchList/ReplacementList/

返回：替换或删除的字符数

示例 1：此示例使用 tr 运算符将小写字母转换为大写字母。


#!/usr/bin/perl 
   
# Initializing the strings 
$string1 = 'gfg is a computer science portal'; 
$string2 = 'geeksforgeeks'; 
  
# Calling tr function 
$string1 =~ tr/a-z/A-Z/; 
$string2 =~ tr/a-z/A/; 
  
# Printing the translated strings 
print "$string1\n"; 
print "$string2\n";

输出：

GFG IS A COMPUTER SCIENCE PORTAL
AAAAAAAAAAAAA

示例 2：此示例使用 tr 运算符将大写字母转换为小写字母。


#!/usr/bin/perl 
   
# Initializing the strings 
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL'; 
$string2 = 'GEEKSFORGEEKS'; 
  
# Calling tr function 
$string1 =~ tr/A-Z/a-z/; 
$string2 =~ tr/A-Z/p/; 
  
# Printing translated strings 
print "$string1\n"; 
print "$string2\n";

输出：

gfg is a computer science portal
ppppppppppppp

示例 3：此示例使用 tr 运算符将大写字母转换为数字形式。


#!/usr/bin/perl 
   
# Initializing the strings 
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL'; 
$string2 = 'GEEKSFORGEEKS'; 
  
# Calling tr function 
$string1 =~ tr/A-Z/0-9/; 
$string2 =~ tr/A-Z/5/; 
  
# Printing translated strings 
print "$string1\n"; 
print "$string2\n";

输出：

656 89 0 29999949 9284924 999909
5555555555555

‘s’运算符的使用：
‘s’ 运算符用于 ‘tr’ 运算符的末尾，用于检测给定字符串中的重复字符并将其替换为指定字符。

例子：


#!/usr/bin/perl 
   
# Initializing the strings 
$string1 = 'geeksforgeeks'; 
$string2 = 'geeksforgeeks'; 
  
# Calling tr function 
# without appending 's' to 'tr' operator 
$string1 =~ tr/ee/e/; 
  
# Appending 's' to 'tr' operator 
$string2 =~ tr/ee/e/s; 
  
# Printing translated strings 
print "$string1\n"; 
print "$string2\n";

输出：

geeksforgeeks
geksforgeks

在上面的代码中，可以看出，当‘s’附加到‘tr’运算符的末尾时，它会用单个“e”替换重复的“e”，即“ee”。

‘c’运算符的使用：
‘c’ 运算符用于 ‘tr’ 运算符的末尾，用于检测给定字符串中的空格 (‘ ‘) 字符并将其替换为指定字符。

例子：


#!/usr/bin/perl 
   
# Initializing the strings 
$string1 = 'gfg is a computer science portal'; 
$string2 = 'gfg is a computer science portal'; 
  
# Calling tr function 
# without appending 'c' to 'tr' operator 
$string1 =~ tr/a-z/_/; 
  
# Appending 'c' to 'tr' operator 
$string2 =~ tr/a-z/_/c; 
  
# Printing translated strings 
print "$string1\n"; 
print "$string2\n";

输出：

___ __ _ ________ _______ ______
gfg_is_a_computer_science_portal

在上面的代码中，可以看到在每个单词之间使用了符号下划线(“_”)，这是通过附加‘c’来完成的。

Note 1: This tr operator does the task of lc() function and uc() function as well as it translates the input characters into numeric form etc.

Note 2: This tr operator is slightly different from y operator because y operator does not use the appending of “c” or “s” to the operator but tr operator does.

相关用法

注：本文由纯净天空筛选整理自Kanchan_Ray大神的英文原创作品 Perl | tr Operator。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。