in reply to Re: Re: Simple Regex Question
in thread Simple Regex Question

Your point is well taken. From now on I will test my answers first.

My proposed solution is: 

use strict;
my $row1 = "newjersey-ab1.net  agg  nj1-dpta1  net  10";
$row1 =~ s/^.+\s+.+\s+(.+)-dpt.*$/\1/;
print $row1;

[download]

As far as looking at the other answers, yes I look at them. If my approach differs from the other answers then I like to throw it out there and see what people say.

I agree with you that my answer may be inefficient; I really only starting doing Perl seriously last year. My question to anyone who cares to answer is, why is it inefficient? And is this inefficiency lost in the noise of overall execution times, or would it be a problem in real-life?

Replies are listed 'Best First'.
Re: Re: Re: Re: Simple Regex Question
by KM (Priest) on Jan 30, 2001 at 03:03 UTC
    This is a good article explaining what happens inside the RE engine. Take what you have vs other answers and see what the RE engine would do with them. Also add the fact that the other answers looked for a match, and didn't do a substitution (which isn't needed in this case).

    And is this inefficiency lost in the noise of overall execution times

    No.. it could make the execution time longer. If you ran that match against 10_000 lines, it would produce it's own noise.. compared to the other solutions.

    I'm not trying to come down on ya :) Read that article, read perlre, and Mastering Regular Expressions. Then, practice working with REs. I bet in a few weeks you would look at this and say "I am now so much wiser!" :)

    Cheers,
    KM

[reply]
      Fair enough. I will try and avoid posting my own regex solutions on this site until I have read Mastering Regular Expressions and the article you recommended.
[reply]

In Section Seekers of Perl Wisdom