MadSci Network: Computer Science |
Hi Nauzad,
If I understand the problem right, you'd like to have a little script that picks a file at random and then does something to it. Here is a little code fragment in Perl. It makes a couple of assumptions but you should get the general idea and be able to customize it for your needs. In particular, it assumes that you're on a Unix system; but, since Perl is readily available on almost all platforms, you should be able to tweak this to work for your particular situation relatively easily. Here's the code:
#!/usr/local/bin/perl -w # Initialize index variable $x = 0; # Loop through all the files in the current directory # and store their names in an array foreach $file (`ls`) { $someArray[$x] = $file; $x++; } # Initialize the random function srand; # Get the random number (it's -1 because the array # index starts at 0 $y = int(rand(@someArray) - 1); # You should replace this line with whatever you'd # like to do with the file; This line just prints # out the name of the file. print "The file is $someArray[$y]\n";
Well, I hope that does what you wanted it to do. Of course, we could make the program a lot more sophisticated (it could check for directories, for starters) and make it do more than just print the name of the file. But, it should work as a nice starting point for most purposes. If it doesn't, please feel free to write back to me.
Regards,
Rick.
Try the links in the MadSci Library for more information on Computer Science.