Variablennamen anzeigen (gelöst) (Allgemeines zu Perl)

[thread]21195[/thread]

Variablennamen anzeigen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+19 replies

bianca

2021-05-25 11:23

User since
2009-09-13
6979 Artikel
BenutzerIn

user image

Morgen!

Folgender Code:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test1 = ['Birne','Apfel'];
my @test2 = ('Fred','Anna');
my %test3 = (foo => 'bar',abc => 'def');
my $test4 = 'string';
my $ref = [
    0,
    1,
    2,
    [$test1,\@test2,\%test3,\$test4],
];

if (defined $ref->[3]) {

    require Data::Dumper;
    local $Data::Dumper::Useqq;
    $Data::Dumper::Useqq = 1;
    local $Data::Dumper::Sortkeys;
    $Data::Dumper::Sortkeys = sub {
        my ($hash) = @_;
        return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)];
    };

    foreach my $keyref (@{$ref->[3]}) {
        say Data::Dumper::Dumper($keyref);
    }
}

Kommt raus:

Quote
$VAR1 = [
"Birne",
"Apfel"
];

$VAR1 = [
"Fred",
"Anna"
];

$VAR1 = {
"abc" => "def",
"foo" => "bar"
};

$VAR1 = \"string";

Was muss ich machen, um ohne ein zusätzliches Modul die Variablennahmen anzuzeigen?

Das soll rauskommen:

Quote
@$test1 = [
"Birne",
"Apfel"
];

@test2 = [
"Fred",
"Anna"
];

%$test3 = {
"abc" => "def",
"foo" => "bar"
};

$test4 = \"string";

Vielen Dank

10 print "Hallo"
20 goto 10

+4 replies
GwenDragon

2021-05-25 12:13

User since
2005-01-17
14590 Artikel
Admin1

Ungetestet: Data::Dumper::Names
die Drachin Gwen
- +3 replies
- bianca
  
  2021-05-25 12:40
  
  User since
  2009-09-13
  6979 Artikel
  BenutzerIn
  
  Wie wäre damit die Syntax ohne use zu benutzen?
  Außerdem bat ich um eine Lösung ohne zus. Modul.
  
  Editiert von bianca: use Ergänzung
  
  Editiert von bianca: Ergänzung kein zus. Modul
  Last edited: 2021-05-25 12:44:36 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - GwenDragon
    
    2021-05-25 16:29
    
    User since
    2005-01-17
    14590 Artikel
    Admin1
    
    Mein Fehler, war heut Mittag im eben-mal-schnell-helfen Modus. :-/
    die Drachin Gwen
    - bianca
      
      2021-05-25 18:04
      
      User since
      2009-09-13
      6979 Artikel
      BenutzerIn
      
      Trotzdem danke
      10 print "Hallo"
      20 goto 10
+14 replies

Linuxer

2021-05-25 12:14

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Data::Dumper bietet selbst die Möglichkeit einen Namen für die ausgegebenen Datenstrukturen anzugeben.

Siehe die perldoc:

perldoc Data::Dumper
...
# extended usage with names
print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
...

Kurzes Testbeispiel (Ausgabe ab Zeile 11):

Code: (dl )

# perl
use 5.010;
require Data::Dumper;

my $foo = [ qw( an array ) ];
my $bar = { a => "hash" };

say Data::Dumper->Dump( [ $foo, $bar ], [ 'foo', '*bar' ]);

^D
$foo = [
         'an',
         'array'
       ];
%bar = (
         'a' => 'hash'
       );

Inwieweit das mit Deinem Ausgabewunsch kompatibel ist, musst Du selbst ausprobieren.
Ansonsten musst Du evtl. die Dump-Ausgabe zwischenspeichern und vor der Ausgabe Deinen Wünschen entsprechend anpassen.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+13 replies

bianca

2021-05-25 12:39

User since
2009-09-13
6979 Artikel
BenutzerIn

user image

Ganz unten der Code mit dem Aufruf kennt die Namen nicht.

Ich mache es deutlicher:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test1 = ['Birne','Apfel'];
my @test2 = ('Fred','Anna');
my %test3 = (foo => 'bar',abc => 'def');
my $test4 = 'string';
my @uebergabe = (
    0,
    1,
    2,
    [$test1,\@test2,\%test3,\$test4],
);

aufruf(\@uebergabe);

sub aufruf {
    my ($ref) = @_;
    if (defined $ref->[3] && ref($ref->[3]) eq 'ARRAY') {

        require Data::Dumper;
        local $Data::Dumper::Useqq;
        $Data::Dumper::Useqq = 1;
        local $Data::Dumper::Sortkeys;
        $Data::Dumper::Sortkeys = sub {
            my ($hash) = @_;
            return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)];
        };

        foreach my $keyref (@{$ref->[3]}) {
            say Data::Dumper::Dumper($keyref);  # hier weiß ich nicht, dass die test1, test2 usw. heißen
        }
    }
}

10 print "Hallo"
20 goto 10

+12 replies

Linuxer

2021-05-25 13:30

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Wenn Du die Namen nicht kennst, dann geht das so nicht.
In @uebergabe stecken ja nur noch die Referenzen.

Dann musst Du anders vorgehen und die betreffenden Namen mit übergeben.
Und dann die übergebenen Namen und Referenzen strukturiert an Data::Dumper weiter reichen.

Beispiel:

Code (perl): (dl )

use strict;
use warnings;
use 5.010;

sub my_dumper {

    require Data::Dumper;

    my %args = @_;
    my @names = keys %args;
    my @refs  = values %args;

    warn Data::Dumper->Dump( \@refs, \@names ), "\n";
}


my $foo = [ qw( an array ) ];
my $bar = { a => "hash" };

my_dumper( 'foo' => $foo, '*bar' => $bar );

Wenn Deine Datenstruktur komplexer ist, dann muss Deine Auflösung eben auch komplexer als das gezeigte werden.

Aber wenn Du die Namen nicht irgendwie mitgibst, wird es bei den Anforderungen kaum möglich sein, die Namen auszugeben.

Evtl. das Vierte Element in @uebergabe nicht als Array konzipieren, sondern als Hash, der pro Referenz eben Name => Referenz enthält.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+5 replies

bianca

2021-05-26 09:52

User since
2009-09-13
6979 Artikel
BenutzerIn

user image

Vielen Dank!

Aber bitte hilf mir nochmal kurz, es in mein Script einzusetzen, ich scheitere am

Quote
Can't use string ("$test1") as a HASH ref while "strict refs" in use at sub_meldung_machen.pl line 63.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
system 'cls';

my $test1 = ['Birne','Apfel'];
my @test2 = ('Fred','Anna');
my %test3 = (foo => 'bar',abc => 'def');
my $test4 = 'string';
my %uebergabe = (
    liste       => [
        [
            0,
            1,
            2,
            3,
            4,
            5,
            6,
            7,
            8,
            'Testtext',
#           [$test1,\@test2,\%test3,\$test4],
            [
                '$test1'    => $test1
            ]
        ]
    ]
);

my $env;

meldung_machen($env,\%uebergabe);

###############################################################################
###############################################################################

sub meldung_machen{
    my ($env,$transp) = @_;


    foreach my $ref (@{$transp->{liste}}) {

        # Text setzen
        my $text = $ref->[9];

        # Dump/-s im Text ergänzen
        if (defined $ref->[10] && ref($ref->[10]) eq 'ARRAY') {

            require Data::Dumper;
            local $Data::Dumper::Useqq;
            $Data::Dumper::Useqq = 1;
            local $Data::Dumper::Sortkeys;
            $Data::Dumper::Sortkeys = sub {
                my ($hash) = @_;
                return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)];
            };

            foreach my $args (@{$ref->[10]}) {
#say $args;
say "Zeile ".__LINE__.': '.Data::Dumper::Dumper($args);
                my @names = keys %$args;
                my @refs  = values %$args;
                my $dump = Data::Dumper::Dump(\@refs,\@names);
                $dump =~ s/&/&amp;/g;
                $dump =~ s/</&lt;/g;
                $dump =~ s/>/&gt;/g;
                $dump =~ s/\n/<br>/g;
                $text .= "<br><br>Dump von xxx:\n<pre>$dump</pre>";
            }
        }

say $text;

    }

}

10 print "Hallo"
20 goto 10

+4 replies

Linuxer

2021-05-26 13:55

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Konnte nur schnell und flüchtig drüber schauen:

In Zeile 25-27 definierst Du eine Array-Referenz, keine Hash-Referenz.
Und dann iterierst Du durch die Elemente des Array; scheint mir auch komisch.

Definiere dort eine Hash-Referenz und verwende dann ab Zeile 60 keine Loop, sondern verwende $ref->[10] gleich als Hash-Referenz.
Last edited: 2021-05-26 13:59:09 +0200 (CEST)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+3 replies

bianca

2021-05-26 18:35

User since
2009-09-13
6979 Artikel
BenutzerIn

user image

2021-05-26T11:55:47 Linuxer
In Zeile 25-27 definierst Du eine Array-Referenz, keine Hash-Referenz.
Und dann iterierst Du durch die Elemente des Array; scheint mir auch komisch.

Ja habe ich verstanden und geändert.

Jetzt kommt

Quote
Not a HASH reference at C:/Strawberry/perl/lib/Data/Dumper.pm line 232.

Was ist jetzt noch falsch?

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
system 'cls';

my $test1 = ['Birne','Apfel'];
my @test2 = ('Fred','Anna');
my %test3 = (foo => 'bar',abc => 'def');
my $test4 = 'string';

my %uebergabe = (
    liste       => [
        [
            0,
            1,
            2,
            3,
            4,
            5,
            6,
            7,
            8,
            'Testtext',
            {
                '@test1'    => $test1,
                '@$test2'   => \@test2,
                '%$test3'   => \%test3,
                '$test4'    => $test4,
            }
        ]
    ]
);

my $env;

meldung_machen($env,\%uebergabe);

###############################################################################
###############################################################################

sub meldung_machen{
    my ($env,$transp) = @_;


    foreach my $ref (@{$transp->{liste}}) {

        # Text setzen
        my $text = $ref->[9];

        # Dump/-s im Text ergänzen
        if (defined $ref->[10] && ref($ref->[10]) eq 'HASH') {

            require Data::Dumper;
            local $Data::Dumper::Useqq;
            $Data::Dumper::Useqq = 1;
            local $Data::Dumper::Sortkeys;
            $Data::Dumper::Sortkeys = sub {
                my ($hash) = @_;
                return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)];
            };

            my @names = keys %{$ref->[10]};
            my @refs  = values %{$ref->[10]};
            my $dump = Data::Dumper::Dump(\@refs,\@names);

            $dump =~ s/&/&amp;/g;
            $dump =~ s/</&lt;/g;
            $dump =~ s/>/&gt;/g;
            $dump =~ s/\n/<br>/g;
            $text .= "<br><br>Dump von xxx:\n<pre>$dump</pre>";

say $text;
        }
    }
}

10 print "Hallo"
20 goto 10

+2 replies
Linuxer

2021-05-26 22:43

User since
2006-01-27
3875 Artikel
HausmeisterIn

Du rufst in Zeile 65 Dump() als Funktion auf (Data::Dumper::Dump(...)), nicht wie zuvor gezeigt als Methode: Data::Dumper->Dump(...)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- bianca
  
  2021-05-26 22:57
  
  User since
  2009-09-13
  6979 Artikel
  BenutzerIn
  
  2021-05-26T20:43:12 Linuxer
  Du rufst in Zeile 65 Dump() als Funktion auf (Data::Dumper::Dump(...)), nicht wie zuvor gezeigt als Methode: Data::Dumper->Dump(...)
  
  Das hab ich nicht gesehen, sorry.
  Vielen vielen Dank!!
  10 print "Hallo"
  20 goto 10

+6 replies
bianca

2021-05-27 07:21

User since
2009-09-13
6979 Artikel
BenutzerIn

Kann ich bei dieser Syntax auch Einfluss auf das Layout nehmen?
Ich hätte gern Trennstriche jeweils am Ende eines Dumps. Geht das?
10 print "Hallo"
20 goto 10
- +5 replies
- Linuxer
 
 2021-05-27 09:55
 User since
 2006-01-27
 3875 Artikel
 HausmeisterIn
 Ich wüsste nicht, dass es dafür eine Option gäbe.
 
 Entweder iterierst Du einzeln durch jedes Key-Value-Paar (Name=>Referenz) und erstellst jeweils einen einzelnen Dump. Diesen Dump dann mit Trennzeile ausgeben oder abspeichern. Oder einen Array von Dumps anlegen und dessen Elemente dann mit der Trennzeile per join() verbinden.
 
 Oder bei der jetzigen Methode: Wenn Du sicher bist, dass Deine Daten das folgende Suchkriterium nicht enthalten:
 - Jeder ausgegebener Dump sollte mit einem Semikolon am Zeilenende beendet sein.
 - Suche in Deinem $dump nach jedem Semikolon dieser Art und füge dahinter Deine Trennzeile ein.
 
 Beispiel:
 
 Code (perl): (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 44
 
 #! /usr/bin/env perl use strict; use warnings; use 5.010; sub my_dumper1 { require Data::Dumper; my @dumps; my $trenner = "\n#-----------------\n\n"; while ( my ( $name, $ref ) = splice( @_, 0, 2 ) ) { push @dumps, Data::Dumper->Dump( [$ref], [$name]); } warn join $trenner, @dumps, ""; } sub my_dumper2 { require Data::Dumper; my %args = @_; my @names = keys %args; my @refs = values %args; my $dump = Data::Dumper->Dump( \@refs, \@names ); my $trenner = "\n#-----------------\n\n"; $dump =~ s/;\s*$/;$trenner/mg; warn $dump; } my $foo = [ qw( an array ) ]; my $bar = { a => "hash" }; warn "Variante 1\n"; my_dumper1( 'foo' => $foo, '*bar' => $bar ); warn "Variante 2\n"; my_dumper2( 'foo' => $foo, '*bar' => $bar );
 
 Last edited: 2021-05-27 10:00:41 +0200 (CEST)
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - +4 replies
 - bianca
 
 2021-05-27 10:40
 User since
 2009-09-13
 6979 Artikel
 BenutzerIn
 
 Habe es kombiniert gemacht. Das mit dem splice habe ich nicht verstanden. Endergebnis ist perfekt und ich danke dir!
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13 14
 
 my @dumplist; foreach my $key (keys %{$ref->[10]}) { my $dumptxt = Data::Dumper->Dump([$ref->[10]{$key}],[$key]); $dumptxt =~ s/&/&/g; $dumptxt =~ s/</</g; $dumptxt =~ s/>/>/g; $dumptxt =~ s/\n/ /g; push @dumplist,$dumptxt; } $text .= " Dump/-s:\n<pre>" .join("---------------------------------------------------------------- ",@dumplist) ."</pre>" ;
 
 Editiert von bianca: kleine Korrektur
 Last edited: 2021-05-27 10:45:32 +0200 (CEST)
 10 print "Hallo"
 20 goto 10
 - +3 replies
 - Linuxer
 
 2021-05-27 10:55
 
 User since
 2006-01-27
 3875 Artikel
 HausmeisterIn
 
 Zum Splice:
 
 Bei meinem Code werden ja Name und Referenz nicht als Hash-Referenz an die Subroutine übergeben, sondern als Liste, in der abwechselnd Namen und Referenzen stehen (=> ist schließlich effektiv auch nur ein Komma).
 
 Code (perl): (dl )
 
 my_dumper1( 'foo' => $foo, '*bar' => $bar );
 
 Da der zugrundeliegende Gedanke ja ist, dass jede Referenz einzeln verarbeitet werden soll, erspare ich mir die Arbeit, die Liste von Argumenten erst in einen Hash zu verwandeln und dann aus diesem zu verarbeiten.
 Stattdessen nehme ich mit splice() jeweils die ersten beiden Argumente als Name und Referenz und verarbeite diese jeweils. Dabei werden jeweils die ersten zwei Argumente aus der Liste entfernt, bis am Ende keine Argumente mehr übrig sind und die while-Schleife abbricht.
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - +2 replies
 - bianca
 
 2021-05-27 11:16
 
 User since
 2009-09-13
 6979 Artikel
 BenutzerIn
 
 Ja das mit dem Array hatte ich in msg #193293 auch vor aber dann rietst du zum Hash.
 Aber so geht es ja auch. Iteriert werden muss sowieso.
 10 print "Hallo"
 20 goto 10
 
 Linuxer
 
 2021-05-27 11:28
 
 User since
 2006-01-27
 3875 Artikel
 HausmeisterIn
 
 Damals war eine Anforderung, eine Trennzeile einzubauen, auch nicht bekannt.
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2021-05-25 11:23.