这行在Perl中有什么作用?

问题描述:

这行在Perl中有什么作用?这行在Perl中有什么作用?

s/\s//g; 

我看,用于在输入文件中搜索和计数某些字符的剧本,我理解的代码一切,除了这一行。我想知道这行代码为脚本做了什么?

+0

几乎看起来像sed模式替换文本。见http://www.thegeekstuff.com/2009/09/unix-sed-tutorial-replace-text-inside-a-file-using-substitute-command/?utm_source=sitekickr&utm_medium=snip_button – mattias

+1

看起来像它会删除所有的空格从默认的'$ _'变量。 's //是文本替换,'\ s'是空白,用nohting代替(因为第二个和第三个斜杠之间没有任何内容),并将它应用于任何地方('g' for global)。 – AntonH

s/\s//g; 

是短期的

$_ =~ s/\s//g; 

它被绑定到一个$_substitution operator。它将替换$_中与regex pattern\s相匹配的所有序列。 (没有g,它只会替换第一个。)

\s匹配空白字符。