in reply to A graphical regular expression tester.
Hi reasonablekeith,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
You should be aware that the following errors occur when matching the regex "a?Cd" against the data "abcdefg" (with no checkbuttons selected):
Warning: Attempt to load 'Tk::Checkbutton::0.000503063201904297' at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Tk/Widget.pm line 287 Tk::Widget::AUTOLOAD('Tk::Checkbutton=HASH(0x860c6a8)') called at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Tk.p +m line 406 eval {...} called at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Tk.pm line 406 Tk::MainLoop() called at x line 126
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In Section
Cool Uses for Perl