Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
No such thing as a small change
 
PerlMonks  

Re^4: Practical example of "Is Perl code maintainable"

by BrowserUk (Pope)
on Aug 14, 2007 at 14:24 UTC ( #632505=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub rndStr{ join'', @_[ map{ rand @_ } 1 .. shift ] }
    
  2. or download this
    sub rndStr{ 
        my( $n, @chars ) = @_;
        return join'', @chars[ map{ int rand @chars } 1 .. $n ];
    }
    
  3. or download this
    local $/;
    my @chars = map chr, 0 .. 255;;
    print rndStr 1024, @chars  for 1 .. 2**20;;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://632505]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2014-04-19 16:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (483 votes), past polls