2014年3月14日金曜日

開発環境

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

その他参考書籍

7.4(練習問題)1.

コード(BBEdit, Emacs)

sample.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';

my $filename = $ARGV[0];

open my $in_fh, '<', $filename or die "can't open '$filename': $!";

while (<$in_fh>) {
    if (/fred/) {
        print $_;
    }
}
close $in_fh;

入出力結果(Terminal)

$ ./sample162_1.pl abcde.txt
can't open 'abcde.txt': No such file or directory at ./sample162_1.pl line 13.
$ ./sample162_1.pl temp.txt
frederick
Alfred
fred flintstone
fred
$ 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
$

0 コメント:

コメントを投稿