One Hat Cyber Team

Your IP : 216.73.216.36

Server IP : 162.240.179.46

Server : Linux vps-14493116.nutrivittasaude.com.br 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64

Server Software : Apache

PHP Version : 8.2.31

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-DBI/

View File Name : profile.pl

#!/usr/bin/perl -w

use DBI;

$dbh = DBI->connect('dbi:SQLite:dbname=ex_profile.db', '', '', { RaiseError => 1 });

$dbh->do("DROP TABLE IF EXISTS ex_profile");
$dbh->do("CREATE TABLE ex_profile (a int)");

 $dbh->do("INSERT INTO ex_profile (a) VALUES ($_)", undef)     for 1..100;
#$dbh->do("INSERT INTO ex_profile (a) VALUES (?)",  undef, $_) for 1..100;

my $select_sql = "SELECT a FROM ex_profile";

$dbh->selectall_arrayref($select_sql);

$dbh->selectall_hashref($select_sql, 'a');

my $sth = $dbh->prepare($select_sql);
$sth->execute;
while ( @row = $sth->fetchrow_array ) {
}


__DATA__