Changeset View
Changeset View
Standalone View
Standalone View
autotests/input/highlight.pl
| Show All 32 Lines | 25 | __EOF | |||
|---|---|---|---|---|---|
| 33 | @array = qw(apple foo bar); | 33 | @array = qw(apple foo bar); | ||
| 34 | push(@array, 4); | 34 | push(@array, 4); | ||
| 35 | %hash = (red => 'rot', | 35 | %hash = (red => 'rot', | ||
| 36 | blue => 'blau'); | 36 | blue => 'blau'); | ||
| 37 | print keys(%hash); | 37 | print keys(%hash); | ||
| 38 | } | 38 | } | ||
| 39 | 39 | | |||
| 40 | sub blah { | 40 | sub blah { | ||
| 41 | my $str = << ' EOS'; | ||||
| 42 | this is my string | ||||
| 43 | and it's continuation | ||||
| 44 | EOS | ||||
| 45 | | ||||
| 46 | $str = "hello world"; | ||||
| 47 | | ||||
| 48 | $str = << " EOS"; | ||||
| 49 | this is my string | ||||
| 50 | and it's continuation | ||||
| 51 | EOS | ||||
| 41 | } | 52 | } | ||
| 42 | 53 | | |||
| 43 | &blah; | 54 | &blah; | ||
| 44 | prg("test"); | 55 | prg("test"); | ||