如何使用 perl 从变量中删除特殊字符 [关闭]

Posted 2023-03-24

【中文标题】如何使用 perl 从变量中删除特殊字符 [关闭]

【英文标题】：How can i remove special character from a variable using perl [closed]

【发布时间】：2020-09-19 07:55:22

【问题描述】：

这是我的示例代码

#!/usr/bin/perl
$file = SUN;
$file1 = abc.$file.cde
print "Value is : $file1\n"

我想要这样的输出 abcSUNcde 这需要什么正则表达式。

【问题讨论】：

1) 您应该始终使用use strict; use warnings;。 1a) 你应该总是声明你的变量。 （use strict; 会强迫你）。 1b）您不应该依赖未引用的单词被视为字符串。 （use strict; 会强迫你引用它们）

2) 您缺少分号 ;。有了这些，你的程序实际上会输出abcSUNcde。我看不出您要删除哪些“特殊字符”，也看不出正则表达式与什么有关。

【参考方案1】：

ikegami 在他的评论中说你在行尾缺少分号（终止行或行应该结束）。

#!/usr/bin/perl
$file = SUN;
$file1 = "abc$filecde";
print "Value is : $file1\n";

这将打印abcSUNcde 作为代码的输出。

如果你想删除特殊字符（what I understand except keyboarding characters）

$file2=~s/[^A-Za-z]//g;

试试这个，你也可以修改。

【讨论】：

A-z 是一个相当奇怪的字符范围可供选择。我怀疑你的意思是A-Za-z。

@ikegami：我听不懂()

( 和 ) 位于 A 和 z 之间。 （但你已经改变了）