⭐ in reply to How do I pick a random line from a file?
More cryptically
srand; rand($.) < 1 && ($it = $_) while <>;
In Section
Seekers of Perl Wisdom
⭐ in reply to How do I pick a random line from a file?
srand; rand($.) < 1 && ($it = $_) while <>;