Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2017-03-30 03:12 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (353 votes). Check out past polls.