Skip to content

Instantly share code, notes, and snippets.

@gnucifer

gnucifer/context_dbh_test.pl

Last active December 18, 2017 12:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gnucifer/8a9a26de02d2e344c99398a19fc8df71 to your computer and use it in GitHub Desktop.
Save gnucifer/8a9a26de02d2e344c99398a19fc8df71 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
context_dbh_test.pl
#!/usr/bin/perl
use C4::Context;
my $i = 200000;
while($i--) {
C4::Context->dbh->selectcol_arrayref(qq{SELECT biblionumber FROM biblio LIMIT 1});
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment