はじめてのPerl 第8章 正規表現によるマッチ 練習問題6

入力した行のうち、空白文字がある行を全て表示する新しいプログラムを作成してください。出力する業の末尾には、わかりやすいように目印になる文字を表示してください。（空白行が存在する行の末尾には*をつけて表示しています。）

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

while(<>){
  chomp;
   if($_ =~ /(\s$)/){
     print "$_ *\n"; #*まで空文字が含まれています。
  }else{
    print "$_ \n";
  }
}

入力値として与えたファイルの内容は以下の通りです。

全角スペースは空白文字とはみなされない。　
Space2   
space none
space3    
space5      
space none
spacenone

実行コマンドは以下の通りです。

$ cat names2.txt | ./practice6.pl

結果は以下の通りです。

全角スペースは空白文字とはみなされない。　
Space2   *
space none
space3    *
space5      *
space none
spacenone