From owner-freebsd-questions@FreeBSD.ORG  Wed Feb  9 19:55:37 2011
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34])
	by hub.freebsd.org (Postfix) with ESMTP id 8AD6A106564A
	for <freebsd-questions@freebsd.org>;
	Wed,  9 Feb 2011 19:55:37 +0000 (UTC)
	(envelope-from peter@vfemail.net)
Received: from vfemail.net (dotsevenfive.vfemail.net [69.11.239.75])
	by mx1.freebsd.org (Postfix) with ESMTP id EDD458FC12
	for <freebsd-questions@freebsd.org>;
	Wed,  9 Feb 2011 19:55:36 +0000 (UTC)
Received: (qmail 41732 invoked by uid 89); 9 Feb 2011 19:55:28 -0000
Received: from localhost (HELO freequeue.vfemail.net) (127.0.0.1)
	by localhost with SMTP; 9 Feb 2011 19:55:25 -0000
Received: (qmail 41537 invoked by uid 89); 9 Feb 2011 19:55:06 -0000
Received: from unknown (HELO www-51-2.vfemail.net) (vfemail@172.16.100.51)
	by FreeQueue with SMTP; 9 Feb 2011 19:55:06 -0000
Received: (qmail 53344 invoked by uid 89); 9 Feb 2011 19:55:15 -0000
Received: by simscan 1.4.0 ppid: 53214, pid: 53341, t: 0.2409s scanners:none
Received: from unknown (HELO Bacchus.vfemail.net)
	(cGV0ZXJAdmZlbWFpbC5uZXQ=@67.101.12.44)
	by 172.16.100.51 with ESMTPA; 9 Feb 2011 19:55:15 -0000
X-Mailer: QUALCOMM Windows Eudora Version 7.1.0.9
Date: Wed, 09 Feb 2011 14:54:17 -0500
To: freebsd-questions@freebsd.org
From: peter@vfemail.net
In-Reply-To: <20110205194334.33D6D106566C@hub.freebsd.org>
References: <20110205194334.33D6D106566C@hub.freebsd.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Message-Id: <20110209195537.8AD6A106564A@hub.freebsd.org>
Subject: Re: Trying to Make an Alias Execute a Perl Script
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 09 Feb 2011 19:55:37 -0000


At 02:42 PM 2/5/2011, peter@vfemail.net wrote:

>     *   *   *        
>I've tried this entry in my /etc/mail/aliases file, but it returns an empty e-mail messages:
>
>     extract: "| perl -wne 'while(/[\S\.]+@[\S\.]+\w+/g){print "$&\n"}' | mail user"
>     
>[and this one]:
>
>     extract: "| cat > datafile | perl -wne 'while(/[\S\.]+@[\S\.]+\w+/g){print "$&\n"}' < datafile | mail user"
>
>but [they] return an empty e-mail message rather than a list of e-mail addresses.  
>
>What am I overlooking?  


A kind soul helped me figure out how to make this work.  This e-mail alias:

    extract:      "| cat > /home/peter/datafile | /home/peter/extract.pl < /home/peter/datafile | mail -s \"Results\" user 

combined with this Perl script:

     #!/usr/bin/perl
     while (<STDIN>)
        { while(/[\S\.]+@[\S\.]+\w+/g){print "$&\n"};
        };

delivers the desired list of e-mail addresses.

   


-------------------------------------------------
This message sent via VFEmail.net
http://www.vfemail.net
$14.95 Lifetime accounts!  15GB disk!  No bandwidth quotas!