Skip to content

Instantly share code, notes, and snippets.

@shimx

shimx/perl-girlfriends

Last active December 31, 2015 12:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shimx/e3fc717402ac9349d8eb to your computer and use it in GitHub Desktop.
Save shimx/e3fc717402ac9349d8eb to your computer and use it in GitHub Desktop.
Download ZIP
MacのターミナルにPerlで彼女を降らせる
Raw
perl-girlfriends
perl -e 'chomp($c=scalar(`stty size`));$c=int(${[split(/\s/, $c)]}[1]);$s=pack("H*","e5bdbce5a5b3");print "\e[2J";while(1){$a{rand $c}=0;for $x (keys %a){$y=$a{$x}++;print sprintf("\e[%d;%dH \e[%d;%dH \e[%d;%dH \e[%d;%dH%s \e[0;0H",$y,$x,$y,$x+1,$y,$x+2,$a{$x},$x,$s)}local $|=1;select $u,$u,$u,0.2}'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment