#!/usr/bin/perl
use DBI;
#DBI->trace(1,"trace.log");

$numrecs = 106177;

$d[0]='I ögat på en vagel';
$d[1]='Kaptenen kom kutande ut ur kajutan';
$d[2]='och skrek: "Låt oss samlas på översta däck!' ;
$d[3]='Det formligen forsar in vatten i skutan,';
$d[4]='Kamrater! Vårt fartyg har just sprungit läck!"';
$d[5]='Och kocken kröp ner i en säck...';

$d[6]='De började alla mot livbåten lunka,';
$d[7]='ty båten den läckte precis som ett såll.';
$d[8]='Och styrman skrek: "När vi nu smått börjar sjunka';
$d[9]='och skutan tar in vatten från alla håll,';
$d[10]='tar vi en snabb liten koll."';

$d[11]='Precis som de erfarna börjat befara';
$d[12]='var kocken, den mjölvita, helt enkelt väck.';
$d[13]='"Kan vi ej låta den sölkorven vara,';
$d[14]='han kryper ju alltid ner i nån säck,';
$d[15]='i köket på nedersta däck!"';

$d[16]='Kaptenen och styrman fick skynda sig söka,';
$d[17]='för de kände på sig var kocken höll till.';
$d[18]='En gång han syntes i löksäcken böka,';
$d[19]='och en gång fanns kocken i tunnan med sill,';
$d[20]='sittandes alldeles still.';

$d[21]='Vattnet i köket var långt ovan benen,';
$d[22]='men säcken med saffran var tjock som en smock.';
$d[23]='Och styrman log lycklig och trött mot kaptenen';
$d[24]='och sade: "Kapten, se vad säcken är tjock!';
$d[25]='Jag tror vi har hittat vår kock!"';

$d[26]='"Jag hoppas, kapten, ni är glad att ni vinner';
$d[27]='så skynda att dansa er segrare-vals,';
$d[28]='för nästa gång tror jag nog inte ni finner';
$d[29]='mig fullt lika lätt, om ni finner mig alls!"';
$d[30]='Skrek kocken för fullaste hals.';


$strcount=0;
sub get_next_string {
 if ($strcount > $#d) { $strcount=0;};
 return $d[$strcount++];
}

$|=1;

$dbh = DBI->connect("dbi:mysql:test:127.0.0.1","root","") or die "cannot connect";

$sth = $dbh->prepare("update art_main set rubrik=?, ingress=?, brodtext=? where id=?");

while (1) {
# next record for update
 print "+";

 $recno = int(rand($numrecs));
 $rubrik = get_next_string();
 $ingress = get_next_string();
 $brodtext = get_next_string();

 $sth->bind_param(1,$rubrik,DBI::SQL_CHAR);
 $sth->bind_param(2,$ingress,DBI::SQL_CHAR);
 $sth->bind_param(3,$brodtext,DBI::SQL_CHAR);
 $sth->bind_param(4,$recno,DBI::SQL_INTEGER);

 $sth->execute or die DBI::errstr();
}

$sth->finish;
$dbh->disconnect;