lengerfulluse · February 16, 2017 02:57
diff --git a/common_used_perl_command.sh b/common_used_perl_command.sh
 # remove end ^M character
 perl -pe 's{\d+\.\d+%}{$&/100}eg'

 # parse csv file, convert to tsv file.
 perl -MText::ParseWords -lne'
 print join "\t", map "$_",
  parse_line(",",0, $_);  # if you want to keep the double-quotes of the field, just use put '1' instead of 0 as the second parameter.
   ' infile.csv >infile.tsv
	# remove end ^M character
	perl -pe 's{\d+\.\d+%}{$&/100}eg'

	# parse csv file, convert to tsv file.
	perl -MText::ParseWords -lne'
	print join "\t", map "$_",
	parse_line(",",0, $_); # if you want to keep the double-quotes of the field, just use put '1' instead of 0 as the second parameter.
	' infile.csv >infile.tsv