1#! /usr/bin/perl -w -T 2# 3# Extract all maintainers' addresses from the GCC MAINTAINERS file, only 4# skipping those addresses specified in $OMIT. 5# 6# Copyright (c) 2003, 2009 Free Software Foundation. 7# 8# Written by Gerald Pfeifer <gerald@pfeifer.com>, June 2003/October 2003 9# 10# This file is part of GCC. 11# 12# GCC is free software; you can redistribute it and/or modify 13# it under the terms of the GNU General Public License as published by 14# the Free Software Foundation; either version 3, or (at your option) 15# any later version. 16# 17# GCC is distributed in the hope that it will be useful, 18# but WITHOUT ANY WARRANTY; without even the implied warranty of 19# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20# GNU General Public License for more details. 21# 22# You should have received a copy of the GNU General Public License 23# along with GCC; see the file COPYING3. If not see 24# <http://www.gnu.org/licenses/>. 25 26my $OMIT='rms@gnu.org|config-patches@gnu.org'; 27 28( @ARGV == 1 && -e $ARGV[0] ) || die "usage: $0 MAINTAINERS"; 29 30while( <> ) { 31 chomp; 32 33 if( /([\w\d.+-]+@[\w\d.-]+)/ ) { 34 my $addr=$1; 35 printf $addr."\n" if( not $addr =~ /$OMIT/ ); 36 } 37} 38