use Perl

• Excuse the nitpicking, I can't help it (Score:1)

  by Aristotle (5147) <pagaltzis@gmx.de> on 2004.07.03 19:45 (#32113) Homepage Journal

  The following bit still irks me :)

  s/.*<(.*@.*)>.*/$1/;

  It's one of the things that constantly annoys me, like a pebble in the shoe, when I write sed scripts. What I believe it really should phrased as is

  $_ = $1 if /<(.*@.*)>/;

  Reply to This

  • Re:Excuse the nitpicking, I can't help it (Score:2)

    by brian_d_foy (44)

    "Should" is strong phrasing. If that's the way you like to do things in sed, that's fine, but around these parts there is more than one way to do it.
    
    But this is open source, so if you decide to use the script, you can change it to anything that you like. :)
    • Re:Excuse the nitpicking, I can't help it (Score:1)

      by Aristotle (5147)

      What I'm saying is that I can't do it this way in sed, so I'm forced to repeat myself: "find anything followed by the bit I want followed by anything and replace it by the bit I want". At times, I've pined for a crop() function (in sed more so than in Perl, of course, but the Perl verbiage can get old as well).