Shuffle a file? : file write « File « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » file write

Shuffle a file?

    

    #!/usr/local/bin/perl -w

    # Randomize input lines



    srand; # make the rand function random



    while(<>){

       push @lines, $_;

    }



    while(@lines) {

      print splice(@lines, rand @lines, 1);

    }

Related examples in the same category

1.	Write array to a file
2.	Write data to file
3.	Write ten lines of text to a pipe
4.	Write unpack data to a file
5.	Writes to the standard error file.
6.	Save formatted data to a file
7.	Save hash value to a file
8.	Save new line character to a file
9.	Save packed data to a file
10.	Print data to a file
11.	Copying files
12.	File read and write
13.	Merges two files.
14.	Sort a file
15.	Creating a file with the numbers 0-9: +>

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.