perl脚本之------向/etc/aliases中添加／删除邮件组

两个月没来上空间了，好多东西都没写上，现在补上吧，留作备忘，也让自己有一些成就感，最近在用mimedefang做一个邮件过滤系统，然后又做了过滤系统的数据库和数据库的前端web管理界面，先上几个用perl写的小功能脚本吧，其它的慢慢再写上

1，向/etc/aliases中添加邮件组，并添加此邮件组说明。格式如下：
      ###comment
      group_name:
     

脚本实现的功能：先备份/etc/aliases，把原来的文件备份成“文件名.日期"的格式，如果今天运行这个脚本，刚备份文件名为aliases.20080903，然后把改动写入文件，最后运行newaliases命令全改动生效

CODE:

#!/usr/bin/perl -w
#name:aliases-add-group.pl
#
use strict;
my $comment=shift;
my $group_name=shift;
my $dir="/etc";
my $file="aliases";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon=$mon+1;
$mon='0'.$mon if($mon<10);
$year=$year+1900;
$mday='0'.$mday if($mday<10);
my $ext=$year.$mon.$mday;

if(-f "$dir//$file/.$ext"){
    system("rm -f $dir//$file/.$ext");
    system("mv $dir//$file $dir//$file/.$ext");
    }else{
        system("mv $dir//$file $dir//$file/.$ext");
        }
my $bak_file="$file/.$ext";
open(FILE,"$dir//$bak_file") or die "connot open $!";
$comment="/#/#/#$group_name: ".$comment."/n";
$group_name=$group_name.": "."/n";
my @aliases=<FILE>;
push (@aliases,$comment);
push (@aliases,$group_name);
foreach my $str(@aliases){
    open FH,">>$dir//$file" or die $!."/n";
    print FH $str;
    close(FH);
    }
close(FILE);
system("/usr/bin/newaliases");

---

2,删除/etc/aliases中的邮件组和组的说明

CODE：

#!/usr/bin/perl -w
#name:aliases-del-group.pl
use strict;
my $group_name=shift;
my $dir="/etc";
my $file="aliases";

exit if($group_name eq "all");

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon=$mon+1;
$mon='0'.$mon if($mon<10);
$year=$year+1900;
$mday='0'.$mday if($mday<10);
my $ext=$year.$mon.$mday;
if(-f "$dir//$file/.$ext"){
    system("rm -f $dir//$file/.$ext");
    system("mv $dir//$file $dir//$file/.$ext");
    }else{
        system("mv $dir//$file $dir//$file/.$ext");
        }
my $bak_file="$file/.$ext";
open(FILE,"$dir//$bak_file") or die "$!/n";
my @aliases=<FILE>;
foreach my $line(@aliases){       
    if(($line=~/^/#/#/#$group_name:/) || ($line=~/^$group_name:/)){
        $line=~ s/^.*$//g;
        $line=~ s/^/s$//g;
        }
    }
foreach my $str(@aliases){
    open FH,">>$dir//$file" or die $!."/n";
    print FH $str;
    close(FH);
    }
close(FILE);