note
Generoso
<p>If you are not useing perl 5.010 'use 5.010' then mabe this will work.</p>
<code>#!/usr/bin/env perl
#use 5.010;
use strict;
use warnings;
while (<DATA>) {
my @caught = /\{([^}]+)/g;
next unless @caught;
#say for @caught;
foreach (@caught){print $_."\n"};
}
__DATA__
...................
...................
<CMD> windowSelect 444.235666.5542.2656565.1255
<CMD> spaceObject -fixSide bottom -space 0
Spacing instances ...
Adding vertical channel spacing of 0.0000um between the following
selected instances/modules:
{dupe_core/pads/tran_w_1}
{dupe_core/pads/tran_w_1}
{dupe_core/pads/htran_d_13}
{dupe_core/pads/rec_p_14}
{dup/pads/VDD_ight1} {dup/pa/GND_g}
{dummy_core/pads/dummy_dig22}
{dupe_core/pads/dummy_dig23}
{dupe_core/pads/comp_pad1}
{dupe_core/pad/CORE_vdd1}
<CMD> deselectAll
<CMD> selectInst dummy_core/pads/IO_gnd_right18
<CMD> selectInst dummy_core/pads/IO_vdd_right18
<CMD> uiSetTool move5
..............
...............
....................
</code>
995059
995067