2007-12-08から1日間の記事一覧
練習問題の回答をメモ。 ex08-1 #!/usr/bin/perl use strict; use warnings; use IO::Tee; my $choice; while (1) { print "1: File, 2: Scalar, 3: Both, q: quit\n"; print "Which of above do you want your output to go?: "; chomp($choice = <STDIN>); last i</stdin>…