Perl で日付の処理

- 楽チン

print scalar(localtime);

  Thu May 15 10:22:54 2003

- 自由度高し

use POSIX qw(strftime);
print strftime "%Y-%m-%d %T\n", localtime;

  2003-05-15 10:22:54

Perl でどこで呼び出されたかを返す caller

open FILE, 'hoge' or error("can't open file\n");

sub error {
    print @_[0];
    my @call = caller;
    print "Package name: $call[0]\n";
    print "File name:    $call[1]\n";
    print "Line no:      $call[2]\n";
}

- エラー時の出力

can't open file
Package name: main
File name:    ./test.pl
Line no:      5

Acrobat Reader Solaris 版

- 5.x (Sparc)
  ftp://ftp.adobe.com/pub/adobe/acrobatreader/unix/5.x/

- 4.x (Intel)
  ftp://ftp.adobe.com/pub/adobe/acrobatreader/unix/4.x/

- 日本語を表示するには，jpnfont.tar.gz も必要

インターネットテレビ電話

- Fresh Voice
  http://community.freshvoice.net/
  使用ポート
  TCP 4443, 4446, 4447, 5443, 5446, 6800～7312, 8500～9012
  UDP 1719, 4000～4008, 4444, 4445, 5500～6012

- Yahoo! メッセンジャー
  http://messenger.yahoo.co.jp/
  使用ポート
  TCP 5100

- 意外と情報が豊富
  http://k-net.pinky.ne.jp/