home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / perl / 5862 < prev    next >
Encoding:
Internet Message Format  |  1992-09-11  |  1.3 KB
  1. Path: sparky!uunet!sun-barr!olivea!spool.mu.edu!nigel.msen.com!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!ux2.cso.uiuc.edu!ejk
  2. From: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CCSO)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: perl dumps core on long regular expressions.
  5. Message-ID: <BuF4AJ.5nJ@news.cso.uiuc.edu>
  6. Date: 11 Sep 92 14:30:17 GMT
  7. References: <VICTOR.92Sep11094204@terse4.watson.ibm.com>
  8. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  9. Organization: University of Illinois - Urbana
  10. Lines: 28
  11.  
  12. victor@watson.ibm.com (Victor Miller) writes:
  13.   |I've tried the following script on perl 4.010 on an RS/6000, sun
  14.   |sparcstation and IBM RT/PC.  If you call this script bug, then
  15.   |bug n
  16.   |
  17.   |where n is any number 30 or bigger dumps core, but an smaller value
  18.   |terminates normally.  The local administrators haven't upgraded to
  19.   |4.035 yet, so I can't test it on that.
  20.   |
  21.   |#!/usr/bin/perl
  22.   |$n = shift;
  23.   |$n = 25 if $n eq "";
  24.   |for $i (0..$n) {
  25.   |    push(@files,sprintf("%3d",$i));
  26.   |}
  27.   |     
  28.   |$re = '^(' . join("|", @files) .  ')+$' ;
  29.   |
  30.   |@a = ('a','AAA','AAAS');
  31.   |foreach (@a) {
  32.   |    $len{$_} = length if /$re/io;
  33.   |}
  34.  
  35. Had the same problem at 4.010. It was fixed at 4.019.
  36.  
  37. ----------------------------------
  38. Ed Kubaitis (ejk@ux2.cso.uiuc.edu)
  39. Computing & Communications Services Office - University of Illinois, Urbana
  40.