Path: utzoo!attcan!uunet!mailrus!umich!yale!think!snorkelwacker!apple!oliveb!orc!mipos3!iwarp.intel.com!news From: merlyn@iwarp.intel.com (Randal Schwartz) Newsgroups: comp.lang.perl Subject: rn[2] and funny filenames (was Re: Super Macho Hackers! ) Message-ID: <1990Feb8.032115.5667@iwarp.intel.com> Date: 8 Feb 90 03:21:15 GMT References: <1004@frankland-river.aaii.oz.au> <14678@fluke.COM> <1990Feb6.223117.16428@iwarp.intel.com> <20620@watdragon.waterloo.edu> <7013@jpl-devvax.JPL.NASA.GOV> Sender: news@iwarp.intel.com Reply-To: merlyn@iwarp.intel.com (Randal Schwartz) Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA Lines: 35 In-Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) In article <7013@jpl-devvax.JPL.NASA.GOV>, lwall@jpl-devvax (Larry Wall) writes: | Actually, I was thinking about what I'd need to write the new rn in perl. | I don't want to rewrite sendmail. (Not consciously, anyway. :-) But Larry! You could write the "canonical sendmail", and then all the rewrite rules would be in Perl, and user's customized delivery scripts would be handled by 'do $HOMEOF{$user} . "/.deliver.pl";', and everything would be wonderful! But, get 'rn' in Perl finished first. By the way, you should call rn in Perl "Child Of RN" ==> "CORN". :-) Then, I could say I spent all afternoon in the Corn Shell, and no one would suspect I was really reading news. :-) | I'd have to change one | line in doio.c, and then you could say | | open(FOO, "< $file\0") || die "Can't open $file: $!\n"; | | since Unix will ignore the trailing null. Unfortunately, I have a strlen | in the open routine where I should just use the current length of the | string, so it would chop the null too early. I'll change it in patch 9. Patch 9! The famous Patch 9! And an answer to the question that I answered for this person already! Wow! How much more excitement could I take in one afternoon! :-) print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <