hisconvert.in
上传用户:minyiyu
上传日期:2018-12-24
资源大小:864k
文件大小:0k
源码类别:

Telnet服务器

开发平台:

Unix_Linux

  1. #!@PERL@
  2. while (<>)
  3. {
  4.    ($mid,$path) = split(/s+/);
  5.    if ( $path =~ /w+/M.(d+)./) {
  6.      $now = $1;
  7.    } else {
  8.      $now = time();
  9.    }
  10.    print "$midt$nowt$pathn";
  11. }