Supress Error Message

[Randal Schwartz]

In article <256C6EAA.736E at rpi.edu>, tale at 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 at iwarp.intel.com ...!uunet!iwarp.intel.com!merlyn	         |
\== Cute Quote: "Welcome to Oregon... Home of the California Raisins!" ==/