Postfix „postqueue -p“ (print queue) nett formatieren

ist ganz einfach:

postqueue -p |
   perl -ne '
      /^[A-F09]+/&&do{
         $a=<>; $b=<>;
         chomp($_,$a,$b);
         $a=~s/[\(\)]//g;
         $b=~s/ //g;
         $msg=$_." to: ".$b." message:".$a;
         $msg=~s/[\t ]+/ /g;
         print "$msg\n";
      }
   '