From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Apr 21 18:36:49 2004
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id i3L9an276932;
	Wed, 21 Apr 2004 18:36:49 +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 i3L9an976927
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 21 Apr 2004 18:36:49 +0900 (JST)
	(envelope-from md440@vc-net.ne.jp)
Received: from localhost (210.165.66.225:49176)
	by vc-net.ne.jp with [XMail 1.18 (Win32/Ix86) ESMTP Server]
	id <S700EF> for <FreeBSD-users-jp@jp.FreeBSD.org> from <md440@vc-net.ne.jp>;
	Wed, 21 Apr 2004 18:36:50 +0900
Message-ID: <86ad15ishz.wl@vc-net.ne.jp>
From: "Dobashi.M"<md440@vc-net.ne.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <20040421.152229.74746265.sugitk@rio.odn.ne.jp>
References: <86d661j45k.wl@vc-net.ne.jp>
	<20040421.152229.74746265.sugitk@rio.odn.ne.jp>
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: 46
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 21 Apr 2004 18:34:48 +0900
X-Sequence: FreeBSD-users-jp 79111
Subject: [FreeBSD-users-jp 79111] 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 15:22:29 +0900,
SUGIMURA Takashi $B?yB<(B $B5.;N(B wrote:
> $B<!$N$h$&$J%9%/%j%W%H$r=q$$$F<B9T$9$l$P(B rename $B$7$F$/$l$^$9!#(B

$BB??t$N2sEz$"$j$,$H$&$4$6$$$^$9!#(B
(tyuu@$BMc%7%9%F%`$5$s!CCf@n$5$s$N$bF0:n3NG'$7$^$7$?(B)

$B2~$a$FMM!9$JJ}K!$,$"$k$N$K6C$-$^$7$?!#(B
3$B$D$@$1$G$J$/B??t$N>l=j$KB??t$N%G!<%?$,=PMh$F$7$^$C$?$N$G(B,$B7+$jJV$7$KBQ(B
$B$($kMM$K$7$F8+$^$7$?!#(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

                        /  Name : Dobashi Mitsuyoshi  /
                       / E-mail : md440@vc-net.ne.jp /



