blind fortube biscuit

#!/usr/bin/perl

use strict;
use warnings;

{
    local $/ = "%\n";
    srand;
    my $line;
    rand $. < 1 and $line = $_ while <DATA>;
    chomp $line;
    print $line;
}

__DATA__
アブラハムの子であるダビデの子、イエス・キリストの系図。
		-- マタイの福音書 1:1
%
アブラハムはイサクの父であり、イサクはヤコブの父、ヤコブはユダとその兄弟たちとの父、
		-- マタイの福音書 1:2
%

via. fortune - みずぴー日記
昨日のおとなり日記をちょろっと眺めてたらちょっと面白そうだったので。最近のバージョンならsrand呼ばなくてもいいんだっけかな。