test11.pl

back

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/ "/&quot;/g; # sub double quotes
80     $txt =~ s/\</&lt;/g; # sub less than tag beginning
81     $txt =~ s/\>/&gt;/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
#ResWdCount
1ARGV1
2else1
3my6
4foreach1
5if3
6or1
7sub2
8eq1
9qw3
List of 9 used reserve words ...
 
Built-in Functions
#FuncsCount
1scalar1
2localtime2
3time2
4die2
5print4
6join2
7keys1
8open1
9length1
10exists1
List of 10 used built-in function words ...
 
Punctuation Used
#PuncuatCount
1\1
2=17
3*1
4,5
5-4
6--2
7++1
8.20
9[3
10<<4
11<11
12;23
13!2
14{19
15]3
16|6
17=>1
18>8
19_1
20?3
21)19
22=~4
23(24
24}18
25->1
List of 25 used punctuation ...
 
Arrays
#U.ArraysCount
1@TTAttrib1
2@2
3@TTColrs1
4@_2
5@TTTypes1
6@lines2
List of 6 user arrays ...
 
Hash
#U.HashCount
1%tmphash1
List of 1 user hash (associative arrays) ...
 
Scalar
#U.ScalarCount
1$builtin_vars_re1
2$ln1
3$rw4
4$fh4
5$HResWdFnd3
6$LF1
7$tmphash4
8$txt5
9$mfile2
10$#2
11$hdr3
12$self1
13$infile1
14$a2
15$file_lines:2
16$_7
List of 16 user scalars ...
 

List of colours by IE 4 ...

aliceblue
#F0F8FF

antiquewhite
#FAEBD7

aqua
#00FFFF

aquamarine
#7FFFD4

azure
#F0FFFF

beige
#F5F5DC

bisque
#FFE4C4

black
#000000

blanchedalmond
#FFEBCD

blue
#0000FF

blueviolet
#8A2BE2

brown
#A52A2A

burlywood
#DEB887

cadetblue
#5F9EA0

chartreuse
#7FFF00

chocolate
#D2691E

coral
#FF7F50

cornflowerblue
#6495ED

cornsilk
#FFF8DC

crimson
#DC143C

cyan
#00FFFF

darkblue
#00008B

darkcyan
#008B8B

darkgoldenrod
#B8860B

darkgray
#A9A9A9

darkgreen
#006400

darkkhaki
#BDB76B

darkmagenta
#8B008B

darkolivegreen
#556B2F

darkorange
#FF8C00

darkorchid
#9932CC

darkred
#8B0000

darksalmon
#E9967A

darkseagreen
#8FBC8B

darkslateblue
#483D8B

darkslategray
#2F4F4F

darkturquoise
#00CED1

darkviolet
#9400D3

deeppink
#FF1493

deepskyblue
#00BFFF

dimgray
#696969

dodgerblue
#1E90FF

firebrick
#B22222

floralwhite
#FFFAF0

forestgreen
#228B22

fuchsia
#FF00FF

gainsboro
#DCDCDC

ghostwhite
#F8F8FF

gold
#FFD700

goldenrod
#DAA520

gray
#808080

green
#008000

greenyellow
#ADFF2F

honeydew
#F0FFF0

hotpink
#FF69B4

indianred
#CD5C5C

indigo
#4B0082

ivory
#FFFFF0

khaki
#F0E68C

lavender
#E6E6FA

lavenderblush
#FFF0F5

lawngreen
#7CFC00

lemonchiffon
#FFFACD

lightblue
#ADD8E6

lightcoral
#F08080

lightcyan
#E0FFFF

lightgoldenrodyellow
#FAFAD2

lightgreen
#90EE90

lightgrey
#D3D3D3

lightpink
#FFB6C1

lightsalmon
#FFA07A

lightseagreen
#20B2AA

lightskyblue
#87CEFA

lightslategray
#778899

lightsteelblue
#B0C4DE

lightyellow
#FFFFE0

lime
#00FF00

limegreen
#32CD32

linen
#FAF0E6

magenta
#FF00FF

maroon
#800000

mediumaquamarine
#66CDAA

mediumblue
#0000CD

mediumorchid
#BA55D3

mediumpurple
#9370DB

mediumseagreen
#3CB371

mediumslateblue
#7B68EE

mediumspringgreen
#00FA9A

mediumturquoise
#48D1CC

mediumvioletred
#C71585

midnightblue
#191970

mintcream
#F5FFFA

mistyrose
#FFE4E1

moccasin
#FFE4B5

navajowhite
#FFDEAD

navy
#000080

oldlace
#FDF5E6

olive
#808000

olivedrab
#6B8E23

orange
#FFA500

orangered
#FF4500

orchid
#DA70D6

palegoldenrod
#EEE8AA

palegreen
#98FB98

paleturquoise
#AFEEEE

palevioletred
#DB7093

papayawhip
#FFEFD5

peachpuff
#FFDAB9

peru
#CD853F

pink
#FFC0CB

plum
#DDA0DD

powderblue
#B0E0E6

purple
#800080

red
#FF0000

rosybrown
#BC8F8F

royalblue
#4169E1

saddlebrown
#8B4513

salmon
#FA8072

sandybrown
#F4A460

seagreen
#2E8B57

seashell
#FFF5EE

sienna
#A0522D

silver
#C0C0C0

skyblue
#87CEEB

slateblue
#6A5ACD

slategray
#708090

snow
#FFFAFA

springgreen
#00FF7F

steelblue
#4682B4

tan
#D2B48C

teal
#008080

thistle
#D8BFD8

tomato
#FF6347

turquoise
#40E0D0

violet
#EE82EE

wheat
#F5DEB3

white
#FFFFFF

whitesmoke
#F5F5F5

yellow
#FFFF00

yellowgreen
#9ACD32

List of 140 colours ...

back