perlで正規表現を使ってみた

　行頭が HH:MM 形式の時間表記で始まっている時のみ、その行を印刷してみる。

　while(<>){
    chomp;
    if (/^[0-2][0-9]:[0-5][0-9]/){
	print "$_\n";
    }
  }

　正規表現自体は、他の言語で使ったことがあるので、そんな難しくは無い。
　if文の条件として直接指定できたりする辺りが非常に扱いやすい。
　勉強を始めて約半月たったが、ちょっとしたテキスト処理なら、perlでやるのがかなり楽、というレベルまでは進歩してきた。いいぞ、この調子。