new-words

annotate misc/notes2anki.pl @ 64:c3adf6452eda

lingvo-en-ru.pl script moved to misc/
author Igor Chubin <igor@chub.in>
date Sat Nov 12 14:03:54 2011 +0100 (2011-11-12)
parents
children
rev   line source
igor@58 1 while(<>) {
igor@58 2 s/\@\S*//;
igor@58 3 s/;/,/g;
igor@58 4 my ($word, $notes) = split(/\s+/, $_, 2);
igor@58 5 if ($notes) {
igor@58 6 print $word," ; ", $notes;
igor@58 7 }
igor@58 8 }