LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 1551|回复: 1

请教高手一段perl小程序

[复制链接]
发表于 2003-7-9 16:50:13 | 显示全部楼层 |阅读模式
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的驱动模块,,
哪位能详细解释一下,越细致越好,最好能让我外婆也听的懂
发表于 2003-7-9 20:00:11 | 显示全部楼层
我的天,要教给你的外婆 Perl 编程啊?!?!
这一段程序试图加载 /lib/modules/2.4.20/kernel/drivers/sound 里面的模块(*.o),如果加载了以后没有出现声频设备的设备文件,就再把模块从系统里面去除。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表