home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 8003 < prev    next >
Encoding:
Text File  |  1993-01-27  |  1.7 KB  |  50 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!ferkel.ucsb.edu!taco!gatech!news.ans.net!newsgate.watson.ibm.com!yktnews!admin!florida!essbaum
  3. From: essbaum@rchland.vnet.ibm.com (Alexander Essbaum)
  4. Subject: Re: perl-mode.el and indenting
  5. Sender: news@rchland.ibm.com
  6. Message-ID: <1993Jan26.174628.11537@rchland.ibm.com>
  7. Date: Tue, 26 Jan 1993 17:46:28 GMT
  8. Disclaimer: This posting represents the poster's views, not necessarily those of IBM
  9. References:  <1993Jan26.164352.13803@rchland.ibm.com>
  10. Nntp-Posting-Host: florida.rchland.ibm.com
  11. Organization: IBM Rochester
  12. Lines: 36
  13.  
  14. In article <1993Jan26.164352.13803@rchland.ibm.com>, essbaum@rchland.vnet.ibm.com (Alexander Essbaum) writes:
  15.  
  16. that's strange.  where's the rest of my message?...
  17.  
  18. try again:
  19.  
  20. the reason i'm wondering is because the indenting i get in perl-mode is
  21. sometimes very weird.  for example:
  22.  
  23. for ($counter = 0;$counter < $#num;$counter++) {
  24.         $_ = $num[$counter];
  25.         if (/ABC ${endname}DEF${number}/i) { $in = 1; }
  26.         elsif ($in == 1) {
  27.         if (/^\s*ABC /i) { last; }
  28.         elsif (/XYZ\s*MOOF/i) {
  29.                 $num[$counter-1] =~ /(^.*\s+)(\w+)(OOF\s*)(\s*)(\-*\d+)(.*$)/i;
  30.                 $level = $2;
  31.                 $w = &check ($level);
  32.  
  33.  
  34. BECOMES:
  35.  
  36. for ($counter = 0;$counter < $#num;$counter++) {
  37.     $_ = $num[$counter];
  38.     if (/ABC ${endname}DEF${number}/i) { $in = 1; }
  39. elsif ($in == 1) {
  40.     if (/^\s*ABC /i) { last; }
  41. elsif (/XYZ\s*MOOF/i) {
  42.     num[$counter-1] =~ /(^.*\s+)(\w+)(OOF\s*)(\s*)(\-*\d+)(.*$)/i;
  43.                                                            $level = $2;
  44.                                                            $w = &check ($level);
  45.  
  46.  
  47. is it supposed to do this?
  48.  
  49. axel
  50.