Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e '$dbh->do("alter session set current_schema = th
+e current schema”);'
Can't find string terminator '"' anywhere before EOF at -e line 1.

$ perl -MO=Deparse -e 'print “third script executed”;'
Unrecognized character \xE2; marked by <-- HERE after print <-- HERE n
+ear column 7 at -e line 1.
  2. or download this
    #!/usr/bin/env perl

...
my $sdm = SpaceCowboy::Database::Module::->new($database_credentials);

$sdm->$_() for qw{primary first second third};
  3. or download this
    package SpaceCowboy::Database::Module;

...
# ditto for second() and third()

1;
  4. or download this
    $self->dbh()->do($_) for @statements;