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


in reply to Re^3: error 1073741819
in thread error 1073741819

Ok this is really weird but it runs in Komodo don't ask me how. The expression is what I got from using Regex::Assemble. Please let me know if there is something wrong with Komodo or the regex assemble. 


use strict;
use Regexp::Assemble;

my $ra = Regexp::Assemble->new;
$ra->add( 'outlook\s+for\s+any\s+rating|(?:rating|if\s+on\s+negative|M
+icrosoft|suggesting\s+an|may\s+contain\s+statements\s+about\s+future\
+s+events\,|business\s+conditions\s+and\s+the)\s+outlook|guidance\s+(?
+:to\s+approve|facility)' );
$ra->add( '(?:authoritative|revenue\s+recognition|invaluable\s+practic
+al|valuable|regulatory|technical|under\s+the|staff\'s|judicial|SEC|FD
+A|Treasury(?:\s+Department)?|specific|implementation|their|government
+|any\s+ruling|college|absent|\s+his|interim|intrepretive|transition|a
+dministrative|procedural|related|applicable|accounting|definitive|sup
+reme\s+court|superceding|IRS|Internal\s+Revenue\s+Service|valued|EITF
+\s+accounting)\s+guidance' );
$ra->add( 'guidance\s+(?:and\s+rules|promulgated(?:\s+thereunder)?|in\
+s+SFAS)|(?:provided|issued)\s+by\s+(?:the\s+)?(?:SEC|Securities\s+and
+\s+Exchange\s+Commission|Internal\s+Revenue\s+Service|Secretary|Unite
+d\s+States|Financial\s+Accounting)' );
$ra->add( '(?:other|applicable)\s+guidance\s+issued|according\s+to\s+t
+he\s+guidance\s+contained|provide\s+guidance\s+to\s+directors|receivi
+ng\s+guidance' );
$ra->add( '(?:current|other)\s+guidance\s+(?:under|from)|assumes\s+gui
+dance\s+of\s+(?:the|a)\s+(?:company|board|talented\s+team|compensatio
+n)|guidance\s+(?:system|software|technology)' );
$ra->add( '(?:future\s+statutes|ordinances|orders|rules|regulations)\,
+\s+guidance|pursuant\s+to\s+SEC\s+guidance|Outlook\s+Pointe|guidance\
+s+line\s+of\s+credit' );
$ra->add( 'guidance\s+from\s+(?:the\s+)?(?:FDA|Financial\s+Accounting\
+s+Standards\s+Board)|(?:counsel|advice|information|circular|regulatio
+n|code)\s+and\s+guidance' );
$ra->add( 'forward\s+to\s+his\s+guidance|guidance\s+received\s+by\s+th
+e\s+Company|section\s+409A\s+transition\s+guidance|absent\s+guidance\
+s+from\s+the\s+Commission' );
$ra->add( 'the\s+guidance\s+from\s+the\s+OCA|Internal\s+Revenue\s+Serv
+ice\s+has\s+issued\s+guidance|(?:wisdom|technical\s+assistance|necess
+ary\s+supervision|leadership)\s+and\s+guidances?' );
$ra->add( 'guidance\s+(?:on|of|in)\s+(?:de\-recognition|APB\s+25|S?FAS
+\s+No\.\s+144|SFAS\s+No\.\s+(?:150|13|123)|ARB|SEC\s+Release|SOP\s+90
+\-7|Emerging\s+Issues|SAB\s+101|determining\s+whether\s+multiple)' );
$ra->add( 'provides?\s+guidance\s+(?:on\s+(?:how)?|for)\s+(?:to\s+iden
+tify|uncertain\s+tax|whether)|(?:interpretation|permits|knowledge|reg
+ulations|successor\s+statutes|policy(?:\s+statements)?)\s+(?:or|\,)\s
++guidance' );
$ra->add( 'regarding\s+management\'s\s+plans\,\s+goals\,\s+expectation
+s\,\s+guidance|To\s+obtain\s+guidance\s+on|for\s+additional\s+guidanc
+e\s+on\s+which\s+number\s+to\s+report' );
$ra->add( 'FD\s+Disclosure\s+of\s+Form\s+8\-K\s+in\s+accordance\s+with
+\s+guidance|guidance\s+document\s+promulgated|seek\s+guidance\s+from|
+employee\s+handbook\s+for\s+guidance' );
$ra->add( '(?:SAB\s+101|FIN\s+48|EITF\s+00\-14|SOP98\-\d|SFAS\s+\d\d\d
+?)\s+(?:also\s+)?provides\s+guidance(?:\s+on\s+whether|related)|Item\
+s+\d\d?\s+pursuant\s+to\s+guidance' );
$ra->add( 'guidance\s+disseminated\s+by\s+the\s+SEC|additional\s+guida
+nce\s+to\s+physicians|FASB\s+issued\s+final\s+guidance|informed\s+of\
+s+the\s+guidance\s+relating' );
$ra->add( '(?:\"projection\"|\"intend\")(?:\s+and\s+|\,)\"outlook\"|co
+mpany\s+follows\s+the\s+guidance\s+of|guidance\s+should\s+be\s+applie
+d\s+prospectively|provides\s+guidance\s+for\s+using\s+fair\s+value' )
+;
$ra->add( 'under\s+the\s+guidance\s+and\s+(?:advice\s+of|Procedures|le
+adership|counsel|support)|company\s+follows\s+the\s+guidance\s+set\+f
+orth\s+in\s+statement' );
$ra->add( 'board\s+will\s+continue\s+to\s+provide\s+guidance|guidance\
+s+requiring\s+the\s+credit|(?:directive|navigation|exemption|practice
+|judgments|doctrine|forecast)\,\s+guidance' );
$ra->add( 'guidance\s+(?:is\s+effective|which\s+allowed)|(?:comply\s+w
+ith\s+guidance\s+set\s+forth\s+by|guidance\s+available\s+from)\s+the\
+s+(?:treasury|internal\s+revenue\s+service|IRS|SEC|FASB|AICPA)' );
$ra->add( 'guidance\s+(?:prescribed|set\s+forth|issued)\s+by(?:\s+the\
+s+(?:Department|Treasury|AICPA|FASB|SEC))?|(?:action|policy|orders)\s
++or\s+guidance' );
$ra->add( 'Statements\s+in\s+this\s+press\s+release\s+concerning\s+the
+\s+company\'s\s+business\s+outlook|guidance\s+regarding\s+the\s+accep
+tance\s+of\s+gifts');
$ra->add( 'guidance\s+on\s+(?:recognizing|the\s+application|the\s+iden
+tification|when\s+to\s+assess|accounting\s+for\s+revenue)');
print $ra->re;

[download]

thanks again for the quick response

Replies are listed 'Best First'.
Re^5: error 1073741819
by BrowserUk (Patriarch) on Aug 20, 2012 at 03:35 UTC

    Again, you are not giving us accurate information. (Maybe because your tools are lying to you.)

    When I run the above program, I get this output:

    (?-xism:(?:(?:(?:(?:authoritative|revenue\s+recognition|invaluable\s+p
+ractical|valuable|regulatory|technical|under\s+the|staff's|judicial|S
+EC|FDA|Treasury(?:\s+Department)?|specific|implementation|their|gover
+nment|any\s+ruling|college|absent|\s+his|interim|intrepretive|transit
+ion|administrative|procedural|related|applicable|accounting|definitiv
+e|supreme\s+court|superceding|IRS|Internal\s+Revenue\s+Service|valued
+|EITF\s+accounting)|provides?\s+guidance\s+(?:on\s+(?:how)?|for)\s+(?
+:to\s+identify|uncertain\s+tax|whether)|(?:interpretation|permits|kno
+wledge|regulations|successor\s+statutes|policy(?:\s+statements)?)\s+(
+?:or|\,)|board\s+will\s+continue\s+to\s+provide\s+guidance|guidance\s
++requiring\s+the\s+credit|(?:directive|navigation|exemption|practice|
+judgments|doctrine|forecast),|FD\s+Disclosure\s+of\s+Form\s+8-K\s+in\
+s+accordance\s+with\s+guidance|guidance\s+document\s+promulgated|seek
+\s+guidance\s+from|employee\s+handbook\s+for|(?:SAB\s+101|FIN\s+48|EI
+TF\s+00\-14|SOP98\-\d|SFAS\s+\d\d\d?)\s+(?:also\s+)?provides\s+guidan
+ce(?:\s+on\s+whether|related)|Item\s+\d\d?\s+pursuant\s+to|(?:other|a
+pplicable)\s+guidance\s+issued|according\s+to\s+the\s+guidance\s+cont
+ained|provide\s+guidance\s+to\s+directors|receiving)\s+guidanc|(?:\"p
+rojection\"|\"intend\")(?:\s+and\s+|\,)"outlook"|company\s+follows\s+
+the\s+guidance\s+of|guidance\s+should\s+be\s+applied\s+prospectively|
+provides\s+guidance\s+for\s+using\s+fair\s+valu)e|guidance\s+(?:(?:fr
+om\s+(?:the\s+)?(?:FDA|Financial\s+Accounting\s+Standards\s+Board)|(?
+:counsel|advice|information|circular|regulation|code)\s+and|(?:prescr
+ibed|set\s+forth|issued)\s+by(?:\s+the\s+(?:Department|Treasury|AICPA
+|FASB|SEC))?|(?:action|policy|orders)\s+or)\s+guidance|(?:and\s+rules
+|promulgated(?:\s+thereunder)?|in\s+SFAS)|(?:provided|issued)\s+by\s+
+(?:the\s+)?(?:SEC|Securities\s+and\s+Exchange\s+Commission|Internal\s
++Revenue\s+Service|Secretary|United\s+States|Financial\s+Accounting)|
+(?:on|of|in)\s+(?:de\-recognition|APB\s+25|S?FAS\s+No\.\s+144|SFAS\s+
+No\.\s+(?:150|13|123)|ARB|SEC\s+Release|SOP\s+90-7|Emerging\s+Issues|
+SAB\s+101|determining\s+whether\s+multiple)|(?:is\s+effective|which\s
++allowed)|(?:comply\s+with\s+guidance\s+set\s+forth\s+by|guidance\s+a
+vailable\s+from)\s+the\s+(?:treasury|internal\s+revenue\s+service|IRS
+|SEC|FASB|AICPA)|disseminated\s+by\s+the\s+SEC|additional\s+guidance\
+s+to\s+physicians|FASB\s+issued\s+final\s+guidance|informed\s+of\s+th
+e\s+guidance\s+relating|on\s+(?:recognizing|the\s+application|the\s+i
+dentification|when\s+to\s+assess|accounting\s+for\s+revenue))|(?:rega
+rding\s+management's\s+plans,\s+goals,\s+expectations,\s+guidance|To\
+s+obtain\s+guidance\s+on|for\s+additional\s+guidance\s+on\s+which\s+n
+umber\s+to\s+repor|under\s+the\s+guidance\s+and\s+(?:advice\s+of|Proc
+edures|leadership|counsel|support)|company\s+follows\s+the\s+guidance
+\s+set\+forth\s+in\s+statemen|(?:future\s+statutes|ordinances|orders|
+rules|regulations),\s+guidance|pursuant\s+to\s+SEC\s+guidance|Outlook
+\s+Pointe|guidance\s+line\s+of\s+credi)t|outlook\s+for\s+any\s+rating
+|(?:rating|if\s+on\s+negative|Microsoft|suggesting\s+an|may\s+contain
+\s+statements\s+about\s+future\s+events\,|business\s+conditions\s+and
+\s+the)\s+outlook|guidance\s+(?:to\s+approve|facility)|the\s+guidance
+\s+from\s+the\s+OCA|Internal\s+Revenue\s+Service\s+has\s+issued\s+gui
+dance|(?:wisdom|technical\s+assistance|necessary\s+supervision|leader
+ship)\s+and\s+guidances?|(?:current|other)\s+guidance\s+(?:under|from
+)|assumes\s+guidance\s+of\s+(?:the|a)\s+(?:company|board|talented\s+t
+eam|compensation)|guidance\s+(?:system|software|technology)|forward\s
++to\s+his\s+guidance|guidance\s+received\s+by\s+the\s+Company|section
+\s+409A\s+transition\s+guidance|absent\s+guidance\s+from\s+the\s+Comm
+ission|Statements\s+in\s+this\s+press\s+release\s+concerning\s+the\s+
+company's\s+business\s+outlook|guidance\s+regarding\s+the\s+acceptanc
+e\s+of\s+gifts))

    [download]

    And when I run that regex against a million word string, it runs perfectly.

    At this point, I can only reiterate my earlier advises:

    1. Stop running your code inside Komodo -- it appears to be lying to you.
    2. Post real code and a small dataset that reproduces the problem -- outside of Komodo -- and you stand a chance of getting a solution.

    Until then, I'm diagnosing this as a Komodo problem, which I cannot help you with, and which is beyond the scope of this forum.

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    The start of some sanity?
[reply]
[d/l]

      Thank you so much! Why would Komodo be messed up though? I tried regex assembler in the command prompt and I got the same thing as before though. I am looking at the regex expression output that you have got and mine. The difference is in (?-xism: vs (?^: which is what I get. I am rerunning it with the regex expression that you have got hopefully it will work.

      Just a quick question. What editor do you use or recommend? Also, I use active perl should I use a different type of perl? Thank you again!!

[reply]
        Why would Komodo be messed up though?

        See Re^7: threads->new falling in a heap. for a few hints. Then go and ask the Komodo people for support.

        The difference is in (?-xism: vs (?^: which is what I get.

        The sequence (?^: isn't a legal perl regex construct, so any module that was producing that sequence would never work anywhere.

        It is really hard see how a well-known and used module like Regexp::Assemble could produce such an error?

        What editor do you use or recommend?

        I've been using TextPad for about 15 years. It is far from perfect, but it rarely lets me down...

        For all I know Komodo may be a brilliant editor, but as I said in the link above, I wouldn't want to base my earning of a crust upon such a complex piece of software. Not only are you subjecting yourself to the risks of the Komodo programmer's work; but also those of the programmers of half a dozen different language runtimes and the interactions between them.

        And any editor that requires 11 kernel threads to edit a single file; in addition to the 32 kernel threads is uses just to start up, is just asking for trouble. It is essentially a lottery machine that is bound to screw up randomly.

        I'm a strong advocate of threading, but 43 threads, 6 run-times and goodness knows what other technologies all in a single process? There is simply no way to reason about all the possible states that can exist; much less test them all. It is simply numerically impossible.

        At the very least, stop running your perl code from within the editor. Run it from the command line. If it screws up then, you at least know the editor isn't the source of the problem.

        With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority".
        In the absence of evidence, opinion is indistinguishable from prejudice.

        The start of some sanity?
[reply]
[d/l]
[select]
        Thank you so much! Why would Komodo be messed up though?

        Have you tried to get a C callstack of the crash? Have you run it from Komodo "Run without Debugging"? Have you run it from Komodo with "Debug in separate console" checked or unchecked?

        In all likely hood, what is happening is a C stack or Perl stack recursion when you attach a Perl debugger to the perl process, or Komodo tried to "eval" something in the watch window which is caused C stack exhaustion. Komodo when it debugs perl, loads in a pure perl module called "Your Activestate Komodo Folder\lib\support\dbgp\perllib\perl5db.pl" which sets up a TCPIP socket back to the debugger for communications.
[reply]

        I checked with my laptop and running the regex assembler I get the same expression that you did!!!

        I am reinstalling perl and Komodo in my desktop! Thank you so much!

[reply]
[reply]
[d/l]

In Section Seekers of Perl Wisdom