A few minor comments:

  1. For clarity, why not call this 'macaddr' instead of 'chaddr'? (Same for my $chaddr, etc.) 
       chaddr => 'XX:XX:XX:XX:XX:XX', # MAC Address of sending interface

    [download]
  2. sleep 5; # wait for 5..., etc. is obvious. How about: 
       sleep 5;  # allow capture process to establish
   sleep 10; # allow capture

    [download]
  3. In this sequence, you don't need two arrays, and you can simplify a couple things: 
       #my @macaddr = split(/:/, $chaddr);
   my @chaddr = split(/:/, $chaddr);

   #push(@macaddr, 0) for (1..10);
   push(@chaddr,(0)x10);

   #my @chaddr = map { hex($_) } @macaddr; 
   @chaddr = map { hex } @chaddr;

   # or combined, using the clearer(?) @macaddr:
   @macaddr = map { hex } (split/:/,'10:FF:2B:40:8C:FE'), (0)x10;

    [download]
  4. You are modifying $i throughout this loop! In fact, you have a comment (# i = 0) that is certainly untrue the first pass, and may never be true. 
        for (my $i = 0; $i <= $#options; $i++) {
        my $option = hex($options[$i++]);
        last if ($option == 255); # end of DHCP Options
        my $length = $options[$i++]; # i = 0
        my $offset = hex($length) + $i;
        for (my $k = $i; $k <= ($offset - 1); $k++ ) {
            push(@{$opts{$option}}, $options[$k]);
        }
         $i = $offset - 1;
     }

    [download]
  5. A thought on printing: 
         for my $key (keys %opts) {
         print $key, " ", dhcp_option($key),"\t";
         if (ref($opts{$key}) =~ m/ARRAY/) {
             print $_, " " foreach (@{$opts{$key}});
         }
         # NOTE: elsif can just be else, as a string
         # necessarily does or does not match /ARRAY/
         elsif (ref($opts{$key}) !~ /ARRAY/) {
             print $opts{$key};
         }
         print "\n";
     }

     # OR (untested):
 
     for my $key (keys %opts) {
         print "$key ", dhcp_option($key), "\t",
               ( ref($opts{$key}) =~ /ARRAY/  
                    ? join" ", @{$opts{$key}} 
                    : $opts{$key}
               )
               "\n";
     }

    [download]

In reply to Re: Advice on script by hbm
in thread Advice on script by doylebobs

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.