Advanced Search

Return to Snippet

Revision: 3644
at August 28, 2007 13:02 by iblis
Initial Code 
# Test for (in)valid regex
# perl regex 
#
# (you may need to disable warnings)

my $pattern = shift;
my $regex = eval { qr/$pattern/ };
die "Your regex doesn't seem valid : $@" if $@;
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Test for (in)valid regex

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
regex

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl