Thank you for your help.... I just started learning Perl Scripting... So can u please explain these 3 lines of script...
my @caught = /\{([^}]+)/g; next unless @caught; say for @caught;
Updatei tried that script in this way..........................................
but i got result as...............................................#!/usr/bin/perl $fn = "/home/t8.g"; open FP, "$fn" or die "Error in write:$!"; while (<FP>) { my @caught = /\{([^}]+)/g; next unless @caught; say for @caught; print @caught, "\n"; }
dummy_core/pads/hdmi_tx_1 dummy_core/pads/hdmi_tx_2 dummy_core/pads/hdmi_tx_3 dummycore/pads/hdmi_tx_4 dummy_core/pads/IO_vdd_right25 dummy_core/pads/IO_gnd_right2dummy_core/pads/dummy_dig22 dummy_core/pads/dummy_dig23 dummy_core/pads/comp_pad1 dummy_core/pad/CORE_vdd1
I am getting that 2 occurrence line in a single line.... Can you please update it.....
In reply to Re^2: Perl Log file extraction help required
by renjoooz
in thread Perl Log file extraction help required
by renjoooz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |