Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!helios!archone!byron
From: byron@archone.tamu.edu (Byron Rakitzis)
Newsgroups: comp.lang.perl
Subject: Re: Displaying a Right Justified CWD
Message-ID: <11511@helios.TAMU.EDU>
Date: 25 Jan 91 21:04:38 GMT
References: <5708@idunno.Princeton.EDU>
Sender: usenet@helios.TAMU.EDU
Organization: College of Architecture, Texas A&M University.
Lines: 26

In article <5708@idunno.Princeton.EDU> subbarao@phoenix.Princeton.EDU (Kartik Subbarao) writes:
>
>I was looking at that this morning, and I came to this rather quoteful
>alias.  Anyone have any simplifications? 
>
(alias shown here:)
>
>> alias cwdcmd 'set p = "`perl -e '\''for (1..(79-length("'\''$ENV'\''"{'\''\
>             '\'''\''PWD'\''\'\'''\''}))) { print "\"" "\""; } ;
>	     print "'\''$ENV'\''"{'\''\'\'''\''PWD'\''\'\'''\''}; 
>	     print "\""\r"\"";'\''`"'
>

Yes. Stop using the C-shell and save yourself from brain-death.

(not only is this hideous, but it invokes perl!! As was quoted on the
net recently:
	"a system without perl is like a hockey game without a fight"
)


Byron.

--
Byron Rakitzis
byron@archone.tamu.edu