Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

print $1 if $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/;

Feb 25, 1999, 10:00 AM
ds
User (165 posts)
Feb 25, 1999, 10:00 AM
Post #1 of 2
Views: 2623
Shortcut
Quote Reply
print $1 if $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/;
I would like to use the following code into a script, but i get a 500 error every time
Code:
if $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/ {
$host=$1;
}
orginal code THAT WORKS!:

Code:
print $1 if $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/;

Feb 25, 1999, 12:21 PM
Alex
Administrator (9387 posts)
Feb 25, 1999, 12:21 PM
Post #2 of 2
Views: 2495
Shortcut
Quote Reply
Re: print $1 if $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/; In reply to
With if (condition) { .. } you need round brackets around the condition. So:

if ($ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/) {
$host=$1;
}

should work. As well as:

my ($host) = $ENV{'REMOTE_HOST'} =~ /.*\.([^.]*\.[^.]*)/;

as a one liner.

Cheers,

Alex