Text::QRCodeっての作ってみた。まだCPANには上げてない。 #いや、むしろ上げるべきじゃないような。 http://coderepos.org/share/browser/lang/perl/Text-QRCode/trunk なにができるって、Imager::QRCodeみたいに文字列を渡すとスペースとアスタリスク の2次元配列のarrayrefを返してくれるだけです。 これだけだと端末では認識しないし、なーんも意味ないんですけどね…。 % perl -MText::QRCode -e '$map = Text::QRCode->new->plot("I love qrcode."); print join "\n", map { join "", @$_ } @$map' ******* * * ******* * * * * * * * * *** * * ** * **