请教一段perl小程序?

samclock

opendir MODDIR, "/lib/modules/2.4.20/kernel/drivers/sound/";
while($mod = readdir MODDIR){
  next if $mod =~ /^\.{1,2}$/;
  $mod =~ s/\.o$//;
  system "modprobe $mod > /dev/null 2>&1";
  last if -e "/dev/sound/dsp";
  system "rmmod $mod > /dev/null 2>&1";
}
closedir MODDIR;

据介绍是在加载audio card的驱动模块,,
哪位能详细解释一下,越细致越好,最好能让我外婆也听的懂

KornLee

SORRY~~~
我看还是让LY00兄给你解释吧!

samclock

LY00兄???

LYOO

opendir MODDIR, "/lib/modules/2.4.20/kernel/drivers/sound/";##打开目录句柄；
while($mod = readdir MODDIR){##对目录下的文件进行操作
next if $mod =~ /^\.{1,2}$/;##过滤掉.和..目录文件；
$mod =~ s/\.o$//;##如果遇到.o文件；
system "modprobe $mod > /dev/null 2>&1";##就使用modprobe加载该模块；
last if -e "/dev/sound/dsp";##如果dsp存在的话就跳出当前循环；
system "rmmod $mod > /dev/null 2>&1";##如果dsp不存在的话就删除已加载的模块
}
closedir MODDIR;##关闭目录句柄

samclock

谢谢lyoo,,以后有问题继续请教
看了你的homepage(http://www.linuxfire.com/~lyoo)
nice!