Path: utzoo!attcan!uunet!convex!news
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: '~' in file names
Message-ID: <1991Feb28.233048.20977@convex.com>
Date: 28 Feb 91 23:30:48 GMT
References: <1991Feb28.151019.22944@uvaarpa.Virginia.EDU> <30953@shamash.cdc.com>
Sender: news@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 30
Nntp-Posting-Host: pixel.convex.com

From the keyboard of rrr@svl.cdc.com:
:Any chance of getting perl to support this [tilde-expansion]?

If you mean

    open(FILE, '~john/bar');

then you would also be expecting perl to "know" to do the right
thing with:

    unlink '~john/bar';
and
    unlink '~john/bar*';

which is getting way out of hand.  That's what globbing is for.
These work if you have csh on your system (or have linked sh to ksh):

    open(FILE, <~john/bar>);
    unlink <~john/bar>;
    unlink <~john/bar*>;

If not, you could use my glob package, which does the right 
thing here.

--tom
--
"UNIX was not designed to stop you from doing stupid things, because
 that would also stop you from doing clever things." -- Doug Gwyn

 Tom Christiansen                tchrist@convex.com      convex!tchrist