第 3 回 - Perl 入門(1)

[10/12, 2009 H.Aman]
67x27(1669bytes)   67x27(1669bytes) 【例題 2】

課題 1-1

例題 1 の cat_n.pl を書き換え, 行番号が偶数の行だけを出力するようにしなさい.

(ヒント)
if 文や変数 $n に対する演算が必要となるが,文法は C 言語と同じである.
ただし,if 文では,単文でも { ... } で囲む必要があるので注意すること.
つまり,

     if ( ... ) xxx; 
はエラーになるので
     if ( ... ){
         xxx;
     }
と書くこと.

課題 1-2

例題 1 の cat_n.pl を参考にして, テキストファイルの行数と文字数を出力する Perl スクリプト wc.pl を作りなさい.

(ヒント)
$line に一行分の文字列が格納されているが,その文字数は

     length($line);
で調べることができる.

※実行例

     $ perl wc.pl < foo.c
     行数 = 19
     文字数 = 224