- For some reason, using your code I get...
...
\$foo -> oS
...
which doesn't seem quite right.
-
I gotta side with George_Sherston on this one, It's
all about Data::Dumper. Here's what I can up with for
generating the grammer described (I think it can handle
any case the orriginal post did)...
sub my_describe {
my $s = Dumper(@_);
$s =~ s/\'[^\']*\'//g; # eliminate scalars
$s =~ s/[^\[\{\'\\]//g; # cut to the heart of the structure
# + because we only care about one member of hashes/arrays
$s =~ s/\[+/Ao/g;
$s =~ s/\{+/Ho/g;
$s =~ s/\\+/r/g;
return $s . "S";
}
UPDATE: I just realized this can't handle
something really basic: \\\\\\$foo.
Oh well, that's why version numbers were invented
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|