Public ScratchpadDownload, Select Code To D/L

Help for this page

Select Code to Download


  1. or download this
    my $generator = <<'END_GENERATOR';

...
END_GENERATOR

eval $generator;
  2. or download this
    use DBI;
my ($connect_string, $table, @columns) = @_? @_: @ARGV;
...
    my @values = split /\t/;
    $sth->execute(@values);
}
  3. or download this
    my $root;
BEGIN {
    use FindBin;                
    ($root) = $FindBin::Bin =~ m{ (.* racine) [\\/] }imsx;
}
use lib "$root/Jobs/Perl/lib";