perl - perlを使用して文字列の開始スペースを取得します

Question

空白を取得し、を使用して文字列に割り当てようとしていますperl。

私は文字列を持っています

$line = " Testing purpose"

その文字列の空白を取得して、別の文字列に割り当てたいと思います。誰かがここで私を助けることができますか？

$line = "       Testing purpose";

$space = " "; （このスペース変数には、からのスペースが含まれ$lineます。）

Answer 1

正規表現を使用します。

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

これはスペースとタブに一致し、元の文字列は変更されません。元の文字列からもスペースを削除する場合は、次を使用します。

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