Path: utzoo!utgpu!utstat!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!rutgers!ucsd!sdcsvax!ucsdhub!hp-sdd!ncr-sd!ncrlnk!uunet!tektronix!percival!parsely!agora!ihf1!omepd!merlyn
From: merlyn@intelob.intel.com (Randal L. Schwartz @ Stonehenge)
Newsgroups: comp.unix.wizards
Subject: perl scripts (was Re: simple question about mv)
Message-ID: <4154@omepd.UUCP>
Date: 17 Feb 89 21:07:07 GMT
References: <18217@adm.BRL.MIL> <228@torch.UUCP> <4435@jpl-devvax.JPL.NASA.GOV>
Sender: news@omepd.UUCP
Reply-To: merlyn@intelob.intel.com (Randal L. Schwartz @ Stonehenge)
Organization: Stonehenge; netaccess via BiiN, Hillsboro, Oregon, USA
Lines: 24
In-reply-to: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)

In article <4435@jpl-devvax.JPL.NASA.GOV>, lwall@jpl-devvax (Larry Wall) writes:
[nifty perl script deleted]
| The script could of course be modified to be verbose, or to confirm, or
| to get filenames from find, or to not wipe out existing files.  For that
| matter, you could probably modify it into a C compiler if you tried hard
| enough.  :-)

<grin>

how about...

	#!/usr/bin/perl
	exec 'cc',@ARGV;

I didn't have to try very hard.  Accepts all the arguments of /bin/cc, too!

Feeling weird enough to post this...
-- 
Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095
on contract to BiiN (for now :-), Hillsboro, Oregon, USA.
ARPA: <@intel-iwarp.arpa:merlyn@intelob> (fastest!)
MX-Internet: <merlyn@intelob.intel.com> UUCP: ...[!uunet]!tektronix!biin!merlyn
Standard disclaimer: I *am* my employer!
Cute quote: "Welcome to Oregon... home of the California Raisins!"