From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Apr 21 22:44:13 2004
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id i3LDiDp44398;
	Wed, 21 Apr 2004 22:44:13 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from vc-net.ne.jp (ds9.mmtr.or.jp [210.228.173.148] (may be forged))
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id i3LDiD944393
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 21 Apr 2004 22:44:13 +0900 (JST)
	(envelope-from md440@vc-net.ne.jp)
Received: from localhost (210.165.66.134:49191)
	by vc-net.ne.jp with [XMail 1.18 (Win32/Ix86) ESMTP Server]
	id <S715F6> for <FreeBSD-users-jp@jp.FreeBSD.org> from <md440@vc-net.ne.jp>;
	Wed, 21 Apr 2004 22:45:02 +0900
Message-ID: <867jw9ih0m.wl@vc-net.ne.jp>
From: "Dobashi.M"<md440@vc-net.ne.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <20040421191250.9A6C.TSUDA@hopemoon.com>
References: <20040421.152229.74746265.sugitk@rio.odn.ne.jp>
	<86ad15ishz.wl@vc-net.ne.jp>
	<20040421191250.9A6C.TSUDA@hopemoon.com>
User-Agent: Wanderlust/2.10.1 (Watching The Wheels) SEMI/1.14.5 (Awara-Onsen) FLIM/1.14.5 (Demachiyanagi) APEL/10.6 MULE XEmacs/21.4 (patch 14) (Reasonable Discussion) (i386--freebsd)
MIME-Version: 1.0 (generated by SEMI 1.14.5 - "Awara-Onsen")
Content-Type: text/plain; charset=ISO-2022-JP
X-Dispatcher: imput version 20030322(IM144)
Lines: 36
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 21 Apr 2004 22:42:49 +0900
X-Sequence: FreeBSD-users-jp 79122
Subject: [FreeBSD-users-jp 79122] Re: =?ISO-2022-JP?B?GyRCTyJIVhsoQg==?=
 =?ISO-2022-JP?B?GyRCJE4lVSUhJSQla0w+JHJKUTk5JDkkayRLJE8bKEI=?=
 ?
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: md440@vc-net.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+040413

At Wed, 21 Apr 2004 19:22:48 +0900,
Tsuda wrote:
> $B2~A1$5$l$?J}$,NI$$$H;W$C$?E@$r5-:\$7$^$9!#(B

$B$"$j$,$H$&$4$6$$$^$9!#(B($BF|Ln(B@NEC$B$5$s!'(Bmmv$B$b$$$$$G$9$M(B)
$B0z?t$O$I$&$7$h$&$+$H;W$C$F$^$7$?!((B
---------------------
#!/usr/local/bin/perl
# rename_files (rename.pl v0.2)

die "usage> $0 from-pattern new-pattern\n" unless @ARGV == 2;
$from = shift;
chomp($to = shift);

@files = glob("$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/;
  rename ($old, $_) or warn "Can't rename $old to $_\n";
}
--------------
warn$B$O;H$C$?;v$,$"$j$^$;$s$G$7$?!((B($B$J$k$[$I(B)
 
                        /  Name : Dobashi Mitsuyoshi  /
                       / E-mail : md440@vc-net.ne.jp /
