Help for this page

Select Code to Download


  1. or download this
        return \@verbose if($info eq 'verbose');
    
  2. or download this
        my $time = scalar localtime();
        $time =~ /(\d\d:\d\d:\d\d)/;
        $time = $1;
    
  3. or download this
        my $time = sprintf '%02d:%02d:%02d', ( localtime )[ 2,1,0 ];