#!/usr/bin/env perl print pack("H*",$ARGV[0]); $ ./hex.pl 616263646566670a | od -t x1 0000000 61 62 63 64 65 66 67 0a 0000010 $ ./hex.pl 616263646566670a abcdefg $ ./hex.pl e9ab99e5b3b6e5b18b0a ←UTF8 島屋 参照したURL: http://x68000.q-e-d.…

#!/usr/bin/env perl use Time::Piece; @value = (0, 0, 2, 0, 2, 2, 4, 5, 6, 7, 8, 9, 10); $time = localtime; print $time->strftime(),"\n"; $the_age_of_the_moon = ((($time->year - 11) % 19) * 11 + $value[$time->mon] + $t ime->mday) % 30; prin…