regexp.pl

#!/usr/bin/perl
use warnings;
use strict;

use DBI;

my $db = 'regexp.db';

unlink $db if -f $db;
my $dbh = DBI->connect("dbi:SQLite:dbname=$db") or die;

$dbh -> do ('create table tq84_regexp (col)');

my $sth_ins = $dbh->prepare('insert into tq84_regexp values(?)') or die;

$sth_ins -> execute('foo');
$sth_ins -> execute('forty-two: 42');

my $sth_sel = $dbh->prepare('select col from tq84_regexp where col regexp ?');

searchRegexp('\d');
searchRegexp('o');
searchRegexp('(.)\\1');

sub searchRegexp {
  my $regexp = shift;

  print "$regexp\n";
  $sth_sel->execute($regexp);

  while (my ($col_val) = $sth_sel->fetchrow_array) {
     print "  $col_val\n";
  }
  print "\n";
}