プログラミング学習の記録 719.2 8章(ファイルハンドルへのリファレンス)の練習問題1(IO::Tee)『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix　著、伊藤 直也、田中 慎司、吉川 英興　監訳、株式会社ロングテール／長尾 高弘　訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の 8章(ファイルハンドルへのリファレンス),　8.6(練習問題)、1を解いてみる。

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use IO::Tee; my $fh; my $scalar; print "出力先を指定(file/scalar/both)\n"; my $out = <STDIN>; if($out == "file"){ 　open $fh, ">>", "$out.out"; } elsif ($out == "scalar"){ open $fh, ">>", \$scalar; } elsif ($out == "both"){ open $fh, ">>","$out.out"; open $fh, ">>",\$scalar; } else { die "入力内容を確認してください。"; } my $date = localtime; print $fh <<"$date";

入出力結果(Terminal)

$ perl -v This is perl 5, version 12, subversion 3 (v5.12.3) built for darwin-thread-multi-2level (with 2 registered patches, see perl -V for more detail) Copyright 1987-2010, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page.

IO::Teeを使うためのPerl 5.8以降の使い方が分からない。。とりあえず上記な感じのプログラムでいいのかな〜。