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

Re: HELP...what am I doing wrong?

Expand Messages
  • markev_123
    Doh...Red faced. Thanks
    Message 1 of 15 , Nov 24, 2004
    • 0 Attachment
      Doh...Red faced.

      Thanks

      --- In perl-beginner@yahoogroups.com, "Charles K. Clarkson"
      <cclarkson@h...> wrote:
      > From: markev_123 <mailto:markev_123@y...> wrote:
      >
      >
      > : I tried modifying the code to write the results to an external
      > : file.
      >
      > : The file thats gets created is empty. Currently it dumps it
      > : the the screen.
      >
      >
      > [snip]
      > : while ( <INFILE> ) {
      > : if ( /0 AAA / ) {
      > : s/0 AAA/0 AAA BBB/;
      > : $flag = 1;
      > : }
      > : if ( $flag && /^XXX / ) {
      > : s/^XXX/111 XXX/;
      > : $flag = 0;
      > : }
      > : print;
      >
      > print OUTFILE;
      >
      > : }
      > [snip]
      >
      > HTH,
      >
      > Charles K. Clarkson
      > --
      > Mobile Homes Specialist
      > 254 968-8328
    Your message has been successfully submitted and would be delivered to recipients shortly.