obj dump

#!/usr/bin/perl -s

while(<STDIN>) {
    foreach $a (@ARGV) {
        if (/<$a>/) {
            $y = 1;
            print "\n" if $r;
            print "char ${a}[] =\n" if !$d && !$g;
            print "#define $a \\\n" if $d && !$g;
            undef $r;
        }
    }
    if ((!/:/ && !$p) || (!/<$a.*>/ && $p)) {
        if ($y && $r) {
            $r =~ s/(.*)\\$/$1/ if $d && !$g;
            $r =~ s/(\t*"[^"]*")(.*)/$1;$2/ if !$d && !$g;
            print $r;
        }
        $y = 0;
    }
    if ($y) {
        print $r;
        s#$matchstr#
            $c = $1;
            $o = $3;
            $b = $2;
            $o =~ s/\s*(.*?)\s*/$1/;
            $b =~ s/([\da-f]{2})\s/\\x$1/g;
            $b = "\"$b\"" if $b;
            sprintf("\t%s%s\t/* %s %s%s\t*/%s", $b, "\t" x (3-int(leng
+th($b)/8)), $c, $o, "\t" x (4-int((length($o.$c)+4)/8)), $d ? "\\" : 
+"");#e if !$g;
        $r = $_;
    }
}
[download]

Can anyone comment on this?

Comment on obj dump Download Code
Re: obj dump by davorg (Chancellor) on Sep 24, 2001 at 14:21 UTC
It's horrible :) -- <http://www.dave.org.uk> "The first rule of Perl club is you don't talk about Perl club."	[reply]
Re: obj dump by Anonymous Monk on Sep 24, 2001 at 14:46 UTC
can anyone elaborate?	[reply]
Re: Re: obj dump by blakem (Monsignor) on Sep 24, 2001 at 14:55 UTC
Its tough write an elaborate answer to such a minimal question. We don't even know what that code is supposed to do. Try framing the code with how you are using it, what the interesting parts are, what problems you're having with it, etc. Time spent asking a good question will be rewarded with meaningful answers. Read dominus's comments on how to ask a good question. After all, if you aren't willing to invest more than five words, why should we? -Blake	[reply]
Re: obj dump by Anonymous Monk on Sep 24, 2001 at 15:07 UTC
Re: Re: obj dump by arturo (Vicar) on Sep 24, 2001 at 17:43 UTC
Re: Re: obj dump by virtualsue (Vicar) on Sep 24, 2001 at 16:40 UTC
OK. Did you really mean to use `-s`¹ in the shebang line, or did you mean `-w`? There are a lot of regular expressions in your program, but no comments and every single variable name is composed of a single character. It looks like it fell out of a 1970s Fortran/Basic timewarp. The indenting is reasonable. Marks out of 10: 3 (provisional, based on the assumption that you meant to run with warnings enabled). ¹From the Perl 5 Pocket Reference: -s Interprets -xxx on the command line as a switch and sets the corresponding variable $xxx in the script to 1. If the switch is of the form -xxx=yyy the $xxx variable is set to yyy.	[reply] [d/l] [select]
Re: Re: Re: obj dump by tommyw (Hermit) on Sep 24, 2001 at 17:25 UTC
Re: obj dump by davorg (Chancellor) on Sep 24, 2001 at 18:04 UTC
OK, in order to even attempt a sensible answer to the question, we'll need more information. Given the presence of the `-s` we'll need to know the command line that you use to run the script so we can know valid values for $matchstr, $g, $r and $y. The script seems to closely tied to the syntax of the input file, so it would be helpful to see some sample data. Is that more helpful? p.s. I still think it's a horrible script :) -- <http://www.dave.org.uk> "The first rule of Perl club is you don't talk about Perl club."	[reply]


Welcome to the Monastery
	PerlMonks

obj dump

When choosing user names for websites, I prefer to use: