Perlの正規表現で行頭の空白文字を消してみる

Perlで文字列を整形する方法の覚え書きパート1。

#行頭の空白文字を消す

trim.pl

use strict;
use warnings;

while (my $line = <>) {
    #改行を削除
    chomp $line;

    #先頭の空白を削除
    $line =~ s/^\s+//;

    #標準出力にプリント
    print "$line\n";
    }

シェルで$ perl hoge.pl textってやると、textが一行ずつ$lineに読み込まれる。そして、正規表現でパターンを指定して置換する。$line =~ s/^\s+//;の~\s+で行頭にある1文字以上の空白文字にマッチさせ、//で削除している。
先頭に空白がある行を含むサンプルファイルをつくってトリムしてみよう。

space.txt

  01 23 35
aa bb cc
 foo foo boo

実行。

$ perl trim.pl space.txt

01 23 35
aa bb cc
foo foo boo

先頭のスペースが消えた。