使用perl获取String中的起始空间

Question

我正在尝试获取空格并使用perl将其分配给字符串。

我有一个字符串

$line = " Testing purpose"

我想获取该字符串中的空格并将其分配给另一个字符串。 任何人都可以帮助我吗？

$line = "       Testing purpose";

$space = " "; （此空间变量将具有$line的空格。）

Answer 1

使用正则表达式。

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

这将匹配空格和制表符，保留原始字符串不变。如果您还想从原始字符串中删除空格，请使用：

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