Help for this page

Select Code to Download


  1. or download this
    $time2 =~ s/^(\d{2})(\d{2})(\d{2})\.(\d{2}).+?/$1:$2:$3.$4/;
  2. or download this
    #!/usr/bin/perl
#
...
print "$time2\n";
__END__
12:34:56.74768
  3. or download this
    s/^(\d{2})(\d{2})(\d{2})\.(\d{2})\d*/$1:$2:$3.$4/;