index
:
conf
main
my configuration files
summary
refs
log
tree
commit
diff
stats
log msg
author
committer
range
path:
root
/
bin
/
rand_line
blob: 7eba7ab21708891cdcc21c60671b768d7d1726d0 (
plain
) (
blame
)
1
2
3
4
5
6
7
#!/usr/bin/perl
my
$save
=
''
;
while
(
<>
)
{
$save
=
$_
if
!
int
rand
$.
;
}
print
$save
;