Help for this page

Select Code to Download


  1. or download this
    $ perl -Mre=debug -le " @F = qw( a b c DBIC A B C DANCER a b c ); for(
+@F){print if /DBIC/.. /DANCER/ and ! // } "
Compiling REx "DBIC"
Final program:
...
Freeing REx: "DANCER"
Freeing REx: ""
  2. or download this
    $ perl -Mre=debug -le " @F = qw( a b c DBIC A B C DANCER a b c ); prin
+t for grep {  /DBIC/.. /DANCER/ and ! // } @F; "
Compiling REx "DBIC"
Final program:
...
Freeing REx: "DANCER"
Freeing REx: ""