----- Forwarded message from John Porter <jdporter@min.net> ----- X-Authentication-Warning: cfcl.com: majordom set sender to owner-fwp@technofile.org using -f Date: Tue, 7 Nov 2000 10:04:08 -0500 From: John Porter <jdporter@min.net> To: fwp@technofile.org Subject: Re: [FWP] Comparing strings the hard way In-Reply-To: <Pine.GSO.4.21.0011070753580.25313-100000@crusoe.crusoe.net>; from jeffp@crusoe.net on Tue, Nov 07, 2000 at 07:58:31AM -0500 Precedence: bulk Reply-To: John Porter <jdporter@min.net> Jeff Pinyan wrote: Voici la langage dans mon couer. If I may nitpick: s/(?<=[dl])a(\b|ns)/e/g and s/(u)(e)/$2$1/; Joie, Yanick -- sub output_fun { local $\ = "\n"; $_ = shift; print and s#.( +).# $1 #g or substr($_,length()/2,1)=' ' while /\w/; } output_fun 'Yet another Perl hacker.'; ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe