Select Code to Download

[Tue Mar 27 11:33:03 2007] testcore.cgi: install_driver(Oracle) failed
+: Can't load '/usr/people/chemboy/lib/perl5/site_perl/5.8.1/i586-linu
+x-thread-multi/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: lib
+clntsh.so.9.0: cannot open shared object file: No such file or direct
+ory at /usr/lib/perl5/5.8.1/i586-linux-thread-multi/DynaLoader.pm lin
+e 229.
[Tue Mar 27 11:33:03 2007] testcore.cgi:  at (eval 27) line 3
[Tue Mar 27 11:33:03 2007] testcore.cgi: Compilation failed in require
+ at (eval 27) line 3.
[Tue Mar 27 11:33:03 2007] testcore.cgi: Perhaps a required shared lib
+rary or dll isn't installed where expected

merge into some_table OLD
using (  select ? "A", ? "B", ? "C", ? "D" from dual ) NEW
...
  insert(A,B,C,D,calc_date)
  values(NEW.A,NEW.B,NEW.C,NEW.D,sysdate)

package AutoRequire;

...
}

1;

package SimpleCase;

...
}

1;

#!/usr/local/bin/perl
use lib '.';
...
print STDERR "Still alive...\n";
my $var = SimpleCase->new;
print STDERR "We never get here\n";

sub findMagicname {
...
  $sth->finish();
  return $row->{First}. " " .$row->{Last};
}

install_unique_constructor($new_child_class,"id");

...
    |;
}

sub scalar_install {
    no strict 'refs';
    my ($class,$field) = @_;
...
    };
    1;
}

function wwwEncodeObject(o) { 
    var params = new Array(); 
...
    }
    return params.join('&')
}

mysql> select count(1) from foo where remote in (select remote from ba
+r);
+----------+
...
|      56  |
+----------+
1 row in set (0.45 sec)

<table>
<TMPL_LOOP name=ROWS>
  <TR><TD><TMPL_VAR name=key></td><td><TMPL_VAR name=value></td</tr>
</TMPL_LOOP>
</table>

$tmpl->param(ROWS =>
  [ map +{key =>$_, value => $data{$_} }, keys %data ]
)

require subs;
my @autogen = qw(Foo Bar Trope Cliche);
...

$query = $ENV{QUERY_STRING};

...
    }
  }
}

while (<>) {
...
if (@input) {
    push @output, transcribe ($input[0],($input[0] eq 'x') ? 'z': 'x')
+;
}

package Crash;

...
sub getPK   {"Fred"}
1;

% perl -MCrash -de1
Default die handler restored.
...
        DB::DB called at -e line 1
Abort

tulip.c:v0.91 4/14/99 <EMAIL: PROTECTED>
eth0: Digital DS21140 Tulip rev 18 at 0xd000, 00:00:C0:31:35:E4, IRQ 1
+2.
...
eth0:  EEPROM default media type Autosense.
eth0:  Index #0 - Media 10baseT (#0) described by a 21140 non-MII (0) 
+block.
eth0:  Index #1 - Media 100baseTx (#3) described by a 21140 non-MII (0
+)

Linux Tulip driver version 0.9.15-pre7 (Oct 2, 2001)
PCI: Enabling device 00:0e.0 (0004->0007)
tulip0: Old format EEPROM on 'Asante' board. Using substitute media co
+ntrol info.
eth0: Digital DS21140 Tulip rev 32 at 0xcb937000, <HWADDY SUPPRESSED>,
+ IRQ 24.

 DB<45> T
$ = XML::ValidWriter::_self called from file `site_perl/XML/ValidWrite
+r.pm' line 1232
$ = XML::ValidWriter::setDoctype(ref(XML::ValidWriter), ref(XML::Docty
+pe)) called from file `site_perl/XML/ValidWriter.pm' line 518
$ = XML::ValidWriter::import('XML::ValidWriter', ':all', ':dtd_tags') 
+called from file `scratch/validwriter_fun' line 18

sub setDoctype {

...
      unless $pkg_writers{$callpkg} ;
   return $pkg_writers{$callpkg} ;
}

Benchmarks for method 1:
    total:     347 secs (315.12 usr  0.86 sys = 315.98 cpu)
...
    overhead:  14 secs (13.68 usr  0.16 sys = 13.84 cpu)
    loop:      81 secs (71.10 usr  0.41 sys = 71.51 cpu)

Benchmarks for method 1:
    total:     64 wallclock secs (60.37 usr +  1.82 sys = 62.19 CPU)
...
    overhead:   8 wallclock secs ( 7.74 usr +  0.01 sys =  7.75 CPU)
    loop:       27 wallclock secs (25.04 usr +  1.32 sys = 26.36 CPU)

<p><br><hr><i>If God had meant us to fly, he would *never* have given 
+us the railroads.<br>
           &nbsp;&nbsp;&nbsp;&nbsp;--Michael Flanders</i></p>