Opened by nour at 2006-12-19 10:59
User since
2006-11-15
108 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-15
108 Artikel
BenutzerIn
Guten Tag,
mein script ist an einer phpMyAdmin Datenbank verbunden.
in der Datenbank steht der Folgende Tabelle:
Tabelle Rechnen:
ich habe ersten den vergleich der ID's beide Tablle verglichen falls eine ist nicht vorhanden er sollte eingetragen werden , und jetzt will ich in der ersten tabellen die beide zeilen mit Der MD5 Spalten vergleichen der letzten eingetragene und der vorletzten.
mein code ist wie folgend
mein Problem ob sollte ich zu meine m Script eine wheile schleife einfügen um die Vergleiche zu führen.
hat jemand eine idee wie ich die MD5 beim 2ten vergleich führen kann :
als Beispiel:
Danke im voraus
--- Modedit Gwendragon
Code-Tags repariert
---\n\n
<!--EDIT|GwenDragon|1166518969-->
mein script ist an einer phpMyAdmin Datenbank verbunden.
in der Datenbank steht der Folgende Tabelle:
Tabelle Rechnen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
ID status Text MD5
1 2329 "text1 d41d8cd98f00b
2 2329 " text2 da5766dggfhd8
3 1423 "text3 yfgbdf232424fgf
Tabelle Daten:
ID Status Datum RfID
1 2911 2006-03-19 1
2 2907 2004-07-23 2
3 2923 2006-08-11 3
ich habe ersten den vergleich der ID's beide Tablle verglichen falls eine ist nicht vorhanden er sollte eingetragen werden , und jetzt will ich in der ersten tabellen die beide zeilen mit Der MD5 Spalten vergleichen der letzten eingetragene und der vorletzten.
mein code ist wie folgend
Code: (dl
)
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
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
use Digest::MD5;
my $dbh;
my $raw_data;
my $sqldata;
open(DAT, '<','../gate_common/MySQLAccount.txt') or die"Could not open SQL-Data-file!";
$raw_data=<DAT>;
close(DAT);
chomp $raw_data;
my ($host,$user,$pass,$db) = split(/:/, $raw_data);
print "host ".$host."\n"."user ".$user."\n"."pass ".$pass."\n"."db ".$db."\n";
$dbh = DBI->connect("DBI:mysql:".$db.":".$host,$user,$pass) or die "Connect Error: $DBI::errstr()\n";
Query($dbh);
rechnen($dbh);
sub Query{
my $query;
my $sth;
my $execu;
my $newdata;
my $file;
my $ds;
my @ergebnisse;
my @row;
$query = "SELECT RefID FROM ´Rechnen ,Daten WHERE Rechnen .ID=DatenRefID ORDER BY TS_LastChange ";
$sth = $dbh->prepare($query) or die "$DBI::errstr\n";
$sth->execute or die "$DBI::errstr\n";
while($newdata = $sth->fetchrow_array()){
if(not defined $newdata){
$dbh->do("INSERT INTO Rechnen(ID) VALUES(?)",undef) or die $dbh->errstr();
}
print"$newdata\n";
}
$sth->finish();
}
mein Problem ob sollte ich zu meine m Script eine wheile schleife einfügen um die Vergleiche zu führen.
hat jemand eine idee wie ich die MD5 beim 2ten vergleich führen kann :
als Beispiel:
Danke im voraus
--- Modedit Gwendragon
Code-Tags repariert
---\n\n
<!--EDIT|GwenDragon|1166518969-->