xdbr

perl -E'!+0,$ ,=$",$:+=+shift,=>map{$:-=$_=>push@,=>$_>=!$!?~~qq,$_€,:($_*100.).q.¢.while$:-$_>=$!}2,1,.5,.2,.1,.05,.01;say+0||@,' 1.23

xdbr

perl -E '$:+=+shift;do{$:-=$_,$@++while$:-$_>=0;say"$@x",$_>=1?"$_€":($_*100,"¢"),if$@;$@=0}for+2,1,.5,.2,.1,.05,.01' 15.43

xdbr

find $(pwd ; echo $(ls)) -name $(echo "*.bar") -maxdepth 1

xdbr

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

@ARGV or die "Usage:\n\tperl $0 Makefile\nthen:\n\t | dot -Tpng -oout.png\n";
my $dotopts = q{
  # rankdir=LR
  # node [shape=record,width=.1,height=.1]

xdbr

stale = "! abandoned_branches() { \
        for branch in `git branch -r --no-merged | grep -v HEAD`; do \
            echo `git show --format='%ci %cr %ae' $branch | head -n 1` $branch; \
        done | sort -r | column -t; \
    }; abandoned_branches"

xdbr

perl -E '%~=@~=(-japh,japh,j,just,a,another,p,perl,h,hacker),( $_ = @~[ ~-@~ ] )~~( y-hacker-japh-s,s - *(~|j|~|a|~|p|~|h|~) *- ~~ "$~{$+} " -goppie,-say,)'

xdbr

network=$(airport -s | fzf | cut -b 1-33 | sed -e 's/^ *//' -e 's/ *$//') && networksetup -setairportnetwork en0 $network $(pass wifi/$network)