in reply to Re^2: How can I replace the pattern in the 6 th field?
in thread How can I replace the pattern in the 6 th field?

You could split on the dash and run the substitution operator on the second field.
  • Comment on Re^3: How can I replace the pattern in the 6 th field?

Replies are listed 'Best First'.
Re^4: How can I replace the pattern in the 6 th field?
by AnomalousMonk (Archbishop) on Jun 18, 2018 at 20:22 UTC
    ... split on the dash ...

    That seems to depend on the eighth or other subsequent field being a negative number. In the following, doesn't  Sender get its parens zapped? 

    c:\@Work\Perl\monks>perl -wMstrict -le
"print 'perl version: ', $];
 ;;
 my $rec =
   'Jun 12 10 mail (sender@sender.com) - (recip1@domain.com),(recip2@d
+omain.com) 1.889 25623, queued_as: B67837C0052 Subject goes here Send
+er(sender@sender.com)';
 print qq{'$rec'};
 ;;
 my @F = split /-/, $rec;
 $F[1] =~ s/[()]//g;
 my $fixed = join '-', @F;
 print qq{'$fixed'};
"
perl version: 5.008009
'Jun 12 10 mail (sender@sender.com) - (recip1@domain.com),(recip2@doma
+in.com) 1.889 25623, queued_as: B67837C0052 Subject goes here Sender(
+sender@sender.com)'
'Jun 12 10 mail (sender@sender.com) - recip1@domain.com,recip2@domain.
+com 1.889 25623, queued_as: B67837C0052 Subject goes here Sendersende
+r@sender.com'

    [download]
    But it has no dependence on any Perl version above 5.8 — nor indeed, I think, above 5.0!

    Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]
      That seems to depend on the eighth or other subsequent field being a negative number. In the following, doesn't Sender get its parens zapped?
      Yeah, you're right++, the solution really depends on the actual detailed data format, which we don't really know.

      Splitting the input on the first dash (with the split /PATTERN/,EXPR,LIMIT syntax with an appropriate LIMIT (I guess this should be 2, I can't test right now) should probably yield the desired result.

[reply]
[d/l]
[select]
        ... the solution really depends on the actual detailed data format, which we don't really know.

        Well, we know what I would consider to be a second approximation to the actual, rather messy data format (see My ACTUAL data...) — with more to come I shouldn't be surprised.

        Splitting the input on the first dash ... with an appropriate LIMIT ...

        But a data record like
            Jun 12 09 mail (sender@sender.com) - (recip1@domain.com) 0.075 9387, queued_as: C77837C0050 Subject goes here Sender(sender@sender.com)
        has multiple parenthesized fields/substrings after the first dash, not all of which have to be fixed up, so it seems we're stuck with split-ing on whitespace.

        Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom