Skip to main content
added 57 characters in body
Source Link
JJoao
  • 12.8k
  • 1
  • 26
  • 45
perl -p0E 'while(s/^((.+?)\t.*)\n\2\t/$1<br>/gm){}' 

(It takes 2s to process a 23MB, 1.5Mlines dictionary, in my 6years old laptop)

perl -p0E 'while(s/^((.+?)\t.*)\n\2\t/$1<br>/gm){}' 
perl -p0E 'while(s/^((.+?)\t.*)\n\2\t/$1<br>/gm){}' 

(It takes 2s to process a 23MB, 1.5Mlines dictionary, in my 6years old laptop)

Source Link
JJoao
  • 12.8k
  • 1
  • 26
  • 45

perl -p0E 'while(s/^((.+?)\t.*)\n\2\t/$1<br>/gm){}'