fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. while(<>)
  4. {
  5. 	if (/[*]{3}\h+X REGION\h+[*]{3}/../[*]{3}\h+Y REGION\h+[*]{3}/) {
  6. 		print "X: $1,$2\n" if (/.*\$(\S*)\h*(\S*)\h*[|]/)
  7. 	}
  8.  
  9. 	if (/[*]{3}\h+Y REGION\h+[*]{3}/..undef) {
  10. 		print "Y: $1,$2\n" if (/.*\$(\S*)\h*(\S*)\h*[|]/)
  11. 	}
  12. }
  13.  
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
*** X REGION ***
|----------------------------------------------------------------------------|
| X                                                                                        |
| addr              tag          extra data                                      |
|----------------------------------------------------------------------------|
| $A1    label_A1X                   |       1 |
| $A2    label_A2X                   |       2 |
| $A3    label_A3X                   |       3 |

*** Y REGION ***

|----------------------------------------------------------------------------|
| Y                                                                                        |
| addr              tag           extra data                                     |
|----------------------------------------------------------------------------|
| $0     label_0Y                    |        99 |
| $1                                 |        98 |
stdout
copy 
X: A1,label_A1X
X: A2,label_A2X
X: A3,label_A3X
Y: 0,label_0Y
Y: 1,
https://ideone.com/QcKhGY
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!