Difference between revisions of "User: JacobViborg"
JacobViborg (talk | contribs) (Perl MySql) |
JacobViborg (talk | contribs) (→Perl / MySQL example code) |
||
(One intermediate revision by the same user not shown) | |||
Line 106: | Line 106: | ||
$dbh->disconnect(); | $dbh->disconnect(); | ||
+ | |||
} | } | ||
+ | |||
+ | --[[User:JacobViborg|JacobViborg]] 14:26, 3 December 2009 (CET) |
Latest revision as of 15:27, 3 December 2009
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)