Getter/Setter

[Struppi]

müsste teststringteststring2 und teststring3teststring4 ausspucken?

Nein.

Wie gesagt, ich finde den Ansatz merkwürdig und er macht nicht wirklich Sinn.

Aber du hast auch massive Probleme mit der Perlsyntax. Dein Beispiel (was ich wie gesagt für nicht sauber halte) sähe so aus:

#!/usr/bin/perl -w  
use strict;  
  
package Hashtable;  
  
sub new() {  
	return bless { hashtable => {} }, shift;  
}  
  
package main;  
  
my $Hashtable = Hashtable ->new();  
my $Hashtable2 = Hashtable ->new();  
  
$Hashtable->{hashtable} = {teststring=>"teststring",teststring2=>"teststring2"};  
$Hashtable2->{hashtable} = {teststring=>"teststring3",teststring2=>"teststring4"};  
  
foreach my $key (keys %{$Hashtable->{hashtable}}) {  
	print $key;  
}  
foreach my $key (keys %{$Hashtable2->{hashtable}}) {  
	print $key;  
}  

Damit hast du dann häßliche Dereferenzierungen.

Struppi.