[Postfix]按照队列的错误信息删除postfix挤压队列工具

最新推荐文章于 2024-05-08 21:17:17 发布

隔壁-老阳

最新推荐文章于 2024-05-08 21:17:17 发布

阅读量676

点赞数

CC 4.0 BY-SA版权

文章标签： file system 工具

本文链接：https://blog.youkuaiyun.com/oyangyufu/article/details/7229987

本文介绍了一个使用Perl语言编写的脚本示例，该脚本通过管道读取数据，并根据指定的错误信息筛选特定条目，最后将这些条目发送到另一个程序进行进一步处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl -w

use strict;
my $LISTQ = "postqueue -p";
my $POSTSUPER = "postsuper -d";
my $FILE="outfile";
my $info = "";
my $i;

if ( @ARGV !=  1 ) {
        die "Usage: $0 [\"error info\"] \n";
} else {
        $info = $ARGV[0];
}


open(QUEUE, "$LISTQ |") ||
  die "Can't get pipe to $LISTQ: $!\n";

my $entry = <QUEUE>;
$/ = "";

while ( $entry = <QUEUE> ) {
   open(OUTFILE,">>$FILE");
       print OUTFILE "$entry";
       close(OUTFILE);

}

open(FILE,"$FILE") || die "open file error!";
  my @other = <FILE>;
  foreach( @other )
  {
	  my $buf=$other[$i++];
	  my $loc=rindex($buf,$info);
          if($loc != -1)
  	  {
	   my @str=split /\s+/,$buf;
	   my $id = $str[0];
	   system("$POSTSUPER $id");  
	   open(OUTFILE,">>./idfile");
       		print OUTFILE "$id \n";
           close(OUTFILE);
	  }
  }
 system("rm -rf $FILE ./idfile");
 close FILE;