Mercurial > repo
view bin/tac @ 8195:15385eb12db2
<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author | HackBot |
---|---|
date | Sun, 29 May 2016 00:46:18 +0000 |
parents | ff8fd5c8898c |
children |
line wrap: on
line source
#!/bin/bash for file do mapfile -t lines < "$file"; for (( i = ${#lines[@]} -1; i >= 0; i-- )) do printf "%s\n" "${lines[i]}"; done done