Perl One-liners

# LINKS:
* http://www.math.harvard.edu/computing/perl/oneliners.txt
* https://gist.github.com/mischapeters/1e8eef09a0aafd4f24f0

# random line from file
perl -e 'srand;' -e 'rand($.) < 1 && ($it = $_) while <>;' -e 'print $it' file.csv

#NOTE: the above is easier with the following bash command
shuf -n 1 file.csv

# CSV get all in column 'n', n is 0 in example
perl -n -a -F, -e 'print "$F[0]\n"' file.csv

# mass rename for files, aaa to bbb in example
ls | perl -ne 'chomp; next unless -e; $o = $_; s/aaa/bbb/; next if -e; rename $o, $_';

# replace term in multiple files
perl -pi -e 's/aaa/red/g' *