From owner-FreeBSD-net-jp@jp.freebsd.org  Sun Oct 24 03:38:10 1999
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id DAA62819;
	Sun, 24 Oct 1999 03:38:10 +0900 (JST)
	(envelope-from owner-FreeBSD-net-jp@jp.FreeBSD.org)
Received: from cs0.catv.ne.jp (cs0.catv.ne.jp [202.232.171.20])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id DAA62811
	for <FreeBSD-net-jp@jp.freebsd.org>; Sun, 24 Oct 1999 03:38:10 +0900 (JST)
	(envelope-from mak@fd.catv.ne.jp)
Received: from mina.shiori.noemi.mizho by cs0.catv.ne.jp (8.9.1/3.7W)
	id DAA11500; Sun, 24 Oct 1999 03:37:28 +0900 (JST)
Received: from localhost (localhost [127.0.0.1])
	by mina.shiori.noemi.mizho (8.9.3/3.7W) with ESMTP id DAA61458;
	Sun, 24 Oct 1999 03:38:09 +0900 (JST)
To: FreeBSD-net-jp@jp.freebsd.org, usatoh@hotmail.com
In-Reply-To: <19991024021515Z.mak@mina.shiori.noemi.mizho>
References: <19991024005012Q.ueta@pixy.issp.u-tokyo.ac.jp>
	<19991023160734.25528.qmail@hotmail.com>
	<19991024021515Z.mak@mina.shiori.noemi.mizho>
X-Mailer: Mew version 1.94 on XEmacs 20.4 (Emerald)
X-Prom-Mew: Prom-Mew 1.93.4 (procmail reader for Mew)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19991024033809H.mak@mina.shiori.noemi.mizho>
Date: Sun, 24 Oct 1999 03:38:09 +0900
From: Karasawa <mak@fd.catv.ne.jp>
X-Dispatcher: imput version 990905(IM130)
Lines: 31
Reply-To: FreeBSD-net-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: FreeBSD-net-jp 2026
Subject: [FreeBSD-net-jp 2026] Re: Netatalk
 =?ISO-2022-JP?B?GyRCJEgbKEI=?= ftp
Errors-To: owner-FreeBSD-net-jp@jp.freebsd.org
Sender: owner-FreeBSD-net-jp@jp.freebsd.org
X-Originator: mak@fd.catv.ne.jp

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

$B@h$[$IEj$2$?%9%/%j%W%H$K%P%0$,$"$j$^$7$?!#(B

$B2<$N$,@5$7$$$G$9!#(B

#!/usr/bin/perl
require "/usr/local/lib/perl/jcode.pl";
while($data = shift @ARGV)
{
  if(!($data =~ m/\/$/))
  {
    $data = $data."/";
  }
  opendir(INPUT,$data);
  @filearray = readdir(INPUT);
  foreach $oldname (@filearray)
  {
    $newname = $oldname;
    $newname =~ s/:(..)/pack("C",hex($1))/eg;
    &jcode'convert(*newname, 'euc');
    if ( -f $data.$oldname )
    {
      rename($data.$oldname,$data.$newname);
      print "$oldname -> $newname \n";
    }
  }
}

rename$B$N9T$,JQ$o$C$F$$$^$9!#(B
$BIaCJ(B cap2euc ./ $B$7$+$d$i$J$$$N$G$-$,$D$-$^$;$s$G$7$?!#(B
