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 ];