Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$tablename = '';
$tablename = $1 if $stmt0 =~ m/^.*FROM\s+(\S+)\s*.*;$/s;
print "table name =\"$tablename\"\n";
  2. or download this
    $tablename = $1 if $stmt =~ m/^.*FROM\s+(\S+)\s*.*$/gs;
  3. or download this
    $tablename = $1 if $stmt =~ m/^.*FROM\s+(\S+)\s*.*$/gs;
$tablename =~ s/;//;