in reply to Re: Estimating Vocabulary
in thread Estimating Vocabulary

my(@lines, $line);
open(FILE, shift) || die;
1 while <FILE>;
$line=$.;
seek(FILE, 0, $. = 0);
rand($line-$.) < $ARGV[0]-@lines && push(@lines,$_) while <FILE>;
print @lines, "wc -l could have told you this is $. words\n";

[download]

Replies are listed 'Best First'.
Re: Re: Re: Estimating Vocabulary
by belg4mit (Prior) on Mar 28, 2002 at 01:00 UTC
    UPDATE:Excellent!

    WAS: That does not appear to work, I ask for one line and get 13-18 lines... It is also heavily weighted towards the Zs

    --
    perl -pe "s/\b;([st])/'\1/mg"

[reply]
      Are you sure? It's working for me with only a small bias towards the Zs

      Update: Apparently, the observed bias was mostly an artifact of small sample size
[reply]
        On a linux 2.4.9 box running perl 5.6.0 perl /tmp/a /usr/share/dict/words 1 yields such things as: 

        databases
fritter
Saracens
stammerer
when
Whitmanize
willing
writes
Wuhan
youthfully
zigzag
Zoroaster
Zulu
Zulus
Zurich
wc -l could have told you this is 45424 words

        [download]
        shrivel
topologies
wetter
Wilkins
wristwatch
Yeager
yellowed
zoom
zooms
Zoroastrian
Zulu
Zulus
Zurich
wc -l could have told you this is 45424 words

        [download]
        valuably
wins
wriggles
Zennist
zoning
Zoroaster
Zulu
Zulus
Zurich
wc -l could have told you this is 45424 words

        [download]
        knave
requisitioning
seismology
sentimentally
tail
Telnet
Welles
Whipple
winner
workbooks
workmen
Yates
yeas
Yokohama
zodiac
zonally
zone
Zoroaster
Zoroastrian
Zulu
Zulus
Zurich
wc -l could have told you this is 45424 words

        [download]

        --
        perl -pe "s/\b;([st])/'\1/mg"

[reply]
[d/l]
[select]

In Section Cool Uses for Perl