Re^4: Filtering unwanted chars from input field

in reply to Re^3: Filtering unwanted chars from input field
in thread Filtering unwanted chars from input field

That will work ok.

$ perl -E '
> @data = (
>    q{Hello, world!},
>    q{te-st%$/*.},
>    q{All_of_this_is_OK.},
>    q{!@#$%^&*()12345},
>    );
> say for map { tr{A-Za-z0-9_.-}{}cd; $_ } @data;'
Helloworld
te-st.
All_of_this_is_OK.
12345
$
[download]

Cheers,

JohnGG

Comment on Re^4: Filtering unwanted chars from input field Download Code

Replies are listed 'Best First'.
Re^5: Filtering unwanted chars from input field by Anonymous Monk on Dec 19, 2012 at 20:51 UTC
What is I want to allow spaces as well? \s+ does not work.	[reply]
Re^6: Filtering unwanted chars from input field by johngg (Canon) on Dec 19, 2012 at 23:18 UTC
The left hand side of the `tr` is not a regular expression. Just include a real space in the character list. `$ perl -E ' > @data = ( > q{Hello, world!}, > q{te-st%$/.}, > q{All_of_this_is_OK.}, > q{!@#$%^&()12345}, > ); > say for map { tr{A-Za-z0-9_. -}{}cd; $_ } @data;' Hello world te-st. All_of_this_is_OK. 12345 $` [download] Cheers, JohnGG	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom