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

murphy
 2010-02-07 16:06
#132125 #132125
User since
2004-07-19
1776 Artikel
HausmeisterIn
[Homepage]
user image
Habe ich erst später gelesen, sorry.

Für die ganz Faulen, die ein fertiges Skript sehen wollen, hier noch eine komplette Lösung, die die Variablen in einer Form ausgibt, wie man sie auch als Zuweisungsstatements wieder in den Code übernehmen können sollte:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use 5.010;
use strict;
use warnings;

use Data::Dumper;

for my $var (keys %main::) {
  my $name = $var;
  $name =~ s/([\x00-\x1f\x7f])/'^'.($1^'@')/eg;

  my $dumper = do {
    no strict qw/refs/;
    Data::Dumper->new([ $$var ], [ $name ]);
  };

  print $dumper->Purity(1)->Useqq(1)->Dump();
}
When C++ is your hammer, every problem looks like your thumb.

View full thread Vordefinierte Variablen anzeigen