Teknologisk videncenter - User contributions [en]

User:JacobViborg

2009-12-03T13:27:27Z

JacobViborg: /* Perl / MySQL example code */

== 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();

}

--[[User:JacobViborg|JacobViborg]] 14:26, 3 December 2009 (CET)

User:JacobViborg

2009-12-03T13:26:59Z

JacobViborg: /* Perl / MySQL example code */

== 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();
}
--[[User:JacobViborg|JacobViborg]] 14:26, 3 December 2009 (CET)

User:JacobViborg

2009-12-03T13:26:21Z

JacobViborg: Perl MySql