From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Apr 21 19:22:54 2004
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id i3LAMsk96526;
	Wed, 21 Apr 2004 19:22:54 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from n2.hopemoon.com (usen-221x115x147x174.ap-US01.usen.ad.jp [221.115.147.174])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with SMTP/inet id i3LAMs996521
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 21 Apr 2004 19:22:54 +0900 (JST)
	(envelope-from tsuda@hopemoon.com)
Received: (qmail 40175 invoked by uid 1006); 21 Apr 2004 10:22:33 -0000
Received: from unknown (HELO ?192.168.5.1?) (221.115.147.173)
  by localhost with SMTP; 21 Apr 2004 10:22:33 -0000
From: Tsuda <tsuda@hopemoon.com>
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <86ad15ishz.wl@vc-net.ne.jp>
References: <20040421.152229.74746265.sugitk@rio.odn.ne.jp> <86ad15ishz.wl@vc-net.ne.jp>
Message-Id: <20040421191250.9A6C.TSUDA@hopemoon.com>
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.05.07
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 21 Apr 2004 19:22:48 +0900
X-Sequence: FreeBSD-users-jp 79112
Subject: [FreeBSD-users-jp 79112] Re: =?ISO-2022-JP?B?GyRCTyJIVhsoQg==?=
 =?ISO-2022-JP?B?GyRCJE4lVSUhJSQla0w+JHJKUTk5JDkkayRLJE8bKEI=?=
 ?
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: tsuda@hopemoon.com
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+040413

$BDEED$G$9!#(B

> ---------------------
> #!/usr/local/bin/perl
> # rename_files
> # usage: rename.pl from-pattern new-pattern
> 
> $from = shift;
> chomp($to = shift);
> 
> @files = <$from*>;
> foreach (@files) {
>   print "$_\n";
> }
> 
> print "[$from -> $to] Yes or No? (y/n): ";
> $choice = getc;
> if ($choice !~ /[Yy]/) {
>   print "Bye!";
>   exit(0);
> }
> 
> foreach (@files) {
>   $old = $_;
>   s/$from/$to/;
>   # print "$old : $_\n";
>   rename ($old, $_);
> }
> ------------------------
> $B$$$+$,$G$7$g$&$+(B?
> $BF,$+$i$N%Q%?!<%s$N$_$G$9$,JQ99$9$k%U%!%$%k%j%9%H$G3NG'$7$F$$$^$9!#(B

$B2~A1$5$l$?J}$,NI$$$H;W$C$?E@$r5-:\$7$^$9!#(B

$B!|0z?t$N%A%'%C%/$r$9$k(B
die "usage> $0 from-pattern new-pattern\n" unless @ARGV == 2;

$B!|(B <> $B$G$O$J$/(B glob $B$r;H$&!#%3!<%I$rJ]<i$9$k?M$,FI$_0W$/$J$k$H;W$$$^$9!#(B
8$B9TL\(B : @files = <$from*>;
$BJQ99(B  : @files = glob("$from*");

$B!|(Brename $B$N@.H]$r%A%'%C%/(B
24$B9TL\(B: rename ($old, $_);
$BJQ99(B  : rename ($old, $_) or warn "Can't rename $old to $_\n";

--
$B%[!<%W%`!<%s(B $BDEED(B <tsuda@hopemoon.com>

