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

Re: Script to convert HBA WWNs to lowercase and add ":"

by Not_a_Number (Parson)
on Dec 18, 2011 at 19:21 UTC ( #944193=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    die "Input must be 16 characters\n"
      unless 16 == length $wwn;
    die "Invalid hex digit '$1'\n"
      if $wwn =~ /([^[:xdigit:]])/;