This is just a 'test11.pl' scenario, built in DEBUG mode ... spaces are EXPANDED ... line numbers added ... that is a 'parser' view ... the 'red', 'green', and 'white' space representation shows the 'state' of that space - red = artificial, that is, will be removed when debug is OFF ... green=should be removed, without debug ... white=as per original line ...
Also, in p2html10.pl, the colours are per a generated set of colour functions, from internal set arrays ... the bottom is the list supported by Internet Explorer 4, hopefully also by 6++ ;=))
1 |
|
2 |
if ( "this" eq 't' . "$var" ) { |
3 |
#if("this"eq't'."$var") { as comment |
4 |
|
5 |
$a = '500$' ; # '; |
6 |
$_ = join ( "" , @lines ) ; |
7 |
$a = '500$' ; # '; |
8 |
$_ = join ( "" , @lines ) ; |
9 |
s#//#/#\; |
10 |
print DSP << "EOF" ; |
11 |
line $file_lines: Next file line with $mfile ... |
12 |
EOF |
13 |
|
14 |
print DSP << EOF ; |
15 |
line $file_lines: Next file line with $mfile ... |
16 |
EOF |
17 |
|
18 |
@ { 'Formats' } { $_ } } [ 0 . . $# { $tmphash { $_ } } ] = @ { . . $# { $tmphash { $_ } } ] ; |
19 |
$tmphash |
20 |
$self -> { 'Formats' } { $_ } [ 0 ] = $tmphash { $_ } foreach ( keys %tmphash ) ; |
21 |
|
22 |
'last_token_type' => '' , # Type of the last token. |
23 |
$builtin_vars_re = |
24 |
qr/ \$\# ? _ |
25 |
| \$ ( ?:\^[LAECDFHIMOPRSTWX]|[0-9&` '+*.\/|,\\";#%=\-~^:?!@\$<>()\[\]]) |
26 |
| \$\# ? ARGV ( ?:\s*\[)? |
27 |
| \$\# ? INC\s * \ [ |
28 |
| \$ ( ?:ENV|SIG|INC)\s*\{ |
29 |
| \@ ( ?:_|ARGV|INC) |
30 |
| \% ( ?:INC|ENV|SIG) |
31 |
/x; |
32 |
|
33 |
|
34 |
|
35 |
|
36 |
tolog ( "$0 Started " . localtime ( time ( ) ) . " ...\n" ) ; |
37 |
|
38 |
sub add_html_head { |
39 |
my ( $fh , $hdr ) = @_ ; |
40 |
print $fh << EOF ; |
41 |
< html > |
42 |
< ! -- P26 . 2005 . 05 . 10 geoffmclane . com perl |
43 |
HTML generated using p2html5 . pl - |
44 |
-- > |
45 |
< head > |
46 |
< title > $hdr < /title> |
47 |
</head> |
48 |
EOF |
49 |
# dynamic block of style - could be put to a file ... |
50 |
add_html_style ( $fh ) ; |
51 |
|
52 |
print $fh << "EOF" ; |
53 |
< body > |
54 |
< h1 align = "center" > $hdr < /h1> |
55 |
|
56 |
< p align = "center" > < a href = "perl.htm" > back < /a></p> |
57 |
|
58 |
EOF |
59 |
|
60 |
} |
61 |
|
62 |
## } elsif ( isresword ($tx2) ) { ### exists $HResWds{$tx2} |
63 |
## $func = \&blue; |
64 |
sub add_uresword { |
65 |
my ( $rw ) = @_ ; |
66 |
if ( exists $HResWdFnd { $rw } ) { |
67 |
$HResWdFnd { $rw } ++ ; # another count |
68 |
} else { |
69 |
$HResWdFnd { $rw } = 1 ; # start count |
70 |
} |
71 |
} |
72 |
|
73 |
my @TTColrs = qw ( l . blue brown l . br s . green pink mauve b . green l . brn blue white l . grey ) ; |
74 |
my @TTTypes = qw ( array comment unass s - quote scalar functions d - quote hash reserved other punctuation ) ; |
75 |
my @TTAttrib = qw ( match orange regex green color1 color2 color3 peach blue white grey ) ; |
76 |
|
77 |
# convert to HTML |
78 |
$txt =~ s/\t/$tab_stg /g; # substitute TAB characters |
79 |
$txt =~ s/ "/"/g; # sub double quotes |
80 |
$txt =~ s/\</</g; # sub less than tag beginning |
81 |
$txt =~ s/\>/>/g; # and html/xml tag ending |
82 |
my $ln = length ( $txt ) ; # get the final length |
83 |
|
84 |
open $LF , ">$logfil" or die "Can NOT open LOG file $logfil!\n" ; |
85 |
|
86 |
tolog ( "$0 Started " . localtime ( time ( ) ) . " ...\n" ) ; |
87 |
if ( ! - f $infile ) { |
88 |
die "Input file [$infile] NOT FOUND! ...\n" ; |
89 |
} |
Colour Key :
Function, Description., Colour
Style | Description | Colour |
---|---|---|
match | @array | l.blue |
orange | comment | brown |
regex | unass | l.br |
green | s-quote | s.green |
color1 | scalar | pink |
color2 | functions | mauve |
color3 | d-quote | b.green |
color4 | color4 | color4 |
color5 | color5 | color5 |
peach | hash | l.brn |
blue | reserved | blue |
white | other | white |
grey | punctuation | l.grey |
Parse stats
Reserved Words
| Built-in Functions
| Punctuation Used
| Arrays
| Hash
| Scalar
|
List of colours by IE 4 ...
aliceblue |
antiquewhite |
aqua |
aquamarine |
azure |
beige |
bisque |
black |
blanchedalmond |
blue |
blueviolet |
brown |
burlywood |
cadetblue |
chartreuse |
chocolate |
coral |
cornflowerblue |
cornsilk |
crimson |
cyan |
darkblue |
darkcyan |
darkgoldenrod |
darkgray |
darkgreen |
darkkhaki |
darkmagenta |
darkolivegreen |
darkorange |
darkorchid |
darkred |
darksalmon |
darkseagreen |
darkslateblue |
darkslategray |
darkturquoise |
darkviolet |
deeppink |
deepskyblue |
dimgray |
dodgerblue |
firebrick |
floralwhite |
forestgreen |
fuchsia |
gainsboro |
ghostwhite |
gold |
goldenrod |
gray |
green |
greenyellow |
honeydew |
hotpink |
indianred |
indigo |
ivory |
khaki |
lavender |
lavenderblush |
lawngreen |
lemonchiffon |
lightblue |
lightcoral |
lightcyan |
lightgoldenrodyellow |
lightgreen |
lightgrey |
lightpink |
lightsalmon |
lightseagreen |
lightskyblue |
lightslategray |
lightsteelblue |
lightyellow |
lime |
limegreen |
linen |
magenta |
maroon |
mediumaquamarine |
mediumblue |
mediumorchid |
mediumpurple |
mediumseagreen |
mediumslateblue |
mediumspringgreen |
mediumturquoise |
mediumvioletred |
midnightblue |
mintcream |
mistyrose |
moccasin |
navajowhite |
navy |
oldlace |
olive |
olivedrab |
orange |
orangered |
orchid |
palegoldenrod |
palegreen |
paleturquoise |
palevioletred |
papayawhip |
peachpuff |
peru |
pink |
plum |
powderblue |
purple |
red |
rosybrown |
royalblue |
saddlebrown |
salmon |
sandybrown |
seagreen |
seashell |
sienna |
silver |
skyblue |
slateblue |
slategray |
snow |
springgreen |
steelblue |
tan |
teal |
thistle |
tomato |
turquoise |
violet |
wheat |
white |
whitesmoke |
yellow |
yellowgreen |