Help for this page

Select Code to Download


  1. or download this
      local $_ = join ':', qw/0 0A 0C B B8 F/; # $mac
  my $part = qr/[0-9A-Z]{1,2}/;
  2. or download this
      my @parts = /^($part):($part):($part):($part):($part):($part)$/;
  3. or download this
      my @parts = /
    ^
    (?:
...
    ($part)
    $
  /x;