Re^2: Stopping bad input (harder than sanitizing)

I think I made some progress:


     $search = $top->Entry ('-width'            => 20,
                            '-validate'         => 'key',
                            '-validatecommand'  => sub {$_[1] =~/\w+/ 
+;} ,
                            '-invalidcommand'   => sub {$top -> bell()
+ ;},
               ) ->pack('-side' => 'left');
[download]

I found the code on 'Mastering Perl/Tk' -- I modified it to work with my program. But I still need it to accept ':' and '-'. As for invalid input it should do something like this:

'-invalidcommand' => sub {$_[1] =~/^[[:cntrl:]] ;
                          $top -> bell;
                         }
[download]

But it sill locks up...

2021-03-09 Athanasius added code tags around final snippet.

Comment on Re^2: Stopping bad input (harder than sanitizing)
Select or Download Code

Replies are listed 'Best First'.
Re^3: Stopping bad input (harder than sanitizing) by swl (Prior) on Mar 09, 2021 at 06:44 UTC
You could use a character class to accept : and - in the validatecommand sub. `'-validatecommand' => sub {$_[1] =~/[\w:-]+/ ;} ,` [download] WRT your invalidcommand sub, the regexp does nothing at the moment. Should the first line be something like this if you want to accept control characters? `'-invalidcommand' => sub { return if $_[1] =~/^[[:cntrl:]] ; $top -> bell; }` [download] Or do you want the bell if it starts with a control character? `'-invalidcommand' => sub { $top -> bell if $_[1] =~/^[[:cntrl:]] ; }` [download] I don't code with Tk, but hopefully this is useful.	[reply] [d/l] [select]
Re^4: Stopping bad input (harder than sanitizing) by Anonymous Monk on Mar 10, 2021 at 18:11 UTC
Here is something new: I also wanna catch '[' (for [(1)). But when my expression is $_1 =~ /^[\w\s:-\[]+/ it spits out an error and says "stack moved" (is that PERL humor?). How do I add '[' to the character class? When I press <RET> with no data, the program still locks up.	[reply]
Re^5: Stopping bad input (harder than sanitizing) by hippo (Archbishop) on Mar 10, 2021 at 18:48 UTC
The hyphen in the middle is significant. Move it to the end if you want it to be a literal. 🦛	[reply]
Re^5: Stopping bad input (harder than sanitizing) by tybalt89 (Monsignor) on Mar 10, 2021 at 19:08 UTC
Please put perl code inside code tags, it's not possible to tell just what you entered.	[reply]
Re^4: Stopping bad input (harder than sanitizing) by Anonymous Monk on Mar 10, 2021 at 17:42 UTC
Gonna try those two ideas right now. My goal is two fold: 1) if this character-set, then its valid 2) if it begins with a control char (in particular <RET> ) then complain	[reply]