LinuxQuestions.org
Welcome to the most active Linux Forum on the web.
Go Back   LinuxQuestions.org > Forums > Linux Forums > Linux - Software
User Name
Password
Linux - Software This forum is for Software issues.
Having a problem installing a new program? Want to know which application is best for the job? Post your question in this forum.

Notices

Reply
 
Search this Thread
Old 07-20-2006, 01:05 AM   #1
jrdioko
Member
 
Registered: Oct 2002
Distribution: Debian 6.0.2 (squeeze)
Posts: 944

Rep: Reputation: 30
Printing random lines of a file


I've been using the remind program to print reminders for various things, and it's usually pretty straightforward to use, but I've run into something I can't figure out how to do. I'd like to be able to get a reminder that is one randomly picked from a long list, rather that something I've scheduled for that specific day. It looks like remind can call a remote program, so I guess it boils down to needing something that will take a file, pick a given number of random lines from that file, and print them out. Any ideas?
 
Old 07-20-2006, 01:36 AM   #2
puffinman
Member
 
Registered: Jan 2005
Location: Atlanta, GA
Distribution: Gentoo, Slackware
Posts: 217

Rep: Reputation: 30
I happen to have already written just such a program, which I use to pick random words from a dictionary file. It should be self explanatory and I hope it helps!

Code:
#!/usr/bin/perl
use Tie::File;
use Fcntl 'O_RDONLY';

my $dict = shift || '/usr/share/dict/words';
my $times = shift || 1;

if ($times == 1) {

  sysopen(DICTIONARY,$dict,O_RDONLY);
  rand($.) < 1 && ($word = $_) while <DICTIONARY>;
  print $word;

} else {

  tie @f, 'Tie::File', $dict, mode => O_RDONLY
    or die "Couldn't open $dict: $!\n";
  my $size = scalar @f;
  $\ = "\n";

  while ($times--) {
    print $f[rand $size];
  }
}
 
Old 07-20-2006, 01:42 AM   #3
spooon
Senior Member
 
Registered: Aug 2005
Posts: 1,755

Rep: Reputation: 48
a related questions is answered in perlfaq5
 
Old 07-20-2006, 10:00 AM   #4
archtoad6
Senior Member
 
Registered: Oct 2004
Location: Houston, TX (usa)
Distribution: MEPIS, Debian, Knoppix,
Posts: 4,727
Blog Entries: 15

Rep: Reputation: 231Reputation: 231Reputation: 231
I like the algorithm from the Camel Book.

Any interest in trying to it as a bash script? I think this might work (WARNING -- I have tested the pieces, but not the whole):
Code:
#!/bin/bash

N=1
F="path_to_default_reminder_file"

[ $1 -gt 0 ] && N=$1
[ -f $2 ]    && F=$2

C=`wc -l $F`


for ((I=1; $I<=$N; I++))
do
   L=$((RANDOM%$C))
   sed -n "${L}p" $F
done
Mild apologies for the 1 letter variables, old habit that dies hard. (Yes, reinforced by BASIC, but not learned there.)
 
  


Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Reading random lines in c++? twirl Programming 7 10-30-2005 11:11 AM
printer printing vertical lines at beginning and end of lines makhand Linux - Hardware 0 09-02-2005 03:03 PM
lexmark printing last 2 lines on seperate page polrus Linux - Hardware 1 06-14-2005 02:02 AM
Screen goes blank(random) to vertical lines bruce1271 Linux - General 2 11-15-2003 12:02 PM
Printing OpenOffice drawing without thick contour lines?? carlos123 Linux - Software 0 11-07-2003 05:01 PM


All times are GMT -5. The time now is 11:36 AM.

Main Menu
My LQ
Write for LQ
LinuxQuestions.org is looking for people interested in writing Editorials, Articles, Reviews, and more. If you'd like to contribute content, let us know.
Main Menu
Syndicate
RSS1  Latest Threads
RSS1  LQ News
Twitter: @linuxquestions
identi.ca: @linuxquestions
Facebook: linuxquestions Google+: linuxquestions
Open Source Consulting | Domain Registration