[kansaipm] Re: 1(I| 年

mishima at momo.so-net.ne.jp mishima at momo.so-net.ne.jp
Mon Feb 5 11:07:37 CST 2001


$B;0Eh$G$9!#(B

From: kroonyao at mail.goo.ne.jp
Subject: [kansaipm] 1(I| $BG/(B
Date: 5 Feb 2001 00:50:47 +0900

> > $B$I$b$I$b!#$3$A$i$3$=$h$m$7$/$*4j$$$7$^$9!#(B
> > $B$^$?(B Age Of Kings $B$d$j$^$7$g$&!#;d$b$@$$$V6/$/$J$j$^$7$?$h!#(B(^^)
> 
> $B@'Hs!$$d$j$^$7$g$&(B(^^ 
> $B<!$O=.LZ$5$s$H8_3Q$K at o$($k$h$&8&5f$;$M$P!%(B

$B%3%s%T%e!<%?$H$P$+$j$d$C$F$k$H!"<j$OB.$/$J$k$s$G$9$,!"(B
$B at oN,$,%Q%?!<%s2=$7$F$7$^$&$N$G!"?M4V$H$d$k$H<e$$$+$b!#(B

> > $B7JIJ(B...$B$$$$6A$-$G$9$M$(!#(B(^^)
> > $B at _N)5-G0%;%_%J!<$N;~$K$O!"(BPerl Mongers $B$N;vL36I$+2?$+$+$i#T%7%c%D$H(B
> > $BK9;R$NDs6!$,$"$C$?$s$G$9$h$M!#(B
> > 
> > $B$*$C$H!"$3$3$K#1Kg$N(B Perl Mongers $B#T%7%c%D$,!#(B
> > $BNc2q$NEY$K;};2$7$F$$$?$s$G$9$,!"$J$+$J$+$*2q$$$G$-$J$/$F!"<B$O$"$H0l?M(B
> > $B$@$1!"#T%7%c%D$r$*EO$7$G$-$F$J$$?M$,$$$k$s$G$9!#$*6b$b$^$@$b$i$C$F$J$$$7!#(B
> > $B21$($F$^$9!)!!!d!d!!IpF#$5$s(B
> > 
> > $BK\?M$,K:$l$F$?$i7JIJ$K2s$7$A$c$*$C$+$J!<!#(B(^^)
> > $B<+J,$N$O$b$&Ce$A$c$C$?$7$J!<!#(B
> 
> $BIpF#$5$s!$$I$&$G$7$g$&!)(B

$B$3$N7o$K$D$-$^$7$F$O!"IpF#$5$s$+$i#D#M$,$"$j$^$7$?!#(B
$B$A$c$s$H21$($F$*$i$l$^$7$?$N$G!"<!2s$*2q$$$7$?;~$K(B
$B$*EO$7$9$k$3$H$K$7$^$9!#7JIJ$OJLES9M$($^$7$g$&!#(B

> > $B$"$H!"#T%7%c%D9XF~;~$KH/@8$7$?:93[$N(B 921 $B1_!"(BKansai.pm $BL>;%4p6b$K4sIU(B
> > $B$9$kM=(B\$BDj$G$7$?$,!"5~ET$N%$%Y%s%H$GL>;%$,<j$KF~$C$F$7$^$C$?$N$GIb$$$F$$(B
> > $B$^$9!#>/3[$G$9$,!"7JIJ$rMQ0U$9$k$J$iB-$7$K$7$^$7$g$&!#(B
> 
> $B$=$&$G$9$M(B(^^

$BIpF#$5$s$K%a!<%k$r=q$$$F$$$k;~$K;W$$IU$$$?$N$G$9$,!"I41_%7%g%C%W$G(B 
CD-R $B$r2?Kg$+Gc$C$F!"(BKansai.pm $BFC@=#C#D$r:n$C$F$O$I$&$G$7$g$&$+!#(B
ActivePerl $B$dJXMx$J(B Perl $B%b%8%e!<%k$r;O$a!"<+K}$N<+:n%b%8%e!<%k(B/$B%9%/%j(B
$B%W%H!"=i$a$F<+J,$G:n$C$?5-G0$N%9%/%j%W%H$d!"%$%s%?!<%M%C%H$G8x3+$9$k$N(B
$B$O$A$g$C$HCQ$:$+$7$$$1$I?M$K8+$;$?$$$X$J$A$g$3%9%/%j%W%H$J$s$+$r=8$a$F(B
$B$^$H$a$k$H3Z$7$$$+$b!#(B

$B!t;d<+?H$O(B CD-R $B>F$/5!3#$r;}$C$F$J$$$N$G!"8@$&$@$1$G62=L$J$N$G$9$,(B...$B!#(B

> > $B:#F|(B($B$"!"$b$&:rF|$+(B)$BGc$C$F$-$^$7$?!#$J$+$J$+NI$$K\$G$9$h!#(B
> > $BFbMF$K4X$7$F!"$J$K$h$j;d$,6C$$$?$N$O!"(Bwhile(<>){...} $B$H$$$&Hs>o$K$h$/(B
> > $B;H$&!"$$$+$K$b(B Perl $B$i$7$$JXMx$JI=(B\$B8=$K4X$9$k5-=R$,A4$/$J$/$F!"$+$?$/$J(B
> > $B$J$^$G$K(B while(defined($line=<FILE>)){...} $B$H$$$&5-=R$r4S$$$F$$$k$H$3(B
> > $B$m$G$9!#$3$N;Q@*$K$O46?4$7$^$7$?!#%@%$%d%b%s%I5-9f(B <> $B$r;H$&$H$-$G$b!"(B
> > $BD9$$$[$&$N5-=R$,F,$KIb$+$s$G$$$k$N$OBg;v$J$3$H$G$9$h$M!#(B
> 
> $B$=$l$ONI$$I=(B\$B5-$G$9$M!%2~$a$FJY6/$7D>$9$N$KCzEYNI$$$+$b!%(B
> $B2?$7$m<+J,$G=q$$$?%3!<%I$b2rFI$G$-$J$$$3$H$,B?!9$"$j$^$9$N$G!%(B(^^;

$B!VI=!W$N8e$K!V(B\$B!W$,F~$k$N$O%8%g!<%/$G$7$g$&$+!#(B(^^)
$B$$$d!"0zMQItJ,$K$^$GIU$$$F$$$k$+$i0c$$$^$9$h$M!#(B
$B$J$s$G$+$J!)(B

--
$p='Perl';$_='MISHIMA Masahiro';tr/A-Z/c-u/;tr/iron or steel/t/;
sub _ {pack'c*',$x=110+ at _*5,$x+1}@x=(sort(grep{!$_{$_}++}split//),
$p=~/(.(..).)/);$x[5]=~s/^/_/e;$x[6].=_ 1;for(@w=(47,1639,8,31259))
{s/\d/$x[$&-1]/g}print ucfirst "@w.\n";



More information about the Kansai-pm mailing list