Help for this page

Select Code to Download


  1. or download this
    [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
    
  2. or download this
    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)
    
  3. or download this
    package AutoRequire;
    
    ...
    }
    
    1;
    
  4. or download this
    package SimpleCase;
    
    ...
    }
    
    1;
    
  5. or download this
    #!/usr/local/bin/perl
    use lib '.';
    ...
    print STDERR "Still alive...\n";
    my $var = SimpleCase->new;
    print STDERR "We never get here\n";
    
  6. or download this
    
    sub findMagicname {
    ...
      $sth->finish();
      return $row->{First}. " " .$row->{Last};
    }
    
  7. or download this
    install_unique_constructor($new_child_class,"id");
    
    ...
        |;
    }
    
  8. or download this
    sub scalar_install {
        no strict 'refs';
        my ($class,$field) = @_;
    ...
        };
        1;
    }
    
  9. or download this
    function wwwEncodeObject(o) { 
        var params = new Array(); 
    ...
        }
        return params.join('&')
    }
    
  10. or download this
    mysql> select count(1) from foo where remote in (select remote from ba
    +r);
    +----------+
    ...
    |      56  |
    +----------+
    1 row in set (0.45 sec)
    
  11. or download this
    <table>
    <TMPL_LOOP name=ROWS>
      <TR><TD><TMPL_VAR name=key></td><td><TMPL_VAR name=value></td</tr>
    </TMPL_LOOP>
    </table>
    
  12. or download this
    $tmpl->param(ROWS =>
      [ map +{key =>$_, value => $data{$_} }, keys %data ]
    )
    
  13. or download this
    require subs;
    my @autogen = qw(Foo Bar Trope Cliche);
    ...
    
  14. or download this
    $query = $ENV{QUERY_STRING};
    
    ...
        }
      }
    }
    
  15. or download this
    
    while (<>) {
    ...
    if (@input) {
        push @output, transcribe ($input[0],($input[0] eq 'x') ? 'z': 'x')
    +;
    }
    
  16. or download this
    package Crash;
    
    ...
    sub getPK   {"Fred"}
    1;
    
  17. or download this
    % perl -MCrash -de1
    Default die handler restored.
    ...
            DB::DB called at -e line 1
    Abort
    
  18. or download this
    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
    +)
    
  19. or download this
    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.
    
  20. or download this
     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
    
  21. or download this
    sub setDoctype {
    
    ...
          unless $pkg_writers{$callpkg} ;
       return $pkg_writers{$callpkg} ;
    }
    
  22. or download this
    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)
    
  23. or download this
    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)
    
  24. or download this
    <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>