加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

消除不可见的字符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:]]+//;

可以工作?

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读