perl系统管理脚本

跟我一起学第2课

今天是perl系统管理脚本的第二课,内容和第一课差不多,不过第二课是对第一课有了进一步深入的使用,如将功能集成化,还有实现了递归调用........大家可以模仿这个做类似的脚本....... #* #* scans a filesystem "by hand" for core files with optional deletion #* #!/usr/bin/perl -s # note t...

跟我一起学第3课

今天很累,还好这节课比较简单,就是获取用户档的信息,而对你获取的用户信息采取一定的处理..... $passwd = "/etc/passwd"; #要处理的文件 open(PW,$passwd) or die "Can't open $passwd:$!\n"; #打开文件句柄 while (<PW>){ #循环读取每一行,将每一行赋值给系统变量$_ ($nam...