02_RSS.pm push/pop (aus altem Thread gekramt)

[betateilchen]

Der Code tut wohl was er soll, aber er pusht und poppt nur einmal. Von push und pop erwarte ich aber das Verhalten, Parameter auf einen Stapel zu legen. Dazu müßte ich wissen, wie man Hashes in Arrays pusht. Mit Referenzen stehe ich auf dem Kriegsfuß - oder in anderen Worten: ich bin zu faul, mir das erforderliche Wissen anzulesen.

Dann will ich Dich mal ein bisschen in Deiner Faulheit unterstützen
Hier, quasi als Abfallprodukt aus 55_InfoPanel, eine Lösung, die den push des Parametersatzes beliebig oft ermöglicht.

Code Auswählen Erweitern



...

+  my %pstack;
+ my $pstackcount = 0;
  my %params;

...

        when("push") {
          $pstackcount++;
          while ( my ($key, $value) = each(%params) ) {
            $pstack{$pstackcount}{$key} = $value;
          }
        }

        when("pop") {
          return unless $pstackcount;
          while ( my ($key, $value) = each($pstack{$pstackcount}) ) {
            $params{$key} = $value;
          }
          delete $pstack{$pstackcount};
          $pstackcount--;
        }