xdbr

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

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

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

## foo.perl
#!/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]

## a.rb
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"

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

## a.rb
network=$(airport -s | fzf | cut -b 1-33 | sed -e 's/^ *//' -e 's/ *$//') && networksetup -setairportnetwork en0 $network $(pass wifi/$network)
	#!/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]
	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"