Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^3: MySQL Query Time DBI

by zebedee (Pilgrim)
on Nov 10, 2008 at 07:11 UTC ( #722565=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    static int
    com_go(String *buffer,char *line __attribute__((unused)))
    {
      char          buff[200], time_buff[32], *pos;
    
  2. or download this
            sprintf(buff,"%ld %s in set",
                    (long) mysql_num_rows(result),
                    (long) mysql_num_rows(result) == 1 ? "row" : "rows");
    
  3. or download this
    static void end_timer(ulong start_time,char *buff)
    {
      nice_time((double) (start_timer() - start_time) /
    ...
      end_timer(start_time,buff+2);
      strmov(strend(buff),")");
    }
    
  4. or download this
    static void nice_time(double sec,char *buff,bool part_second)
    {
      ulong tmp;
    ...
      else
        sprintf(buff,"%d sec",(int) sec);
    }
    
  5. or download this
    static ulong start_timer(void)
    {
    #if defined( __WIN__) || defined( OS2) || defined(__NETWARE__)
    ...
      return times(&tms_tmp);
    #endif
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://722565]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (None)
    As of 2021-10-20 03:26 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?
      My first memorable Perl project was:







      Results (78 votes). Check out past polls.

      Notices?