Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!psuvax1!rutgers!bellcore!porthos!chaucer!rdm2
From: rdm2@chaucer.uucp (25362-roe mcburnett(H053)m000)
Newsgroups: comp.lang.perl
Subject: Re: uudecode front-end?
Keywords: source uudecode
Message-ID: <1991May15.125022.9924@porthos.cc.bellcore.com>
Date: 15 May 91 12:50:22 GMT
References: <1991May10.041629.4942@pegasus.com>
Sender: Roe McBurnett
Reply-To: rdm2@chaucer.UUCP (Roe Mcburnett)
Organization: Bell Communications Research
Lines: 42

In article <1991May10.041629.4942@pegasus.com>, richard@pegasus (Richard Foulk) writes:
| Anyone have a fairly robust uudecode front-end?  Something you can
| give a multi-part posting to and have it remove the cruft before
| sending it to uudecode?


Here is something that I put together that I use.  While I am reading
news, if I see something that I want to save, I use the following:

	/article/s filename:j

to find all the articles that have the same heading, save them in
"filename" and then junk the articles.

When I want to uudecode it I use:

================cut here================================
#! /d3/SWITCH/bin/perl -S
#extract will scan for uuendcoded stuff and feed it to uudecode
open(_uud,"|uudecode");
line: while (<>) {
	if(/^BEGIN/){
		$p = 'y';
		next line;
	}
	if(/^END/){
		$p = 'n';
	}
	if($p eq 'y'){
		print _uud $_;
	}
}
================cut here

As you can see there are no error checks or other embelishments.  Feel
free (but please let me know if you come up with something better.

-Roe


Roe D McBurnett III Bellcore (908)699-2273 rdm2@chaucer.cc.bellcore.com
#insert <std.disclamer>