- or download this
#!/usr/bin/perl
use strict;
...
my $connection = newF5($host, $user, $pass);
print getActivePartition($connection)."\n";
- or download this
package BigIP::F5;
...
}
1;
- or download this
#!/usr/bin/perl
#use strict;
...
my $partition = BigIP::F5->getActivePartition($connection);
print $partition."\n";