Perl - 正規表現の世界(行末の空白文字を出力(文字列の末尾(\z)))

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、8章(正規表現によるマッチ)の8.10(練習問題)6.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

8.10(練習問題)6.

コード(BBEdit, Emacs)

sample190_6.pl

#!/usr/bin/env perl
# use diagnostics;
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

while (<>) {
    chomp;
    if (/\s+\Z/) {
        say "$_#";
    }
}

入出力結果(Terminal)

$
Mr. Slate     #
Bamm-Bamm    #
Fred and Wilma      #
Mrs. Fred Flintstone   #
$ cat temp.txt
A
a
kamimura's blog
http://sitekamimura.blogspot.com
KMI
http://www.mkamimura.com
frederick
Wilma
Alfred
Wilma
fred flintstone
Wilma
Wilmaerick
AlWilma
Wilma flintstone
Mr. Slate     
Mississippi
Bamm-Bamm    
wilama
barney
Fred and Wilma
Wilma and Fred
Fred and Wilma      
Wilma and Fred
Fred&Wilma
Mrs. Fred Flintstone   
I saw Fred yesterday
I, Fred!
Z
llama
fred
$