Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
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 lurking in the Monastery: (16)
As of 2015-07-28 14:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (256 votes), past polls