Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
@wwn = join (":", @wwn);
print "@wwn\n";  
}
  2. or download this
    #!/usr/bin/perl
use warnings;
...
{
    exit;
}
  3. or download this
    [perlpetual@joesatch practice]$ perl wwn_final.pl 
Enter 
...
Enter the wwn with : or q to quit: q
Invalid Length Or Incorrect Format
[perlpetual@joesatch practice]$