Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print "Please Check the file - [ " ,abs_path($filename), " ].\n";
    print "NULLs are replaced with corresponding pWWNs.\n";
    print "***********************************************************
+******************************\n";

...
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

C:\Users\pmu\Documents\perl\work>perl hostnames.pl test_list_logins.tx
+t

...
**********************************************************************
+*******************

C:\Users\pmu\Documents\perl\work

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>