srand function : srand « System Functions « Perl

1. Perl
2. System Functions
3. srand

srand function

    

#!/usr/bin/perl

use warnings;
use strict;
use subs qw(srand);

sub srand {
    if ($] >= 5.004 and not @_) {
        warn "Unqualified call to srand redundant in Perl $]";
    } else {
        # call the real srand via the CORE package
        CORE::srand @_;
    }
}

   
    
    
    
  

Related examples in the same category