From owner-FreeBSD-users-jp@jp.FreeBSD.org Sat Jan 26 13:57:07 2008
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id m0Q4v7m02240;
	Sat, 26 Jan 2008 13:57:07 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from kuji.kuji-clinic.info (kuji.kuji-clinic.info [218.44.228.148])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id m0Q4v6602235
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Sat, 26 Jan 2008 13:57:06 +0900 (JST)
	(envelope-from kuji@smb.net)
Received: from [127.0.0.1] (gw.kuji-clinic.net [210.255.122.209])
	by kuji.kuji-clinic.info (8.11.6/8.11.6) with ESMTP id m0Q50Fm68727
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Sat, 26 Jan 2008 14:00:15 +0900 (JST)
	(envelope-from kuji@smb.net)
From: =?ISO-2022-JP?B?GyRCNVc7fElSPy4bKEI=?= <kuji@smb.net>
To: FreeBSD-users-jp@jp.FreeBSD.org
Message-Id: <20080126132707.BDC8.KUJI@smb.net>
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.25.02 [ja]
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Sat, 26 Jan 2008 13:56:58 +0900
X-Sequence: FreeBSD-users-jp 91377
Subject: [FreeBSD-users-jp 91377] JIS =?ISO-2022-JP?B?GyRCJEc9cRsoQg==?=
 =?ISO-2022-JP?B?GyRCJCskbCQ/JVUlISUkJWskTko4O3oyPSQxGyhC?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: kuji@smb.net
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+060209

$B5W;|$H?=$7$^$9!#(B

$B4D6-$O(BFreeBSD 6.2-RELEASE-p10$B$G$9(B

JIS$B%3!<%I$G=q$+$l$?%F%-%9%H%U%!%$%k!J%a!<%k%"!<%+%$%V$G$9!K(Bjis.txt $B$r!"(B
$B0l9T$:$DFI$_9~$s$G%U%!%$%k$K=q$-B-$7$F$f$/A`:n$G$NJ8;z2=$1$N2sHr:v$K(B
$B$D$$$F$*?R$M$7$^$9!#(B

$BNc$($P!"%7%'%k%9%/%j%W%H$G(B
-------------------------------------------
#!/bin/sh
echo "$BFI$_9~$`%U%!%$%kL>!!(Bjis.txt"
line_no=1
	while read LINE
	do
	count=`echo "$LINE" | wc -c`
	line_no=`expr $line_no + 1`
	echo "$LINE" >> test1
		done <jis.txt
	echo "$B=hM}$O=*N;$7$^$7$?(B"
	exit 0
-------------------------------------------
$B$NMM$J%9%/%j%W%H$+$i$N=PNO$G$O!V(Btest1$B!W$N%U%!%$%kFbIt$K=j!9(B
===========================================
$BL@$1$^$7$F$*$a$G$H$&$4$6$$$^$9!#(B
$BKG!&b$h$m$7$!&!&j$$$$$?$7$^$9!(B
===========================================
$B$NMM$JJ8;z2=$1!)$,H/@8$7$^$9!#0lJ}!"(B
-------------------------------------------
open (NEW, ">test2")
$no = 1;
while ($line = <>)  {
    print NEW "$line";
    ++$no;
}
close (NEW);
-------------------------------------------
$B$NMM$J(Bperl$B$G$N=PNO!V(Btest2$B!W$G$O!"(B
===========================================
$BL@$1$^$7$F$*$a$G$H$&$4$6$$$^$9!#(B
$BK\G/$b$h$m$7$/$*4j$$$$$?$7$^$9!#(B
===========================================
$B$N$h$&$K!"J8;z2=$1$OH/@8$7$F$$$J$$$h$&$G$9!#(B

$B%7%'%k%9%/%j%W%H$+$i$N=PNO$G$NJ8;z2=$1$rM^@)$9$kJ}K!$OM-$j$^$9$G$7$g(B
$B$&$+!)(B

$B4{=P$N6rLd$+$HB8$8$^$9$,!"$h$m$7$/$465<($*$M$,$$$$$?$7$^$9!#(B

-- 
$B5W;|!w0&I2>>;3(B


