This is one way:
A) Save script.pl
use strict;
while(@ARGV){
my $text = shift;
$text =~ s/[^a-z0-9]//ig; # 1
# $text =~ s/[^a-z0-9_@.-]//ig; # 2
print "$text\n";
}
B) usage: script.pl am13-+km9 am13-+km9_@.-$#!%^&*()
1. comment out #2 above
2. comment out #1 above
"Andre" <[EMAIL PROTECTED]> wrote in message
01c901c2d404$ac3976c0$[EMAIL PROTECTED]">news:01c901c2d404$ac3976c0$[EMAIL PROTECTED]...
Hi
How can y give s sbstition order of the kind
@string=~s/nonalfanum//g;
in these two cases?
1-wich will search and replace with "" (empty char) all nunnumeric or
nonalphabetic chars?
2-wich will search and replace with "" (empty char) all nunnumeric or
nonalphabetic chars with the exception of "-","_","@","." ?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
