Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- for @xindices -> $ind {
- my ($x ,$y1,$y2) = $ind ~~ /^ (\d+) ':' (\d+) '_' (\d+) $/;
- printf("x: %d,y1: %d,y2: %d\n",$x,$y1,$y2);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement