Re^3: Perl Log file extraction help required

If you are not useing perl 5.010 'use 5.010' then mabe this will work.

#!/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
..............
...............
....................
[download]

Comment on Re^3: Perl Log file extraction help required Download Code

Replies are listed 'Best First'.
Re^4: Perl Log file extraction help required by kcott (Archbishop) on Sep 22, 2012 at 08:22 UTC
G'day Generoso, You can add `-l` to the shebang line instead of restructuring the code. This produces the same output: `#!/usr/bin/env perl -l use strict; use warnings; while (<DATA>) { my @caught = /\{([^}]+)/g; next unless @caught; print for @caught; }` [download] See perlrun for a description of this option. -- Ken	[reply] [d/l] [select]
Re^4: Perl Log file extraction help required by renjoooz (Initiate) on Sep 22, 2012 at 09:01 UTC
</code> THIS TIME ITS PERFECT THANKS A LOT </code>	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks