Thread Vordefinierte Variablen anzeigen (52 answers)
Opened by bianca at 2010-02-07 13:20

bianca
 2010-02-07 14:39
#132074 #132074
User since
2009-09-13
6977 Artikel
BenutzerIn

user image
Nachdem ich jetzt nochmal über die richtige Fragetechnik belehrt worden bin also nochmal anders.
Ich möchte gern alle vordefinierten Systemvariablen nach dem Muster Variable => Inhalt ausgeben lassen. Wenn es mit Data::Dumper möglich ist, gern. Ich möchte nur nicht jede einzeln ansprechen müssen.

Dafür hat pq Teile dieses Codes spendiert:
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

#!/usr/bin/perl
use strict;
no strict 'refs';
use warnings;
my $inhalt = '';

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = \&dumper_filter;
sub dumper_filter {
        my ($hash) = @_;
        return [(sort {lc $a cmp lc $b} keys %$hash)];
}
$inhalt .= '<pre>';
for my $key (sort keys %main::) {
        my $sym = ${"main::"}{$key};
        if (defined *{$sym}{SCALAR} and defined $$sym) {
                $inhalt .= Dumper [$key,$$sym];
        }
}
$inhalt .= '</pre>';

print "$inhalt\n";


Funktioniert auch, bringt aber ausschnittsweise das hier, sieht also nicht so aus wie gewünscht:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
<pre>$VAR1 = [
          "\b",
          256
        ];
$VAR1 = [
          "\17",
          "MSWin32"
        ];
$VAR1 = [
          "\27ARNING_BITS",
          "\0\0\0\0\0\0\0\0\0\0\0\0"
        ];


Frage ist, wie man es so ausgeben lassen kann, wie oben beschrieben.
10 print "Hallo"
20 goto 10

View full thread Vordefinierte Variablen anzeigen