in reply to Removing data from a string with Regex

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

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

[download]

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/@.*//;

[download]
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

Replies are listed 'Best First'.
Re: Re: Removing data from a string with Regex
by pike (Monk) on Nov 15, 2001 at 13:46 UTC
    Taking this approach one step further, the original loop could be simplified to: 

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

    [download]

    pike

[reply]
[d/l]

      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>;

      [download]



      HTH,
      Charles K. Clarkson
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom