Sample Usage in PerlRemoving a “tech-c:” Attribute

my $o = RPSL->new($buf);

if (!defined($o)||$o->has_error(RPSL_ERRLVL_ERROR)) {

return $some_error_code;

}

foreach my $a ($person->get(“tech-c”)) {

if ($a->clean_value() eq “SK15964-RIPE”) {

$o->remove($a->offset);

last;

}

}

Previous slide

Next slide

Back to first slide

View graphic version