merlyn@iwarp.intel.com (Randal Schwartz) (02/08/90)
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)/, <<STRANGE))); 330373371372288353366367372360357370288336357370364288360353355363357370300 STRANGE -- /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\ | on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | | merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | \=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/
jand@kuling.UUCP (Jan Dj{rv) (02/11/90)
In article <1990Feb8.032115.5667@iwarp.intel.com> merlyn@iwarp.intel.com (Randal Schwartz) writes:
:
: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. :-)
[stuff deleted]
:print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <<STRANGE)));
:330373371372288353366367372360357370288336357370364288360353355363357370300
:STRANGE
I thought you spent the afternoon constructing your "motto" in strange perlian
ways. :-) This last one was hairy, but shouldn't there be a trailing space?
Jan D.
dan@maccs.dcss.mcmaster.ca (Dan Trottier) (02/18/90)
In article <1990Feb8.032115.5667@iwarp.intel.com> merlyn@iwarp.intel.com (Randal Schwartz) writes: >By the way, you should call rn in Perl "Child Of RN" ==> "CORN". :-) Or better yet "Perl Of RN" :-) :-) Everyone will want to download it! >Then, I could say I spent all afternoon in the Corn Shell, and no one >would suspect I was really reading news. :-) Of course if Perl could be used as a real login shell Larry could make rn one of the built in commands :-) Now that what I call a fully functional command shell... -- Dan Trottier dan@maccs.dcss.McMaster.CA Dept of Computer Science ...!uunet!utai!utgpu!maccs!dan McMaster University (416) 525-9140 x3444