http://www.perlmonks.org?node_id=206662


in reply to Re: Possible first post syndrome remedy
in thread Possible first post syndrome remedy

So true... within each response one can see a little window into the responders soul:
Angry monk:
site how to (OBE) The Perl Monks FAQ What makes a bad question? Before You Post ... How (Not) To Ask A Question How to RTFM How to ask questions the smart way
All forrest no trees monk:
use strict or die;
Curt monk:
see pacopod
I already asked that monk:
I already asked that here.
Too much time on his hands monk:
Here are several wonderful nodes on the subject by our beloved brother tilly that I have found useful.
No time on his hands monk:
Don't reinvent the wheel, use God::Paco from the CPAN.
Too helpful monk:
As you see in the code below, I've rewritten your regex and incorporated a rather interesting example of the Swartzian Transform. Also, I've made it object-oriented to improve readability.
Module monk:
I've written a module for this that I haven't published to the CPAN yet.
Column monk:
I've already written a column about that.
Benchmark monk:
Your solution is very slow compared to Perl's native paco function:
Benchmark: timing 10000 iterations of paco, wako... paco: 4 secs ( 3.97 usr 0.01 sys = 3.98 cpu) wako: 6 secs ( 4.97 usr 0.00 sys = 4.97 cpu)
Einstein monk:
my $contextual = '(?:c(?:bex|e(?:bax|vpxf?)|hff(?:vrf|l)|vff(?:\\ gnxr +|\\-gnxr|gnxr|r(?:ef|[feq])|vat|l)?)|dhvzf?|ebbg(?:r(?:ef|[eq])|vat|f +)?|f(?:bq(?:q(?:rq|vat)|f)?|chax|perj(?:rq|vat|f)?|u(?:nt(?:t(?:r(?:e +f|[qe])|vat)|f)?|vg(?:g(?:r(?:ef|[qe])|vat|l)|r(?:ef|[fqel])|vat|[fr] +)?))|g(?:heqf?|jngf?|vgf?)|jnax(?:r(?:ef|[eq])|vat|f)?|n(?:ef(?:r(?:\ +\ ubyr|\\-ubyr|ubyr|[fq])|vat|r)|ff(?:\\ ubyrf?|\\-ubyrf?|rq|ubyrf?|v +at))|o(?:ba(?:r(?:ef|[fe])|vat|r)|h(?:ttre|yy(?:\\ fuvg(?:g(?:r(?:ef| +[qe])|vat)|f)?|\\-fuvg(?:g(?:r(?:ef|[qe])|vat)|f)?|fuvg(?:g(?:r(?:ef| +[qe])|vat)|f)?))|n(?:paco|yy(?:r(?:ef|[qe])|vat|f)?)|yb(?:bql|j(?:\\ +wbof?|\\-wbof?|wbof?)))|p(?:bpx(?:\\ fhpx(?:ref?|vat)|\\-fhpx(?:ref?| +vat)|fhpx(?:ref?|vat)|f)?|enc(?:c(?:r(?:ef|[eq])|vat|l)|f)?|h(?:agf?| +z(?:vat|zvat|f)))|q(?:batf?|vpx(?:\\ urnq|\\-urnq|rq|urnq|vat|yrff|f) +?)|s(?:hpx(?:rq|vat|f)?|neg(?:r[eq]|vat|[fl])?|rygpu(?:r(?:ef|[efq])| +vat)?)|u(?:hzc(?:r(?:ef|[eq])|vat|f)?|n(?:eq[\\-\\ ]?ba|ys(?:\\ n[fe] +|\\-n[fe]|n[fe])frq))|z(?:bgure(?:\\ shpx(?:ref?|vat)|\\-shpx(?:ref?| +vat)|shpx(?:ref?|vat))|hgu(?:n(?:\\ shpx(?:ref?|vat|[nnn])|\\-shpx(?: +ref?|vat|[nnn])|shpx(?:ref?|vat|[nnn]))|re(?:\\ shpx(?:ref?|vat)|\\-s +hpx(?:ref?|vat)|shpx(?:ref?|vat)))|reqr?))';

(UPDATE: Fixed some thread display issues. Funny how an HTML definition list looks different in a thread than as a stand alone node.)

(UPDATE 2: Doing an XHTML version of a DL seems to fix the formatting on the different views (Thanks to Aristotle for the idea). Let me know if there are still problems. Also, how about golf monk? )

()-()
 \"/
  `

Replies are listed 'Best First'.
Re: Re: Re: Possible first post syndrome remedy
by sauoq (Abbot) on Oct 21, 2002 at 03:52 UTC

    What about Comedian monk?

    ++ BTW. :-)

    -sauoq
    "My two cents aren't worth a dime.";
    
Re^3: Possible first post syndrome remedy
by ccn (Vicar) on Aug 19, 2004 at 20:45 UTC

    Golf monk:
    I've shorten your code to 13 strokes perl -0777pale '$_=@F'
    Scoundrel anonymous monk:
    merlyn sucks
    A reply falls below the community's threshold of quality. You may see it by logging in.