ひどいもんですが、これが今の実力。仕方が無いのです。 #!c:\perl\bin; use strict; use warnings; my $str = "string"; my $len = length($str); my $ind = index($str,"tr"); my $plain = substr($str,1,1); my $num = ord($plain); $num++; my $coded = …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。