Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Perl Log file extraction help required

by kcott (Abbot)
on Sep 22, 2012 at 07:08 UTC ( #995065=note: print w/ replies, xml ) Need Help??


in reply to Perl Log file extraction help required

G'day renjoooz,

Welcome to the monastery.

The special variable $` is not a good choice. I recommend you avoid using it whenever possible. Here's an extract of what perlvar has to say about it:

"The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. ..."

Here's a script (pm_brace_extract.pl) that gives the required output with the input you provided.

#!/usr/bin/env perl use 5.010; use strict; use warnings; while (<DATA>) { my @caught = /\{([^}]+)/g; next unless @caught; say for @caught; } __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 .............. ............... ....................

Output:

$ pm_brace_extract.pl 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

-- Ken


Comment on Re: Perl Log file extraction help required
Select or Download Code
Re^2: Perl Log file extraction help required
by renjoooz (Initiate) on Sep 22, 2012 at 07:20 UTC

    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..........................................

    #!/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"; }
    but i got result as...............................................
    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.....

      I certainly don't mind explaining but perhaps you could be a bit more specific regarding what's causing you problems.

      The regexp looks for an opening brace (\{) followed by 1 or more characters that are not a closing brace ([^}]). See perlre.

      If no matches were found, the next line of input is read. See next and unless.

      Loop through what was captured and output. See say and for.

      All the documentation links I've provided here are to pages on http://perldoc.perl.org/. I have that link bookmarked and use it often: I suggest you do the same.

      It's good that you're wrapping your code and data in <code>...</code> tags. It's less good that you're wrapping everything in these tags. If it's not code or data, paragraph tags (<p>...</p>) are usually more appropriate. Take a look at Writeup Formatting Tips.

      -- Ken

      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 .............. ............... ....................

        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; }

        See perlrun for a description of this option.

        -- Ken

        </code> THIS TIME ITS PERFECT THANKS A LOT </code>

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://995065]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-09-23 15:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (227 votes), past polls