+ -
当前位置:首页 → 问答吧 → 请教一个关于system子进程无法返回的问题

请教一个关于system子进程无法返回的问题

时间:2010-09-26

来源:互联网

我刚接触perl 不久,最近遇到一个问题,请各位大大帮忙看看如何解决。代码如下,每当执行到system命令行,如果在mp3播放完后不手动把播放器关掉,就无法从子进程返回到主程序。请教各位有什么方法可以在使MP3播放完后不需手动关闭播放器,程序也能跳回到主进程并继续运行呢?
  1. $filename = "passlog";
  2. while(1)
  3. {
  4.         sleep (10);
  5.         my $lasttime = $atime;
  6.         print $lasttime;
  7.         ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($filename);
  8.         my $timestamp = $atime;
  9.         print $timestamp;
  10.         if($lasttime != $timestamp)
  11.         {
  12.                 system ("pass.mp3");
  13.                                 print "Test Pass\n"
  14.         }
  15.         print "Verify Done\n"
  16. }
复制代码

作者: adocdo   发布时间: 2010-09-26

用这个module吧Win32::MediaPlayer

作者: shijiang1130   发布时间: 2010-09-26