Perl でファイルの行数を数える

$. が最後に入力したファイルハンドルの行数を格納している
ファイルハンドルを最後まで読み込み,$. を参照すると OK.

#!/usr/bin/env perl

open(FILE, 'hoge') or die;
print <FILE>;   # ファイル内容を出力する場合
# 1 for <FILE>; # ファイル内容を出力しない場合
print $. . '行\n';
close(FILE);

Apache モジュール活用ガイド ― Web デベロッパのための

  4789818357
  amazon.co.jp 詳細ページへ
  千葉 靖伸 (著)
  CQ出版
  ISBN: 4789818357
  2003/03
  1,785 円
  一般にはあまり知られていないが面白いか非常に有用と思われるモジュールを詳しく紹介

Microsoft Wireless IntelliMouse Explorer

  チルトホイール = ホイールが左右にも動かせる.
  欲しい.特に社長マウス.

- 試してみました Microsoft 謹製最新型マウス
  http://direct.ips.co.jp/pc/ihtml/mouse2003/

goo 検索ラボ「3D ウェブ検索」

  http://goo.ntt-infolead.net/073d.html

  なんかどっかで聞いたことのあるセリフだな

通常のウェブページ検索では,テキストとそのページの要約が表示されるだけで,
内容を見るためには 1 つずつクリックしなければなりません.しかし,3D ウェブ検索
では 3D 空間上に検索結果のウェブページ自体を一度に表示します.