獲取字符串中的起始空間使用perl

Question

我想要獲得空白區域並將其分配給使用perl的字符串。

我有一個字符串

$line = " Testing purpose"

我想在字符串中的空白，並將其分配給另一個字符串。 任何人都可以幫我嗎？

$line = "  Testing purpose"; 

$space = " "; （這個空間變量將有空間從$line。）

Answer 1

使用正則表達式。

$line =~ m/^(\s*)/; 
$space = $1; 

這將匹配空格和製表符，保留原始字符串未修改。如果你還想從原始字符串中刪除空格，請使用：

$line =~ s/^(\s*)//; 
$space = $1;