Regexpr FTP

[MC]

Hi,

i'm trying to make a regexpr wether an ftp-input is valid or not.
this is what i have:

$var = "ftp://userass@localhost:21";
if ( $var =~ /^ftp:\/\/([^:]*)[^@]*)@([^:]*).*)$/i ) { print
"$1:$2@".$3.":$4\n"; }Can anyone tell me if something is wrong with
this?For some reason it won't accept the "@" in the middle,if i replace it
with "!" for example the expr works just fine.i've also tried escaping it,
also no luck.Thanks

 

[Jim Gibson]

Hi,

i'm trying to make a regexpr wether an ftp-input is valid or not.
this is what i have:

$var = "ftp://userass@localhost:21";
if ( $var =~ /^ftp:\/\/([^:]*)[^@]*)@([^:]*).*)$/i ) { print
"$1:$2@".$3.":$4\n"; }Can anyone tell me if something is wrong with
this?For some reason it won't accept the "@" in the middle,if i replace it
with "!" for example the expr works just fine.i've also tried escaping it,
also no luck.Thanks

You need to escape the '@' in $var. If I do that, it works fine for me.
If you had put 'use strict;' and 'use warnings;' at the beginning of
your program perl would have told you that. Next time, please show a
complete program that demonstrates your problem, and please post to
comp.lang.perl.misc instead because this newsgroup is defunct.

 

[Martin Gregory]

Next time, please show a
complete program that demonstrates your problem, and please post to
comp.lang.perl.misc instead because this newsgroup is defunct.

Out of interest, what does being "defunct" mean? How does one know that it is the case?

Obviosuly people are writing to and reading this group... what
status does 'defunct' confer?

Ta,

 

[Jim Gibson]

Out of interest, what does being "defunct" mean? How does one know that it
is the case?

I know it is defunct because people tell me it is defunct.

Obviosuly people are writing to and reading this group... what
status does 'defunct' confer?

It means the Usenet protocol command 'rmgroup' was issued for this
newsgroup. This happened many years ago. However, improperly-configured
newservers (like the ones you and I are accessing) can continue to
publish and receive articles posted to comp.lang.perl.

See http://tinyurl.com/4skts for the best description I have seen of
the status of comp.lang.perl.

To repeat: comp.lang.perl is defunct!

 

[Martin Gregory]

To repeat: comp.lang.perl is defunct!

But we'll read it anyhow