如何使用perl正则表达式删除起始空格？

Question

在perl中指示空格的方法是什么？ 如何使用perl正则表达式删除起始空格？

Answer 1

my $foo = " \t\n\r  hello, world!";
$foo =~ s/^\s+//;    # This is the line that removes the leading whitespace.
print "$foo\n";
print ord($foo) . "\n";

将显示：

hello, world!
104

104是h的ASCII字符代码，证明该字符串没有前导空格。

Answer 2

这会在字符串（\s+）的开头搜索重复的空格（^），替换为空（即这里的分隔符之间的内容：//）：

$myString =~ s/^\s+//;

Answer 3

$temp = "   Hello world";
#print $temp;
$temp =~ s/^\s+//;
print $temp;