Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/env perl
#
# $Id: ms-classless-routes-decoder.pl,v 1.2 2017/10/10 05:59:07 raven Exp $
#
use strict;
use warnings;
my $in = $ARGV[0];
my @in = split(/:/, $in);
foreach(@in) { $_ = hex($_); }
my @routes = ();