Monthly Archives: 9月 2013

シーザー暗号 ROT13 Perl 復号

Posted by on 2013年9月27日 No comments

ありきたりですがPerlで書いてみました

#!/usr/bin/perl
print sub{$_[0]=~tr/A-Za-z/ZA-Yza-y/
for(1..$_[1]);$_[0]}->($s=<>,$k=<>);

文字列 + 改行 + ずらす回数 + 改行　で実行できます

結構短く書けるものですね