1
2use String::RexxParse qw(parse);
3
4$a = 'around the rugged rocks the ragged rascal ran!';
5
6$b=$c=$d=$e=$f=$g=$minus3=$eight=$pattern="";
7
8$minus3 = -3; $eight = 8; $pattern = 'rocks';
9
10parse $a, q~ $b $c ($pattern) $d +($eight) $e +($minus3) $f $g ~;
11
12print "1..6\n";
13
14
15if ($b eq 'around' ) { print "ok 1\n" }
16else { print "not ok 1\n" }
17
18if ($c eq 'the rugged ' ) { print "ok 2\n" }
19else { print "not ok 2\n" }
20
21if ($d eq 'rocks th' ) { print "ok 3\n" }
22else { print "not ok 3\n" }
23
24if ($e eq 'e ragged rascal ran!' ) { print "ok 4\n" }
25else { print "not ok 4\n" }
26
27if ($f eq 'the' ) { print "ok 5\n" }
28else { print "not ok 5\n" }
29
30if ($g eq 'ragged rascal ran!' ) { print "ok 6\n" }
31else { print "not ok 6\n" }
32
33
34