One Hat Cyber Team

Your IP : 162.159.115.33

Server IP : 188.114.96.3

Server : Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64

Server Software : Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips

PHP Version : 7.3.33

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-DBD-MySQL-4.023/eg/

View File Name : prepare_memory_usage.pl

#!/usr/bin/perl -w

use strict;
use DBI;

my $ssp = 1;
my $count = 0;

my $query = "SELECT 1 FROM DUAL";

my $dbh = DBI->connect (
    "dbi:mysql:database=test:host=localhost;mysql_emulated_prepare=0",
    "root", "",
    { RaiseError => 1, PrintError => 0 },
    );

my $s_q = $dbh->prepare($query);

while (1) {
  $s_q->execute();
  my @data = $s_q->fetchrow_array();
  $s_q->finish;

  $count++;

  print "ran $count queries\r";

  sleep(0.3);
}