new-words

view misc/notes2anki.pl @ 61:0799785cf194

minifix
author Igor Chubin <igor@chub.in>
date Fri Nov 04 20:48:34 2011 +0100 (2011-11-04)
parents
children
line source
1 while(<>) {
2 s/\@\S*//;
3 s/;/,/g;
4 my ($word, $notes) = split(/\s+/, $_, 2);
5 if ($notes) {
6 print $word," ; ", $notes;
7 }
8 }