понедельник, 3 ноября 2008 г.

Скрипт смены всех ящиков по умолчанию на :fail:

Technorati Теги: ,,
#!/usr/bin/perl


print "Converting all domain Default Accounts to :fail: ...";


opendir (DIR, "/etc/valiases/") or die;


while (my $file = readdir (DIR)) {


     if ($file =~ /^./) {next}


     open (IN,


"/etc/valiases/$file" ) or die;


     my @data = ;


     close (IN);


     open (OUT, ">/etc/valiases/$file") or die;


     foreach my $line (@data) {


             if ($line =~ /^*:/) {


                     print OUT "*: :fail:n";


             } else {


                     print OUT $line;


             }


     }


     close (OUT);


}


print "Done!n";


2 комментария:

  1. Выдает ошибку при запуске скрипта
    syntax error at line 8, near "= ;"

    ОтветитьУдалить
  2. А перл стоит? Если да, то какой версии?

    ОтветитьУдалить