Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
my($filename)="11-22-2001012004";
...
printf "[%s] [%s] [%s] [%s] [%s] [%s]\n",
     $x,$z,$y,$m,$d,$h;

Select or download this
```
[11] [22] [2001] [01] [20] [04]
```