ifduyue · November 9, 2021 01:13
diff --git a/perl-one-liners.bash b/perl-one-liners.bash
 # Check if FILES contain lines ending with whitespaces 
 perl -Mopen=IO,:raw -ne 'print "$ARGV $.\n" if /\s\R/; $.=0  if eof;' FILES

 # shuffle lines
 perl -MList::Util=shuffle -e 'print shuffle <>'

 # random string
 perl -le 'print map chr 33 + rand 94, 1..pop||20' 50
	# Check if FILES contain lines ending with whitespaces
	perl -Mopen=IO,:raw -ne 'print "$ARGV $.\n" if /\s\R/; $.=0 if eof;' FILES

	# shuffle lines
	perl -MList::Util=shuffle -e 'print shuffle <>'

	# random string
	perl -le 'print map chr 33 + rand 94, 1..pop\|\|20' 50