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

[Not_a_Number]

in reply to Script to convert HBA WWNs to lowercase and add ":"[Updated]

IMO, your script would be more useful if it included some input validation. After the line:

chomp ($wwn=<STDIN>);

I would suggest adding:

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

Update: changed allowed input length from 10 (where did I get that number from?) to 16, as per WWN spec.

[perl514]

Hi Not_a_Number,

I have put up an updated version of the script. Its got all the checks that you suggested and some more. :)