ping from a route domain

Used when troubleshootign wioth telnet in a vrd environemnt (as per SOL10467)

 !/usr/bin/perl

 telnetvrd: Simple perl wrapper when trying to troubleshoot using telnet and Virtual Route

 Domains, (See VRD, SOL10467)

 Use as you would with ping, e.g. telnet 192.168.99.1%1902 8080

 It'll save going through the Hex conversion.

 There are plenty of ways to improve it but its simple enough for my needs.

 Easily converted to bash shell if required.

 Note: If BigIP is running code pre 10.1.0, the baseStr value should be changed to:

 "2610:0000:0C10:F501:0000:";

$baseStr="2620:0000:0C10:F501:0000:";

$vrd = ""; $hexvrd = ""; $ip = ""; $port = ""; $arg = "";

($ip, $vrd) = split(/%/, $ARGV[0]); $port = $ARGV[1];

$hexvrd = sprintf("%04x", $vrd); $arg = $baseStr.$hexvrd.":".$ip." ".$port;

`telnet $arg`;