Perl覚えたくて昔のコードをPerlに書き直したりしてた 一行音楽をPerlワンライナーで書く奴 Ubuntuだと/dev/dspがないんだけど、aplayとかpacatで行けることがわかった perl -e 'while(1){print pack("S",(((($t*(($t<<3)+303|$t<<7|$t>>10|($t<<4)+200|($t>…