Re: Filtering unwanted chars from input field

in reply to Filtering unwanted chars from input field

I agree with CountZero. One implementation of this can be:

use strict;
use warnings;

print filter($_), "\n" for <DATA>;

sub filter {
    my $str = shift;
    defined $str or return '';
    my $acceptable = 'a-z0-9_.';
    
    $str =~ s/[^$acceptable]//gi;

    return $str;
}

__DATA__
Hello, world!
te-st%$/*.
All_of_this_is_OK.
!@#$%^&*()12345
[download]

Output

Helloworld
test.
All_of_this_is_OK.
12345
[download]

Edit: Used a simpler s///

Comment on Re: Filtering unwanted chars from input field Select or Download Code

Replies are listed 'Best First'.
Re^2: Filtering unwanted chars from input field by johngg (Canon) on Dec 17, 2012 at 21:02 UTC
Instead of spliting and greping it might be simpler to use `tr` (see Quote and Quote like Operators). `$ 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 test. All_of_this_is_OK. 12345 $` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l] [select]
Re^3: Filtering unwanted chars from input field by Kenosis (Priest) on Dec 17, 2012 at 21:10 UTC
Thank you, johngg. Not sure why I complicated it. Yours is, indeed, a more elegant and readable solution (++). Was brought back to this node after the following should-have-done-this-in-the-first-place solution occurred to me: `$str =~ s/[^$acceptable]//gi;` [download] Edited my original comment to reflect this...	[reply] [d/l]
Re^3: Filtering unwanted chars from input field by Anonymous Monk on Dec 18, 2012 at 14:01 UTC
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]	[reply] [d/l]
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
Re^6: Filtering unwanted chars from input field by johngg (Canon) on Dec 19, 2012 at 23:18 UTC

In Section Seekers of Perl Wisdom