Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Perl: Extracting specific text from a .txt file and outputting into a new format

by ragingwhisky (Initiate)
on Nov 18, 2010 at 10:37 UTC ( #872188=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    System : system001-server 
    (System name differs by number only system001..., system002..., system
    +003 e.t.c)
    Description : example_system_server_round
    (Description name varies, capturing the name after "Description" only 
  2. or download this
    while (<IN>) { 
    if (m/Server*Example/ig) { 
    print OUT $_, "\n"; 
    print $_; } 
  3. or download this
    System : system001-server 
    Box : HW a2b 1234Mb 123.4, address is 0012.d345.1234 (abc 0012.d123 +.
    ByteIn : 3385567095904 
    Byteout : 5816943852464 
    Description : example_system_server_example
  4. or download this
    system001-server,HW a2b 1234Mb 123.4, address is 0012.d345.1234 (abc 0
    + +012.d123.4567),3385567095904,5816943852464,example_system_server_ex
    +am +ple
  5. or download this
    log example (from .txt file):
    GigabitEthernet7/2 is up, line protocol is up (connected)
    HW a2b.........

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://872188]
Approved by marto
Front-paged by biohisham
[stevieb]: I am thankful that I fell into Perl years ago in the manner I did. I don't believe there is another language that people care about so much, that they're willing to give everything. Langs come and go, but in Perl, it seems, things remain consistent.
[stevieb]: The people back then (~2000) are the same people now, but with much more experience. I'm appreciative that I fell into the Perl rabbit hole.

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2017-02-25 01:20 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (364 votes). Check out past polls.