Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w

$a = "$$NETOBJ.parameter";
...
$a =~ s/\$\$NETOBJ\.//;

print $a;
  2. or download this
    $a = "$$NETOBJ.parameter";

if ($a =~ s/\$\$NETOBJ\.//) {
...
} else {
    print "Substitution failed.\n";
}
  3. or download this
    $a = '$$NETOBJ.parameter';
(undef, $a) = split(/\./, $a, 2);
print $a;