hisconvert.in

来自「linux/unix环境下的建站系统」· IN 代码 · 共 12 行

#!@PERL@
while (<>)
{
   ($mid,$path) = split(/\s+/);
   if ( $path =~ /\w+\/M\.(\d+)\./) {
     $now = $1;
   } else {
     $now = time();
   }
   print "$mid\t$now\t$path\n";
}