home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 8000 < prev    next >
Encoding:
Text File  |  1993-01-27  |  1.5 KB  |  42 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: perl-mode.el and indenting
  5. Sender: news@rchland.ibm.com
  6. Message-ID: <1993Jan26.164352.13803@rchland.ibm.com>
  7. Date: Tue, 26 Jan 1993 16:43:52 GMT
  8. Disclaimer: This posting represents the poster's views, not necessarily those of IBM
  9. Nntp-Posting-Host: florida.rchland.ibm.com
  10. Organization: IBM Rochester
  11. Lines: 29
  12.  
  13. i recently (coupla weeks actually) got perl-mode.el from someone via email.
  14. what i got was uuencoded, tarred, and compressed.  unfortunately, our weenie
  15. mailer munged the mail message a bit and i've had to manually edit the
  16. uuencoded stuff.  i still get "the file is too short" when i uudecode, but
  17. uncompress and tar don't complain but i'm still not sure if i've got a good
  18. perl-mode.el.
  19.  
  20. i get:
  21.  
  22. % /bin/ls -l perl-mode.el
  23. -rw-r--r--   1 essbaum  system     25802 Feb 06 1992  perl-mode.el
  24. % /bin/cksum perl-mode.el
  25. 2895779942 25802 perl-mode.el
  26.  
  27. does this look right?
  28.  
  29.  
  30. the reason i'm wondering is because the indenting i get in perl-mode is
  31. sometimes very weird.  for example:
  32.  
  33. for ($counter = 0;$counter < $#num;$counter++) {
  34.         $_ = $num[$counter];
  35.         if (/ABC ${endname}DEF${number}/i) { $in = 1; }
  36.         elsif ($in == 1) {
  37.         if (/^\s*ABC /i) { last; }
  38.         elsif (/XYZ\s*MOOF/i) {
  39.                 $num[$counter-1] =~ /(^.*\s+)(\w+)(OOF\s*)(\s*)(\-*\d+)(.*$)/i;
  40.                 $level = $2;
  41.                 $w = &check ($level);
  42.