Skip to content

Instantly share code, notes, and snippets.

@epaule

epaule/s_child_shift

Created March 30, 2011 10:55
Show Gist options
  • Save epaule/894199 to your computer and use it in GitHub Desktop.
Save epaule/894199 to your computer and use it in GitHub Desktop.
Download ZIP
S_child shifter
Raw
s_child_shift
perl -ane 'if ($F[3] eq "S_child"){$change=744;$F[12]-=$change;$F[15]-=$change};print join(" ",@F),"\n"'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment