pmファイルにデバグで入れた$DB::singleを一掃するときのワンライナー find . -type f -name '*.pm' -print0 | xargs -0 perl -i -pe 's/.*DB::single.*\n//g'

ちょっと必要だったんで作りました。 List::Util::firstを使って実装してみました。 use List::Util qw/first/; use Carp; sub includes { my ($tgt,$checker) = @_; confess "tgt not arr ref" unless ref($tgt) eq "ARRAY"; confess "checker not arr ref"…