Create Pool script in PERL

Question

I am looking for "Create Pool" or "CreatePoolWithMembers" script in PERL. Has anybody worked on it?  
&nbsp;  
&nbsp; Thx

joe_pruitt · Answer

I'm sure I can come up with something.  Do you just want the pool creation or do you want to also specify adding members during the creation or possibly adding/removing members post-creation.  Let me know and I'll whip something up for you. 
&nbsp;  
&nbsp; -Joe

jrahm · Answer

There is a perl add pool member script in the codeshare: 
  
 http://devcentral.f5.com/Wiki/default.aspx/iControl/PerlAddPoolMember.html Click here 
  
 I stripped out variables and added this into the main loop to demonstrate adding the pool and the members:

added by jrahm 
   $member =  
   { 
   address =&gt; "10.10.10.10", 
   port =&gt; "80" 
   }; 
  
   push @memberA, $member; 
   push @memberAofA, [@memberA]; 
  
   $soapResponse = $Pool-&gt;create( 
   SOAP::Data-&gt;name(pool_names =&gt; [new_pool]), 
   SOAP::Data-&gt;name(lb_methods =&gt; [LB_METHOD_ROUND_ROBIN]), 
   SOAP::Data-&gt;name(members =&gt; [@memberAofA]) 
   ); 
   &amp;checkResponse($soapResponse);

This returns: 
  
 C:\dev\perl_scripts&gt;perl ltmpool.pl 10.10.20.5 admin admin 
 POOL : new_pool 
    MEMBER : 10.10.10.10:80

jrahm · Answer

oops, sorry Joe, started working on this and didn't refresh before posting.

joe_pruitt · Answer

Here's a script that will either list all the pools and their respective pool members or it will create a new pool with a a list of supplied members. 
&nbsp;  
&nbsp; http://devcentral.f5.com/Wiki/default.aspx/iControl/PerlCreatePool.html 
&nbsp; Click here&nbsp; 
&nbsp;  
&nbsp; Hope this helps... 
&nbsp;  
&nbsp; -Joe

c_harish_12981 · Answer

Thanks Joe, 
&nbsp;  
&nbsp; Help appreciated. One quick feedback. Please modify the "Usage" statement as Port is not required to run this program.  
&nbsp;  
&nbsp; Is it possible to keep UserID &amp; Password encrypted (or just password) in a separate file and it can be passed as an argument during run time. 
&nbsp;  
&nbsp;  &nbsp;

Forum Discussion

Create Pool script in PERL

5 Replies

AppWorld Berlin 2026 – iRules Contest Winning Results

One Quick Step to Make your website AI-Agent/MCP Ready with an iRule

IPv8 Would Fix My Routing Tables. It Will Never Ship.

Recent Discussions

Errors with AS3 3.56.0 with F5 17.5.1.6

f5 r5600 appliance issue with adding trunk to vlan

SSL Forward Proxy, iRules and Client Hello

F5 ASM/AWAF – violations logged but no learning suggestions generated

F5 VELOS Backplane Inter-Tenants Communication

Related Content

Create Pools/Vips with tmsh via MS-Excel script

Bulk-Create Secondary DNS Zones in F5 Distributed Cloud (via API)

APM Optimisation Script

Cross Site Scripting (XSS) Exploit Paths

Create LTM Pool Members

ABOUT DEVCENTRAL

RESOURCES

SUPPORT

PARTNERS