File: bridge.tx

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (19 lines) | stat: -rw-r--r-- 498 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
: my $num   = 100;
: my $str   = 'abc';
: my $array = [1,2,4,8,16];
: my $hash  = {a => 1, b => 2, c => 3, d => 4};

: $num ~ ' is a number' if  $num.looks_like_number();

: $str ~ ' is a string' if !$str.looks_like_number();

: $str ~ ' length is ' ~ $str.length();

: 'sum of ' ~ $array.join(',') ~ ' is ' ~ $array.sum();

: my $reduced = $hash.delete_keys('b', 'd');

After keys b and d have been deleted, the hash is:
: for $reduced.kv() -> $pair {
    <: $pair.key :> = <: $pair.value :>
: };