2008-12-01ãã1ã¶æéã®è¨äºä¸è¦§
DSi ware第ï¼å¼¾ã¯ãªã¦ãªã¨å ±åéçºã ã£ãï¼ãã¯ã¦ãªã任天å ã京é½ã®ä¼ç¤¾ã¤ãªãããé¢ä¿ãªããã©ãæ¨æ¥äº¬é½ã«åºå¼µã§ãããæ©éãã¦ã³ãã¼ããããã
IPã¢ãã¬ã¹ï¼ãã¼ããï¼ï¼é²è¡¨ç¤ºãã #!/usr/bin/perl print sprintf("%08X%04X",unpack('Nn', pack('CCCCn', split(/[\.\:]/, $ARGV[0]))));
^a ç¡ç·ã®ç°å¢æ§ç¯ä¸ãªã®ã§ã¡ããã©ããã®ã§è²·ã£ã¦ãããç¡ç·ã®å®é¨ã¯å°ä¸ã®é»æ³¢ã®å±ããªãï¼æ¼ããªãå°ç¨ã®é¨å±ã§ããã¾ãããhttp://hackerjapan.blog55.fc2.com/blog-entry-109.html追è¨ï¼ ãã£ã¦ãã¾ããã
ä¸å½ã®ãµã¤ãã« thunder:// ã¨ãããã®ããã£ãã æå¾ã«"=="ããã£ãã #!/usr/bin/perl use MIME::Base64;while(){ chomp $_; print MIME::Base64::decode($_); } Base64ãããæ®éã®URLã ã£ãã
ï¼æ¥åã®.datãèªã¿è¾¼ã¾ã㦠cat hoge.dat|perl idcount.pl|sort|uniq|wc #!/usr/bin/perlwhile(){ if ($_=~/ ID:([\w\/\+]+)/){print "ID:$1\n";} }