perl - 使用 perl 获取字符串中的起始空间

Question

我正在尝试获取空白并将其分配给使用perl.

我有一个字符串

$line = " Testing purpose"

我想获取该字符串中的空白并将其分配给另一个字符串。有人能帮我一下吗？

$line = "       Testing purpose";

$space = " "; （这个空间变量的空间来自$line。）

Answer 1

使用正则表达式。

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

这将匹配空格和制表符，不修改原始字符串。如果您还想从原始字符串中删除空格，请使用以下命令：

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