#!/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 = $_;
}
}
Can anyone comment on this?
-
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.
|