1
2
3
4
5
my $sth=$dbh->prepare('UPDATE ... SET foo=? ...');
for my $entry (@data) {
$sth->execute($entry);
}
$sth->finish();
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use warnings; use strict; my @arr = ("A", "B", "C"); my $i; foreach $i (@arr) { print "$i\n"; system("echo $i"); }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
my $i;
foreach $i (@array) {
print "$i\n";
system("echo $i");
my $queryextstatus = "SELECT value_text FROM dynamic_field_value
WHERE object_id = $i
AND field_id = 80";
my $sth = $dbh->prepare($queryextstatus);
$sth->execute();
while ( @row = $sth->fetchrow_array ){
$ticketextstatus = " @row";
}
open (DATEI, ">>status.txt" ) or die $!;
print DATEI $ticketextstatus;
close (DATEI);
open (DATEI, "status.txt") or die $!;
my @daten = <DATEI>;
close (DATEI);
my @array;
my $a;
push (@array, @daten);
print "Anzahl: ".scalar(@array)."\n";
for $a(@array){
}
}
2020-10-04T13:08:30 funeddyich bekomme nur wieder alle Elemente in die Variable.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
my $i;
foreach $i (@array) {
print "$i\n";
system(
my $queryextstatus = "SELECT value_text FROM dynamic_field_value WHERE object_id = $i AND field_id = 80";
my $sth = $dbh->prepare($queryextstatus);
$sth->execute();
while ( @row = $sth->fetchrow_array ){
$ticketextstatus = " @row";
}
open (DATEI, ">>status.txt" ) or die $!;
print DATEI $ticketextstatus;
close (DATEI);
open (DATEI, "status.txt") or die $!;
my @daten = <DATEI>;
close (DATEI);
my @array;
my $a;
push (@array, @daten);
print "Anzahl: ".scalar(@array)."\n";
for $a(@array){
}
)
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl use warnings; use strict; use Data::Dumper; use ....; my $i = "...."; my $queryextstatus = "SELECT value_text FROM dynamic_field_value WHERE object_id = $i AND field_id = 80"; my $sth = $dbh->prepare($queryextstatus); $sth->execute(); while ( @row = $sth->fetchrow_array ){ print Dumper(\@row); }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
#!/usr/bin/perl use strict; use warnings; use DBI; # Verbindung zur MySQL-Datenbank gerstellen my $dbh = DBI->connect("DBI:mysql:database=authentication_db;host=localhost", "dbadmin", "dbadmins password", {'RaiseError' => 1}); # Hash mit Nutzerinformationen my %new_users = ( 'test' => { 'nick' => 'jayn', 'name' => 'Jane Doe', 'enabled' => 0, }, 'admin' => { 'nick' => 'admin1', 'name' => 'noname', 'enabled' => 0, }, 'root' => { 'nick' => 'root', 'name' => 'Mr. Server-Master', 'enabled' => 1, }, 'debug' => { 'nick' => 'debug', 'name' => 'debug', 'enabled' => 0, }, ); for my $key ( keys %new_users) { # keys erzeugt eine Liste der Schlüssel # SQL Befehl zum Setzen von Default-Loginnamen in die Tabelle `users` $dbh->do("INSERT INTO users ('loginuser', 'nick', 'name', 'approved') VALUES (?, ?, ?, ?)", undef, # Attribut hash (hier leer, hängt von Datenbanksoftware ab) $key, # Loginname eines Nutzers $new_users{$key}->{nick}, # Nickname eines Nutzers $new_users{$key}->{name}, # Realname $new_users{$key}->{enabled} # Flags ob aktiv oder nicht ); }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
$counter=0;
foreach (@array) {
#print $array[$counter] . "\n";
my $queryextstatus = "SELECT value_text FROM dynamic_field_value
WHERE object_id = $_
AND field_id = 80";
my $sth = $dbh->prepare($queryextstatus);
$sth->execute();
while ( @row = $sth->fetchrow_array ){
$ticketextstatus = " @row";
}
open (DATEI, ">>status.txt" ) or die $!;
print DATEI $ticketextstatus;
close (DATEI);
open (DATEI, "status.txt") or die $!;
my @daten = <DATEI>;
close (DATEI);
my @array;
my $a;
push (@array, @daten);
print "Anzahl: ".scalar(@array)."\n";
for $a(@array){
}
print $array[$counter] . "\n";
$_=$counter++;
#my $queryextstatus = "SELECT value_text FROM dynamic_field_value
#WHERE object_id = $_
#AND field_id = 80";
}
2020-10-04T12:58:13 funeddyCode (perl): (dl )foreach (@array) { ... }
$_=$counter++;
2020-10-04T12:58:13 funeddyCode (perl): (dl )1 2 3 4 5 6my $queryextstatus = "SELECT value_text FROM dynamic_field_value WHERE object_id = $_ AND field_id = 80"; my $sth = $dbh->prepare($queryextstatus); $sth->execute();
1 2 3 4 5 6
my $queryextstatus = "SELECT value_text FROM dynamic_field_value WHERE object_id = ? AND field_id = 80"; my $sth = $dbh->prepare($queryextstatus); $sth->execute($_);
2020-10-04T12:58:13 funeddy
2020-10-04T12:58:13 funeddyDa gibt es erst mal eine "modische" Anmerkung: So wie Du das schreibst, ist es zwar korrekt und kommt vermutlich immer noch in Perl-Kursen und -Büchern vor, aber heutzutage trennt man besser den Dateinamen vom Zugriffsmodus und verwendet lexikalische Variablen anstelle der GROSSBUCHSTABIGEN:Code (perl): (dl )1 2 3open (DATEI, ">>status.txt" ) or die $!; print DATEI $ticketextstatus; close (DATEI);
1 2 3
open (my $fh, ">>", "status.txt" ) or die $!; print $fh $ticketextstatus; close ($fh);
2020-10-04T12:58:13 funeddyCode (perl): (dl )1 2 3 4 5 6 7 8 9my @array; my $a; push (@array, @daten); print "Anzahl: ".scalar(@array)."\n"; for $a(@array){ } print $array[$counter] . "\n";