Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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 
    +way)
    
  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 +.
    +4567) 
    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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://872188]
Approved by marto
Front-paged by biohisham
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2014-10-26 10:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (153 votes), past polls