Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Perl Script to extract host list from Symmetrix DMX Array.

by pmu (Beadle)
on Apr 18, 2014 at 19:43 UTC ( #1082812=CUFP: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
        print "Please Check the file - [ " ,abs_path($filename), " ].\n";
        print "NULLs are replaced with corresponding pWWNs.\n";
        print "***********************************************************
    +******************************\n";
    
  2. or download this
    
    
    ...
    100000000abcdc4a Fibre server188           switchport_128    110700 Ye
    +s    Yes
    100000000abcd24a Fibre server189           switchport_122    110800 Ye
    +s    Yes
    10000000009ac25f Fibre NULL             NULL              adcde6 No   
    +  Yes
    
  3. or download this
    C:\Users\pmu\Documents\perl\work>perl hostnames.pl test_list_logins.tx
    +t
    
    ...
    **********************************************************************
    +*******************
    
    C:\Users\pmu\Documents\perl\work
    
  4. or download this
    C:\Users\pmu\Documents\perl\work>more hostlist_hostnames.pl_0001901012
    +34.txt
    Host List for Symmetrix ID: 000190101234
    ...
    SOL02
    
    C:\Users\pmu\Documents\perl\work>
    

Log In?
Username:
Password:

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

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

    For retirement, I am banking on:










    Results (74 votes), past polls