猫型です。Niigata.llの開催おめでとうございます。行けなくてくやしいです。資料だけここに公開します。タイトルは「Perlなめんな」です。dis られがちなオブジェクトシステムと例外機構の貧弱さについて現代的な Perl の視点から回答します。
「素のPerlのオブジェクトシステムは貧弱すぎる」。その通りです、でも Mouse とかを使えば結構素直に書けるのです。
#!/usr/bin/env bash | |
# Use this one-liner to produce a JSON literal from the Git log: | |
git log \ | |
--pretty=format:'{%n "commit": "%H",%n "author": "%aN <%aE>",%n "date": "%ad",%n "message": "%f"%n},' \ | |
$@ | \ | |
perl -pe 'BEGIN{print "["}; END{print "]\n"}' | \ | |
perl -pe 's/},]/}]/' |
package karupanerura; | |
# is me! | |
package main; | |
use strict; | |
use warnings; | |
use Meat; | |
use Beef; | |
use Hormones; |
"use strict"; | |
var FuncFlatten = function () { | |
var codeList = []; | |
for (var i = 0; i < arguments.length; i++) { | |
codeList[i] = arguments[i]; | |
} | |
return { | |
add: function () { | |
for (var i = 0; i < arguments.length; i++) { |
package karupanerura; | |
# is me! | |
package main; | |
use strict; | |
use warnings; | |
use Meat; | |
use Beef; | |
use Hormones; |
<?xml version="1.0"?> | |
<root> | |
<item> | |
<name>private.xml</name> | |
<item> | |
<name>Use Japanese Keyboard as HHK-US Keyboard</name> | |
<identifier>remap.jis_hhk_us</identifier> | |
<device_only>DeviceVendor::APPLE_COMPUTER,DeviceProduct::RawValue::0x0291</device_only> | |
<autogen>__SetKeyboardType__ KeyboardType::MACBOOK</autogen> | |
<autogen>__KeyToKey__ KeyCode::JIS_YEN, KeyCode::BACKSLASH</autogen> |
git branch --merged | sed 's/\(^ \+\| \+$\)//g' | perl -nlE ' `git push --delete origin $_; git branch -d $_`' |