perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 19
 Click for quality!



12.02.2012 / 04:11
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragPerl/Oracle: fetchhash Problem
 Seitenanfang
Hi,

Ich möchte aus einer Datenbank ein paar ausgewählte Datensätze auslesen und diese als Hash in einem Array speichern.

DB:
Spalte1 Spalte2 Spalte3

Test1A Test1B Test1C

Test2A Test2B Test2C

Test3A Test3B Test3C

Test4A Test4B Test4C

Ein Hash soll nun so aussehen:
%hash1 = (Spalte1 => "Test1A", u.s.w.)

Für jede Zeile soll ein Hash erstellt werden.

Schliesslich sollen die Hash in einem Array zwischengespeichert werden. Also @temp = (%hash1,%hash2,u.sw.)

Dieser Array wird nun durchlaufen und es wird ein neuer Hash gebildet, der NUR Elemente enthält, die in jedem einzelnen %hash von vorhin vorkommen.

Soviel zur Aufgabe... Mein Versuch war nun das ganze mittels Fetchhash abzuholen:
Code:


sub get_it { 
	my $dbh = shift;
	my $tabletemp = shift;
	my $id = shift;
	my %temphash;
	my %controlhash;
	my @results;
	# begin dbaccess
	my $sql="SELECT * FROM $tabletemp WHERE ID='$id'";
	
	my $sth = $dbh->prepare($sql) or die $dbh->errstr();
	$sth->execute or die $dbh->errstr();  
	while (%temphash = $sth->fetchhash()){
		push @results, \%temphash;
	}
	
	$sth->finish ();
	# end dbaccess
	# begin compare
	foreach my %hash (@results){
		foreach(keys(%hash)){
			if ($hash{$_} eq $controlhash{$_} || !defined $controlhash{$_}){
				$controlhash{$_} = $hash{$_};
			}
			else {
				$controlhash{$_} = "";
			}
		}
	}
	# end compare
	
	return %controlhash;
}

Ich bin mir ziemlich sicher, dass mein Code oben noch viele kleine Fehler hat. Aber stimmt das Prinzip mit dem speichern der Hashes im Array? Der Datenbankzugriff funktioniert. Leider crashed mir das Skript ohne Fehlermeldung. Er sagt etwas von wegen: "Too many headers".

Hat jemand einen guten Tipp für mich, oder kann mir einen Tipp geben wo suchen?

Vielen Dank!

Datum: 13.01.2006-10:19
Beitragre: Perl/Oracle: fetchhash Problem
 Seitenanfang
Hallo,

ich kenne zwar den Befehl ->fetchhash noch nicht, aber grundsätzlich mußt Du fuer jeden Hash-Eintrag im Array ein neues anonymes Hash bilden, sonst schreibst Du immer die gleiche Adresse in das Array:

$rohTempHash={ %{$sth->fetchrow_hashref()} };
# legt neues anonymes hash an und kopiert die Werte hinein

push @results, $rohTempHash;

Datum: 13.01.2006-11:47
Beitragre: Perl/Oracle: fetchhash Problem
 Seitenanfang
So, ich bin ein grosses Stück weitergekommen:


sub get_it { 
# generates datacache from tempdb using dbid or from dataimport. dataimport has higher priority.
# if multiple datasets are selected, only the values that are equal are returned.
	my $dbh = shift;
	my $tabletemp = shift;
	my $id = shift;
	
	my $str="";
	my %resulthash;
	my %controlhash;
	my @names;
	my $sql="SELECT * FROM $tabletemp WHERE ID='$id'";
	
	my $sth = $dbh->prepare($sql) or die $dbh->errstr();
	$sth->execute or die $dbh->errstr();  
	while (my $hash_ref = $sth->fetchrow_hashref) {
		foreach(keys(%{$hash_ref})){
			$str .= "push(\@$_,\$hash_ref->{$_});";
			push(@names,$_);
		}
		eval $str;
	}
	
	$sth->finish ();
	
	foreach $names(@names){
		$controlhash{$names} = "empty";
		foreach @poss(eval "\@$names"){
			foreach $var($poss){
				$controlhash{$names} = $var;
			}
		}
		$resulthash{$names} = $controlhash{$names};
	}
	
	return %resulthash;
}

Das gute Ding kann die Daten auslesen und speichert sie im Hash, der Zurückgegeben wird. Natürlich überschreibt er den controlhash jeweils mit dem letzten Wert aus dem Array @$names. Nun möchte ich diese Werte vor dem überschreiben miteinander vergleichen.

Ich habe mir gedacht, dass das so funktionieren könnte:


if ($controlhash{$names} eq "empty" || $controlhash{$names} eq $var){
	$controlhash{$names} = $var;
}
else {
	$controlhash{$names} = "";
}

Hat jemand eine Idee, wieso das nicht geht?

Vielen Dank!

Datum: 16.01.2006-12:42
Beitragre: Perl/Oracle: fetchhash Problem
 Seitenanfang
Ok... Das Problem ist gelöst:


			foreach $var($poss){
				if (defined $controlhash{$names} && $controlhash{$names} ne $var){
					$controlhash{$names} = "item_locked";
				}
				else {
					$controlhash{$names} = $var;
				}
			}

;) Gruss

Datum: 16.01.2006-14:43
-






-
 -