Adding random numbers to a file of Words

[csunix]

Does anybody have a script that can be ran against a file that has a list of dictionary words that will add numbers onto the end of these words

eg Invent to become Invent12
Friday to become Friday94


Any suggestions would be appreciated.

Thanks, CS

 

[toolkit]

In perl:

#!/usr/bin/perl -w
while(<>) {
    s/(\w+)/$1 . int(rand(100))/eg;
    print;
}

Cheers, Neil

 

[CaKiwi]

Or using awk, assuming 1 word per line

BEGIN {srand()}
{ print $1 int(rand()*100) }

CaKiwi

 

[RodKnowlton]

Or in Kornshell or Bash, again assuming 1 word per line:

while read word
do
echo "${word}$((${RANDOM} % 100))"
done < inwords.txt > outwords.txt

I sure hope you're not generating passwords this way.

Rod Knowlton
IBM Certified Advanced Technical Expert pSeries and AIX 5L