请教高手一段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的驱动模块,,
哪位能详细解释一下,越细致越好,最好能让我外婆也听的懂

viper

我的天，要教给你的外婆 Perl 编程啊？！？！
这一段程序试图加载 /lib/modules/2.4.20/kernel/drivers/sound 里面的模块（*.o），如果加载了以后没有出现声频设备的设备文件，就再把模块从系统里面去除。