🚀 go-pugleaf

In article <5lehlu$spc@sutknews.ed.kagu.sut.ac.jp>
j4396031@ed.kagu.sut.ac.jp writes:
>> perl $B$G$D$.$N$h$&$J$3$H$r$7$F$/$l$k(B
>> $B%i%$%V%i%j!<$^$?$O%9%/%j%W%H$rC5$7$F$$$^$9!#(B

>> $B=i$a$O!"(B
>> s/a/$B$"(B/g;
>> s/ka/$B$+(B/g;
>> $B$H$$$&$U$&$K$D$/$C$F$$$3$&$+$H;W$C$?$s$G$9$1$I!"(B
>> $BCY$=$&$@$7!"$b$C$H$$$$J}K!$,$"$j$=$&$J$N$G!#(B
>> #$B$3$l$G$$$$$N$+$J!)(B

  s///$B$N=gHV$K$5$(5$$r$D$1$l$P!"4pK\E*$K$=$l$G$^$A$,$$$"$j$^(B
$B$;$s!#$H$$$&$o$1$G!"IaCJ;H$C$F$$$k(B`r2h'$B$r$&$7$m$K$D$1$^$9!#(B

  $BB.EY$O5$$K$7$?$3$H$O$J$$$1$l$I!"IaDL$N%o!<%/%9%F!<%7%g%s$G(B
$B$"$l$P!"FC$KCY$$$H;W$C$?$3$H$O$"$j$^$;$s!#(B

  $B$A$J$_$K!"$3$N$^$^$@$H(B`nn'$B$O!V$s$s!W$K$J$C$F$7$^$$$^$9!#(B

--- cut here --- cut here --- cut here --- cut here --- cut here ---
#!/usr/local/bin/perl
#
# Wed Jul 15 12:08:26 JST 1992
# 	word$BC10L$GJQ49$7!"%"%k%U%!%Y%C%H$,;D$i$J$+$C$?$iI=<(!#(B
#
eval "exec /usr/local/bin/perl -S $0 $*"
	if $running_under_some_shell;

($CMDNAME = $0) =~ s!.*/([^/])!$1!;

$printit = 0;

unshift(@ARGV,'-') if ( $#ARGV < $[ );

while($_=$ARGV[0]) {
    if ( /^--$/ ) { shift; last;
    } elsif ( /^-n$/ ) { $printit = 0;
    } elsif ( /^-p$/ ) { $printit = 1;
    } elsif ( /^-$/ )  { last;
    } elsif ( /^-/ )  {
        die "$CMDNAME: unknown option $_\n";
    } else             { last;
    }
    shift;
}

while(<>) {
    chop;
    if($printit) {
	printf("< %s\n> ",$_);
    }
    &r2h_line($_);
}

sub r2h_line {
    local($n);
    for $_ ( split( /([A-Za-z']+)/, $_[0]) ) {
	if( /\w/ ) {
	    $n = &r2h_word($_);
	    if( $n !~ /[A-Za-z]/ ) {
		print $n;
		next;
	    }
	}
	print $_;
    }
    print "\n";
}

sub r2h_word {
    local($_)=@_;
    s/([bcdfghjklmpqrstvwyz])\1/$B$C(B$1/gi;
    s/cha/$B$A$c(B/gi; s/chi/$B$A(B/gi; s/chu/$B$A$e(B/gi; s/che/$B$A$'(B/gi; s/cho/$B$A$g(B/gi;
    s/sha/$B$7$c(B/gi; s/shi/$B$7(B/gi; s/shu/$B$7$e(B/gi; s/she/$B$7$'(B/gi; s/sho/$B$7$g(B/gi;
    s/sha/$B$7$c(B/gi; s/shi/$B$7(B/gi; s/shu/$B$7$e(B/gi; s/she/$B$7$'(B/gi; s/sho/$B$7$g(B/gi;
    #
    s/kya/$B$-$c(B/gi; s/kyu/$B$-$e(B/gi; s/kyo/$B$-$g(B/gi;
    s/sya/$B$7$c(B/gi; s/syu/$B$7$e(B/gi; s/syo/$B$7$g(B/gi;
    s/tya/$B$A$c(B/gi; s/tyu/$B$A$e(B/gi; s/tyo/$B$A$g(B/gi;
    s/nya/$B$K$c(B/gi; s/nyu/$B$K$e(B/gi; s/nyo/$B$K$g(B/gi;
    s/hya/$B$R$c(B/gi; s/hyu/$B$R$e(B/gi; s/hyo/$B$R$g(B/gi;
    s/mya/$B$_$c(B/gi; s/myu/$B$_$e(B/gi; s/myo/$B$_$g(B/gi;
    s/rya/$B$j$c(B/gi; s/ryu/$B$j$e(B/gi; s/ryo/$B$j$g(B/gi;
    #
    s/gya/$B$.$c(B/gi; s/gyu/$B$.$e(B/gi; s/gyo/$B$.$g(B/gi;
    s/zya/$B$8$c(B/gi; s/zyu/$B$8$e(B/gi; s/zyo/$B$8$g(B/gi;
    s/dya/$B$B$c(B/gi; s/dyu/$B$B$e(B/gi; s/dyo/$B$B$g(B/gi;
    s/bya/$B$S$c(B/gi; s/byu/$B$S$e(B/gi; s/byo/$B$S$g(B/gi;
    s/pya/$B$T$c(B/gi; s/pyu/$B$T$e(B/gi; s/pyo/$B$T$g(B/gi;
    #
    s/jya/$B$8$c(B/gi; s/jyu/$B$8$e(B/gi; s/jyo/$B$8$g(B/gi;
    #
    s/tsu/$B$D(B/gi;
    s/n'/$B$s(B/gi;
    #
    s/fa/$B$U$!(B/gi; s/fi/$B$U$#(B/gi; s/fu/$B$U(B/gi; s/fe/$B$U$'(B/gi; s/fo/$B$U$)(B/gi;
    #
    s/ka/$B$+(B/gi; s/ki/$B$-(B/gi; s/ku/$B$/(B/gi; s/ke/$B$1(B/gi; s/ko/$B$3(B/gi;
    s/sa/$B$5(B/gi; s/si/$B$7(B/gi; s/su/$B$9(B/gi; s/se/$B$;(B/gi; s/so/$B$=(B/gi;
    s/ta/$B$?(B/gi; s/ti/$B$A(B/gi; s/tu/$B$D(B/gi; s/te/$B$F(B/gi; s/to/$B$H(B/gi;
    s/na/$B$J(B/gi; s/ni/$B$K(B/gi; s/nu/$B$L(B/gi; s/ne/$B$M(B/gi; s/no/$B$N(B/gi;
    s/ha/$B$O(B/gi; s/hi/$B$R(B/gi; s/hu/$B$U(B/gi; s/he/$B$X(B/gi; s/ho/$B$[(B/gi;
    s/ma/$B$^(B/gi; s/mi/$B$_(B/gi; s/mu/$B$`(B/gi; s/me/$B$a(B/gi; s/mo/$B$b(B/gi;
    s/ya/$B$d(B/gi;             s/yu/$B$f(B/gi;             s/yo/$B$h(B/gi;
    s/ra/$B$i(B/gi; s/ri/$B$j(B/gi; s/ru/$B$k(B/gi; s/re/$B$l(B/gi; s/ro/$B$m(B/gi;
    s/wa/$B$o(B/gi; s/wi/$B$p(B/gi;             s/we/$B$q(B/gi; s/wo/$B$r(B/gi;
    #
    s/ga/$B$,(B/gi; s/gi/$B$.(B/gi; s/gu/$B$0(B/gi; s/ge/$B$2(B/gi; s/go/$B$4(B/gi;
    s/za/$B$6(B/gi; s/zi/$B$8(B/gi; s/zu/$B$:(B/gi; s/ze/$B$<(B/gi; s/zo/$B$>(B/gi;
    s/da/$B$@(B/gi; s/di/$B$B(B/gi; s/du/$B$E(B/gi; s/de/$B$G(B/gi; s/do/$B$I(B/gi;
    s/ba/$B$P(B/gi; s/bi/$B$S(B/gi; s/bu/$B$V(B/gi; s/be/$B$Y(B/gi; s/bo/$B$\(B/gi;
    s/pa/$B$Q(B/gi; s/pi/$B$T(B/gi; s/pu/$B$W(B/gi; s/pe/$B$Z(B/gi; s/po/$B$](B/gi;
    #
    s/ja/$B$8$c(B/gi; s/ji/$B$8(B/gi; s/ju/$B$8$e(B/gi; s/je/$B$8$'(B/gi; s/jo/$B$8$g(B/gi;
    #
    s/n/$B$s(B/gi;
    s/a/$B$"(B/gi; s/i/$B$$(B/gi; s/u/$B$&(B/gi; s/e/$B$((B/gi; s/o/$B$*(B/gi;
    $_;
}
--- cut here --- cut here --- cut here --- cut here --- cut here ---
double x,y,z=1.8;main(a,b){x=(time( /*       $B6b;R(B $BM5(B(Yutaka Kaneko)          */
0)%935)/472;while(!0){y=x;x=2-z*(x- /* Sendai National College of Technology */
1)*(x-1);a=(x*631);a%=78;b=(y*95);b /*     kaneko@cc.sendai-ct.ac.jp         */
%=24;printf("\033[%d;%dHx\n",b,a);}}/*Evanx08,Megax05,Escax07,Fushx16,WedPx07*/