Re: still: using fetchrow_hashref()

[Marcus Willemsen]

Thanks tried the row count with SELECT COUNT(*) and it works perfectly

Thanks a lot

Re: still: using fetchrow_hashref()

[Chas Owens]

Remember that count(*) will only work in those cases where nothing gets
inserted in the time between the two select statements.  You may
experience odd bugs.  Comment the area around this code well. 

On 27 Jun 2001 16:20:29 +0200, Marcus Willemsen wrote:
 Thanks tried the row count with SELECT COUNT(*) and it works perfectly
 
 Thanks a lot
 
 
--
Today is Pungenday, the 32nd day of Confusion in the YOLD 3167
Pzat!

still: using fetchrow_hashref()

[Marcus Willemsen]

Thanks for the advise. I'll give it a try.

Is there a possiblity to determin the size of the search result, i.e. did 
the search yield five headlines three or whatever number? And how do I 
access the elements.

Grateful for answers


Marcus


At 09:51 25.06.2001 -0700, you wrote:
You might consider Apache::DBI.  I hear it does what you're interested in 
doing,
but I haven't done much research on it.  Good luck!

Check out search.cpan.org :)

C.J.

cpan i Apache::DBI
Module id = Apache::DBI
 DESCRIPTION  Persistent DBI connection mgmt.
 CPAN_USERID  MERGL (Edmund Mergl [EMAIL PROTECTED])
 CPAN_VERSION 0.88
 CPAN_FILEM/ME/MERGL/ApacheDBI-0.88.tar.gz
 DSLI_STATUS  bmpO (beta,mailing-list,perl,object-oriented)
 INST_FILE(not installed)


Marcus Willemsen wrote:

  Hi I'm new to Perl and programming in general,
 
  I wrote (with the help of Learning Perl) the following cgi-scripte to get
  headlines out of a database called Message. And it works okay. The next 
 step
  would be to enable a user to click on the headline that interest him and to
  display the rest of the message. Can I acess the result of my first search
  somehow and pass it on to an new search??
 
  Best regards
 
  Marcus
 
  1  #!/usr/bin/perl -w
  2
  3  use DBI;
  4  use CGI qw(:standard);
  5  use CGI::Carp(fatalsToBrowser);
  6
  7  print header, start_html(Search), h1(Search the database);
  8
  9  if (param()) {
  10 $word = param(search);
  11 $datasource = DBI:mysql:messages;host=localhost;;
  12 $user = xxx;
  13 $passw = xxx;
  14 $dbh = DBI-connect($datasource, $user, $passw, {'RaiseError' = 1});
  15 $sth = $dbh-prepare(SELECT Header FROM Message WHERE Header LIKE
  '%$word%' GROUP BY Date);
  16 $sth-execute();
  17 while($row = $sth-fetchrow_hashref()) {
  18  print p($row-{'Header'}\n);
  19 }
  20 print p();
  21 print hr();
  22 print start_form();
  23 print p(New Search, textfield(search));
  24 print p(submit(Here we go!), reset(Reset));
  25 print end_form();
  26 } else {
  27 print hr();
  28 print start_form();
  29 print p(Search for: , textfield(search));
  30 print p(submit(Here we go!), reset(Reset));
  31 print end_form();
  32 }
  33 print end_html;