From: John Graham-C. <jgr...@us...> - 2005-09-14 19:28:35
|
Update of /cvsroot/popfile/engine/Classifier In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12283 Modified Files: Tag: b0_22_2 Bayes.pm Log Message: Newline every 1000 records updated in database Index: Bayes.pm =================================================================== RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v retrieving revision 1.327 retrieving revision 1.327.4.1 diff -C2 -d -r1.327 -r1.327.4.1 *** Bayes.pm 16 Dec 2004 02:59:49 -0000 1.327 --- Bayes.pm 14 Sep 2005 19:28:26 -0000 1.327.4.1 *************** *** 806,809 **** --- 806,813 ---- flush STDOUT; } + if ( ( $i % 1000 ) == 0 ) { + print "\n"; + flush STDOUT; + } my @rows = $t->fetchrow_array; |