|
|
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description. |
#!/usr/bin/perl
die "You must pass at least one file as an argument to this program" if !(defined($ARGV[0]));
while(<>) {
push(@quotes,$_);
}
#formula for random between ranges
# int((Ubound - Lbound + 1) * rand + Lbound)
$x = int(($#quotes - 0 + 1) * rand + 0);
print "$quotes[$x]";
| |
Other 1 submission(s) by this author
|
|
|
Report Bad Submission |
|
|
Your Vote! |
See Voting Log |
|
Other User Comments |
9/22/2001 1:22:49 PM:Theandric Now I get people hitting refresh on my
site all the time, they love the random
quotes, excellent code d00d!
|
|
Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here. |
|