Re: Removing data from a string with Regex

[jwest]

in reply to Removing data from a string with Regex

Instead of using substitution, you might try something like this:

$from =~ /^([^@]+)@/;
$from = $1;

The first line will take all the characters starting from the beginning of $from that aren't '@' and capture them to the special variable $1. Then, reassign $from to the value of $1.

To do this with substitution, you could try:

$from =~ s/@.*//;

which would substitute the '@' and anything that followed with nothing.

Hope this helps!

--jwest

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
 - HBT; The Book of Advice, 1:7

[pike]

Taking this approach one step further, the original loop could be simplified to:

while (<FILE>) {
   my ($name) = /^--from\s*([^@]+)/;
   print ($name) if defined $name;
}

pike

[CharlesClarkson]

That regex would allow --from @something.com to pass and assign ' ' to $name. It would likely be better to use:/^--from\s*([^@\s]+)/ which fails for --from @something.com and could simplify the code further.

while ( <FILE> ) {
    print $1 if /^--from\s*([^@\s]+)/;
}

    or:

print $1 if /^--from\s*([^@\s]+)/ while <FILE>;




HTH,
Charles K. Clarkson