User: JacobViborg

Perl / MySQL example code

Importere basic funktioner fra perl modul

use 5.010;

Importere Mysql funktioner til komunication

use Mysql;

Nutiden hented fra perl

my $now = localtime time;

Nutiden delt op i et array med mellemrum som deler

my @date = split(/ /,$now);

Tiden ud skrevet som dato timer/minuter/sekunder er ikke taget med

$dato = "$date[0] $date[3] $date[1] $date[5]"; say $dato;

For løkke som køre 5 gange hvor den printer tallet x ud

Tallet x vil kun exsistere i for løkken

for($x=0;$x<5;$x++) {

Print vil skrive tallet ud på samme linie i ryggen på det foregående

print "$x"; }

for($x=0;$x<5;$x++) { say vil skrive tallet ud på samme linie i ryggen på det foregående men vil skrive/tilføje "/n"(newline)

say "$x"; }

Oprettelse af array's A og Navne

my @A = ("Jens","Morten","Mikkel","Kristian","Ole"); my @Navne = ("Jacob");

Tilføjelse af Mikkel til Navne arrayet hvor man opretter en ny plads i arrayet

$Navne[1] = $A[2];

Overskrivelse af Mikkel i possition 2 i array A

$A[2] = "Jacob";

Fjernelse af Jacob i Navne nu hvor han er i array A fra possition 0 samt 1 står for antal fra possition opad i værdi

splice(@Navne,0,1);# eller bruge push: push(@Navne, $A[2]); say "$Navne[0]";

Sortere array @A i alferbetisk orden

@A = sort(@A);

Forhvert element i array udsriver vi elementet

foreach(@A){say $_;}

MySql Input

$host = "localhost"; $A = "DatabaseNavn"; $B = "BrugerNavn"; $C = "Password"; $D = "TabelNavn"; if not($A == "DatabaseNavn") {

Opretter forbindelse til Sql

$dbh = Mysql->connnect($host,$A,$B,$C) || die "Kunne ikke forbinde til database/nForbindelses fejl: $DBI::errstr";

Opretter Database hvis den ikke er oprettet

$SendToSql = $dbh->query("CREATE DATABASE IF NOT EXISTS $A);

Forbinder til Database

$dbh->selectdb($A);

Opretter Tabel hvis den ikke er oprettet

$SendToSql = $dbh->query("CREATE TABEL IF NOT EXISTS $D);

Opretter bruger i tabel

foreach(@A) { $MySqlString = "INSERT INTO $D (id, product, date) VALUES (DEFAULT,$_,$dato)"; $SendToSql = $dbh->query($MySqlString); }

Afbrydelse af forbindelse

$dbh->disconnect();

}

--JacobViborg 14:26, 3 December 2009 (CET)