Loading ...
Sorry, an error occurred while loading the content.

252Re: [NTS] The ANSI 26 character

Expand Messages
  • Sheri
    Dec 19, 2003
      --- In ntb-scripts@yahoogroups.com, "Alan C." <acumming@c...> wrote:

      > Sheri's. But I just now couldn't get her's to work with
      Activestate Perl 5.81 build 807 on Win 2k SP4
      >

      Try it this way:

      while (<>) {
      if (eof && $] > 5.006) {
      $badchar = chr(26);
      s/($badchar)$//;
      }
      $item = $_;
      print $item;
      $total = $total + $_;
      }
      print "--------\n";
      print $total;
      #end

      It works for me; in order to test to it, I had to install Perl in my
      new XP environment. I installed the latest ActiveState Perl which at
      the moment is 5.8.2 Build 808.

      Then I had to get NoteTab working.

      <g>

      Regards,
      Sheri
    • Show all 25 messages in this topic