Help for this page

Select Code to Download


  1. or download this
    my $var = '-rwxr-xr-x  1 svcn-3  ymn-3  7618486 Jan 20 21:42 20040120-
+299-x49.exe';
printf "Update at %s %s at %s hours\n", (split /\s+/, $var)[5,6,7];
  2. or download this
    printf "Update at %s %s at %s hours\n",
      ($var =~ /^(?:\S+\s+){5}(\S+)\s+(\S+)\s+(\S+)/);