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

RE: [PBML] Search/Replace in File (Discussion)

Expand Messages
  • Fortuno, Adam
    Ok, thanks to Paul s tip here is what I also suggest (working this time) to resolve this problem. ###################################### # Example (Start)
    Message 1 of 1 , Mar 1, 2004
    • 0 Attachment
      Ok, thanks to Paul's tip here is what I also suggest (working this time) to
      resolve this problem.

      ######################################
      # Example (Start)
      ######################################

      #! usr/bin/perl

      use strict;

      my($delim, $match) = ('|', 125);

      while(<>) {
      chomp;
      my(@line);

      @line = split("\\$delim", $_);
      $line[3] = 'Unread' if ($line[0] == $match);

      print(join($delim, @line) . "\n");
      }

      ######################################
      # Example (End)
      ######################################
    Your message has been successfully submitted and would be delivered to recipients shortly.