Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.pl.ref is written in an unsupported language. File is not indexed.
0001 <Keyword>#!/usr/bin/perl -w</Keyword><br/> 0002 <Comment># This is a pseudo Perl file to test Kate's Perl syntax highlighting.</Comment><br/> 0003 <Comment># </Comment><Alert Level 2>TODO</Alert Level 2><Comment>: this is incomplete, add more syntax examples!</Comment><br/> 0004 <Normal Text></Normal Text><br/> 0005 <Keyword>sub </Keyword><Function>prg</Function><Normal Text>(</Normal Text><Data Type>$</Data Type><Normal Text>)</Normal Text><br/> 0006 <Normal Text>{</Normal Text><br/> 0007 <Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> = </Normal Text><Function>shift</Function><Normal Text>;</Normal Text><br/> 0008 <Normal Text></Normal Text><br/> 0009 <Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s/</Operator><Pattern>bla</Pattern><Operator>/</Operator><String (interpolated)>foo</String (interpolated)><Operator>/igs</Operator><Normal Text>;</Normal Text><br/> 0010 <Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s!</Operator><Pattern>bla</Pattern><Operator>!</Operator><String (interpolated)>foo</String (interpolated)><Operator>!igs</Operator><Normal Text>;</Normal Text><br/> 0011 <Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s#</Operator><Pattern>bla</Pattern><Operator>#</Operator><String (interpolated)>foo</String (interpolated)><Operator>#igs</Operator><Normal Text>;</Normal Text><br/> 0012 <Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>tr</Operator><Pattern>/a-z/A-Z/</Pattern><Normal Text>;</Normal Text><br/> 0013 <Normal Text> (</Normal Text><Data Type>$match</Data Type><Normal Text>) = (</Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>m/</Operator><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>.</Pattern><Pattern Internal Operator>*?)</Pattern Internal Operator><Operator>/igs</Operator><Normal Text>);</Normal Text><br/> 0014 <Normal Text></Normal Text><br/> 0015 <Normal Text> </Normal Text><Data Type>$test</Data Type><Normal Text> = </Normal Text><Decimal>2</Decimal><Normal Text>/</Normal Text><Float>453453.21</Float><Normal Text>;</Normal Text><br/> 0016 <Normal Text> </Normal Text><Data Type>$test</Data Type><Normal Text> /= </Normal Text><Decimal>2</Decimal><Normal Text>;</Normal Text><br/> 0017 <Normal Text></Normal Text><br/> 0018 <Normal Text> </Normal Text><Function>print</Function><Normal Text> </Normal Text><Operator>qq~</Operator><String (interpolated)>d fsd fsdf sdfl sd</String (interpolated)><Operator>~</Operator><br/> 0019 <Normal Text> </Normal Text><br/> 0020 <Normal Text> </Normal Text><Special Variable>$"</Special Variable><Normal Text> = </Normal Text><Operator>'</Operator><String>/</String><Operator>'</Operator><Normal Text>;</Normal Text><br/> 0021 <Normal Text> </Normal Text><br/> 0022 <Normal Text> </Normal Text><Data Type>$foo</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword>__EOF;</Keyword><br/> 0023 <String (interpolated)>d ahfdklf klsdfl sdf sd</String (interpolated)><br/> 0024 <String (interpolated)>fsd sdf sdfsdlkf sd</String (interpolated)><br/> 0025 <Keyword>__EOF</Keyword><br/> 0026 <Normal Text></Normal Text><br/> 0027 <Normal Text> </Normal Text><Data Type>$x</Data Type><Normal Text> = </Normal Text><Operator>"</Operator><String (interpolated)>dasds</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/> 0028 <Normal Text></Normal Text><br/> 0029 <Normal Text> </Normal Text><Keyword>next</Keyword><Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text>( </Normal Text><Data Type>$match</Data Type><Normal Text> </Normal Text><Operator>eq</Operator><Normal Text> </Normal Text><Operator>"</Operator><String (interpolated)>two</String (interpolated)><Operator>"</Operator><Normal Text> );</Normal Text><br/> 0030 <Normal Text> </Normal Text><Keyword>next</Keyword><Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text>( </Normal Text><Data Type>$match</Data Type><Normal Text> =~ </Normal Text><Operator>/</Operator><Pattern>go</Pattern><Operator>/i</Operator><Normal Text> );</Normal Text><br/> 0031 <Normal Text></Normal Text><br/> 0032 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = (</Normal Text><Decimal>1</Decimal><Normal Text>,</Normal Text><Decimal>2</Decimal><Normal Text>,</Normal Text><Decimal>3</Decimal><Normal Text>); </Normal Text><Comment># a comment</Comment><br/> 0033 <Normal Text> </Normal Text><Comment># Test qw versions with special ending characters</Comment><br/> 0034 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw(</Operator><Normal Text>apple foo bar</Normal Text><Operator>)</Operator><Normal Text>;</Normal Text><br/> 0035 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw[</Operator><Normal Text>apple foo bar</Normal Text><Operator>]</Operator><Normal Text>;</Normal Text><br/> 0036 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw{</Operator><Normal Text>apple foo bar</Normal Text><Operator>}</Operator><Normal Text>;</Normal Text><br/> 0037 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw<</Operator><Normal Text>apple foo bar</Normal Text><Operator>></Operator><Normal Text>;</Normal Text><br/> 0038 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw(</Operator><br/> 0039 <Normal Text> multi</Normal Text><br/> 0040 <Normal Text> line</Normal Text><br/> 0041 <Normal Text> test</Normal Text><br/> 0042 <Normal Text> </Normal Text><Operator>)</Operator><Normal Text>;</Normal Text><br/> 0043 <Normal Text> </Normal Text><Comment># Test qw with non special ending characters;</Comment><br/> 0044 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw/</Operator><Normal Text>apple foo bar</Normal Text><Operator>/</Operator><Normal Text>;</Normal Text><br/> 0045 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw|</Operator><Normal Text>apple foo bar</Normal Text><Operator>|</Operator><Normal Text>;</Normal Text><br/> 0046 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw@</Operator><Normal Text>apple foo bar</Normal Text><Operator>@</Operator><Normal Text>;</Normal Text><br/> 0047 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw!</Operator><Normal Text>apple foo bar</Normal Text><Operator>!</Operator><Normal Text>;</Normal Text><br/> 0048 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw"</Operator><Normal Text>apple foo bar</Normal Text><Operator>"</Operator><Normal Text>;</Normal Text><br/> 0049 <Normal Text> </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw'</Operator><Normal Text>apple foo bar</Normal Text><Operator>'</Operator><Normal Text>;</Normal Text><br/> 0050 <Normal Text> </Normal Text><Function>push</Function><Normal Text>(</Normal Text><Data Type>@array</Data Type><Normal Text>, </Normal Text><Decimal>4</Decimal><Normal Text>);</Normal Text><br/> 0051 <Normal Text> </Normal Text><Data Type>%hash</Data Type><Normal Text> = (red => </Normal Text><Operator>'</Operator><String>rot</String><Operator>'</Operator><Normal Text>,</Normal Text><br/> 0052 <Normal Text> blue => </Normal Text><Operator>'</Operator><String>blau</String><Operator>'</Operator><Normal Text>);</Normal Text><br/> 0053 <Normal Text> </Normal Text><Function>print</Function><Normal Text> </Normal Text><Function>keys</Function><Normal Text>(</Normal Text><Data Type>%hash</Data Type><Normal Text>);</Normal Text><br/> 0054 <Normal Text>}</Normal Text><br/> 0055 <Normal Text></Normal Text><br/> 0056 <Keyword>sub </Keyword><Function>blah</Function><Normal Text> {</Normal Text><br/> 0057 <Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword> ' EOS';</Keyword><br/> 0058 <Normal Text> this is my string</Normal Text><br/> 0059 <Normal Text> and it's continuation</Normal Text><br/> 0060 <Keyword> EOS</Keyword><br/> 0061 <Normal Text></Normal Text><br/> 0062 <Normal Text> </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator>"</Operator><String (interpolated)>hello world</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/> 0063 <Normal Text></Normal Text><br/> 0064 <Normal Text> </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword> " EOS";</Keyword><br/> 0065 <String (interpolated)> this is my string</String (interpolated)><br/> 0066 <String (interpolated)> and it's continuation</String (interpolated)><br/> 0067 <Keyword> EOS</Keyword><br/> 0068 <Normal Text>}</Normal Text><br/> 0069 <Normal Text></Normal Text><br/> 0070 <Normal Text>&blah;</Normal Text><br/> 0071 <Normal Text>prg(</Normal Text><Operator>"</Operator><String (interpolated)>test</String (interpolated)><Operator>"</Operator><Normal Text>);</Normal Text><br/> 0072 <Normal Text></Normal Text><br/> 0073 <Comment># Bracket closures in RegExp patterns (bug #364866)</Comment><br/> 0074 <Operator>qr{</Operator><Pattern> </Pattern><Pattern Internal Operator>$</Pattern Internal Operator><Pattern>{var} aa{aa{a}a} aa</Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>}</Operator><Normal Text>;</Normal Text><br/> 0075 <Operator>qr(</Operator><Pattern>aa</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>|</Pattern Internal Operator><Pattern>c</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>aa</Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>)</Operator><Normal Text>;</Normal Text><br/> 0076 <Operator>s{</Operator><Pattern>aaa {aaa} a </Pattern><Special Variable>\x{A2}</Special Variable><Pattern> </Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>}{</Operator><String (interpolated)>aa</String (interpolated)><Operator>}</Operator><Normal Text>;</Normal Text><br/> 0077 <Operator>s(</Operator><Pattern>aa</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>|</Pattern Internal Operator><Pattern>c</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>aa</Pattern><Operator>)(</Operator><String (interpolated)>aa</String (interpolated)><Operator>)</Operator><Normal Text>;</Normal Text><br/> 0078 <Normal Text></Normal Text><br/> 0079 <Comment># Strings as scalar references (bug #348765)</Comment><br/> 0080 <Data Type>$x</Data Type><Normal Text> = \</Normal Text><Operator>'</Operator><String>Reference of a String</String><Operator>'</Operator><Normal Text>;</Normal Text><br/> 0081 <Data Type>$y</Data Type><Normal Text> = \</Normal Text><Operator>"</Operator><String (interpolated)>Reference of a String</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/> 0082 <Normal Text></Normal Text><br/> 0083 <Comment># Variables that start with underscore (bug #355300)</Comment><br/> 0084 <Data Type>$_variable</Data Type><br/> 0085 <Special Variable>$_</Special Variable><Normal Text> </Normal Text><Comment># Reserved var.</Comment><br/> 0086 <Normal Text></Normal Text><br/> 0087 <Keyword>for</Keyword><Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$x</Data Type><Normal Text> (</Normal Text><Data Type>$hash</Data Type><Normal Text>->{arr}-></Normal Text><Data Type>@</Data Type><Operator>*</Operator><Normal Text>) {</Normal Text><br/> 0088 <Normal Text> </Normal Text><Keyword>for</Keyword><Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$k</Data Type><Normal Text> (</Normal Text><Function>keys</Function><Normal Text> </Normal Text><Data Type>$k</Data Type><Normal Text>->%</Normal Text><Operator>*</Operator><Normal Text>) {</Normal Text><br/> 0089 <Normal Text> ...</Normal Text><br/> 0090 <Normal Text> }</Normal Text><br/> 0091 <Normal Text>}</Normal Text><br/> 0092 <Normal Text></Normal Text><br/> 0093 <Comment># Highlight correctly operator // (bug #407327)</Comment><br/> 0094 <Data Type>$x</Data Type><Normal Text> = ns // </Normal Text><Operator>""</Operator><Normal Text>;</Normal Text><br/> 0095 <Function>print</Function><Normal Text> </Normal Text><Data Type>$x</Data Type><Normal Text>;</Normal Text><br/>