in reply to $1 don't reset (non loop)

How about:
($address1)= $adress1 =~ /^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]
+*)$/;
($address2)= $adress2 =~ /^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]
+*)$/;

[download]

Replies are listed 'Best First'.
Re: Re: $1 don't reset (non loop)
by jockel (Beadle) on Feb 17, 2004 at 13:03 UTC
    Hi all

    This would be the cleanest looking sollution..
    but will it work..
    I'll try this..
    Thanks everyone!

    /jocke
[reply]
      Another "clean looking solution"!?
      ($_)= /^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]*)$/ for ($address1
+, $address2);

      [download]
      Works by aliasing the current variable to $_
[reply]
[d/l]

In Section Seekers of Perl Wisdom