消除不可见的字符perl
发布时间:2020-12-16 06:27:34 所属栏目:大数据 来源:网络整理
导读:我有一个perl变量,正在从另一个脚本的STDOUT读入: $var = `someScript.sh`print $var ---- Prints "somestring" 但是,该变量包含的不仅仅是“somestring”.变量前面还有15个字符(特殊而非特殊但隐藏),在打印时不显示. length($var) --- Returns a number 10
我有一个perl变量,正在从另一个脚本的STDOUT读入:
$var = `someScript.sh` print $var <---- Prints "somestring" 但是,该变量包含的不仅仅是“somestring”.变量前面还有15个字符(特殊而非特殊但隐藏),在打印时不显示. length($var) <--- Returns a number 10-15 larger than "somestring" has chars 我可以消除像这样的特殊字符: $var =~ s/[^[:print:]]+//g 但是,一旦特殊字符被删除,似乎还会显示非特殊字符: print $var <---- Displays "0;<hostname>somestring" (where <hostname> is the system hostname) 有没有办法消除特殊字符和被隐藏的非特殊字符?我希望能够使用$var作为哈希的键,然后通过“somestring”引用它 $hash{$var} = 123 print $hash{'somestring'} 思考? 解决方法
我们可以假设您要删除的字符位于不可打印的字符之前吗?
如果是这样,也许就像 $var =~ s/.*[^[:print:]]+//; 可以工作? (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |