Re^3: Filtering unwanted chars from input field

Would I be breaking the law by allowing a "-" and updating the code to:

sub filter {

  my $str = shift;
  defined $str or return '';
  $str =~tr{A-Za-z0-9_.-}{}cd;

  return $str;
}
[download]

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

Replies are listed 'Best First'.
Re^4: Filtering unwanted chars from input field by johngg (Canon) on Dec 18, 2012 at 14:14 UTC
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	[reply] [d/l]
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]