Xref: utzoo comp.unix.questions:18027 comp.unix.xenix:8765
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!usc!apple!oliveb!mipos3!omepd!merlyn
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.unix.questions,comp.unix.xenix
Subject: Re: Supress Error Message
Message-ID: <5280@omepd.UUCP>
Date: 28 Nov 89 18:07:53 GMT
References: <52@fleet.UUCP> <256C6EAA.736E@rpi.edu>
Sender: news@omepd.UUCP
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Followup-To: comp.unix.questions
Organization: Stonehenge; netaccess via Intel, Hillsboro, Oregon, USA
Lines: 24
In-reply-to: tale@pawl.rpi.edu (David C Lawrence)

In article <256C6EAA.736E@rpi.edu>, tale@pawl (David C Lawrence) writes:
| There are probably at least four or five other ways to work this out,
| including a perl solution from Randall, soon to be appearing in a
| comp.unix.* group near you.

I wasn't going to do a Perl one this time, Dave, but since you botched
the spelling of my name (or my Mom did, one of the two... :-), here it
is...

#!/usr/bin/perl
for $i (("rex","cbay")) {
	@a = </usr/spool/uucp/$i/C.$i*>;
	next unless -e $a[0];
	system "/usr/lib/uucp/uucico","-r1","-s$i";
}

There.  Neat and clean.

Just another Perl hacker,
-- 
/== Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ====\
| on contract to Intel's iWarp project, Hillsboro, Oregon, USA, Sol III  |
| merlyn@iwarp.intel.com ...!uunet!iwarp.intel.com!merlyn	         |
\== Cute Quote: "Welcome to Oregon... Home of the California Raisins!" ==/