fork download
  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
stdin
*** 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
X: A1,label_A1X
X: A2,label_A2X
X: A3,label_A3X
Y: 0,label_0Y
Y: 1,