#!/usr/bin/perl -w
# 一次更改許多檔案名稱, 大小寫對調. (檔名從 stdin 讀.)
# http://www.cyut.edu.tw/~ckhung/b/pl/

use strict;
my (
    $oldfn			# 舊檔名
);

while (<STDIN>) {		# 對 stdin 輸入的每列做 ...
    chomp $_;			# 去除換列字元
    $oldfn = $_;		# 新檔名和舊檔名一樣, 只是 ...
    $_ =~ tr/a-zA-Z/A-Za-z/;	# 要把所有的小寫改成大寫.
    rename $oldfn, $_;		# 呼叫內建函數真的改檔名. 見 perlfunc(1)
}