new-words

diff grep-sentences.pl @ 14:9b18c7efe31c

Километровые столбы — процентные отметки.

В списке неизвестных слов добавляются пометки,
указывающие, какой процент текста закроют расположенные выше слова
(вместе с уже известными словами), если их выучить.
До 90% пометки ставятся с шагом 5; после 90 — с шагом 1.
author Igor Chubin <igor@chub.in>
date Sun Apr 04 12:54:46 2010 +0300 (2010-04-04)
parents 9345cc05fdd1
children c6efd17741aa
line diff
     1.1 --- a/grep-sentences.pl	Tue Mar 09 11:57:55 2010 +0200
     1.2 +++ b/grep-sentences.pl	Sun Apr 04 12:54:46 2010 +0300
     1.3 @@ -1,8 +1,8 @@
     1.4  #!/usr/bin/perl
     1.5  
     1.6  
     1.7 -$page=$ARGV[0];
     1.8 -$regexp=$ARGV[1];
     1.9 +$regexp=$ARGV[0];
    1.10 +$page=$ARGV[1];
    1.11  #if (open(PAGE, "lynx -dump '$page'|")) {
    1.12  if (open(PAGE, "$page")) {
    1.13      local $/;