can any one help writing this perl script.

[chittiprasad15]

script
* pull /etc/abc file from x1(server name)
+ scp (get/copy) file from x1(servername) to x2(server name)
+ remove non dp* and ws* nodenames from list (ws??X??? and dp??X???
where
X = d(dev), s(system), p(production).
+ remove data from lines other than actual node/lpar name

* generate files <ENV>_dmgrlpar (dmgr LPARs by env)
+ list lpars for JRA env (1.2 (was5) 1.4(was6) only

* generate files <ENV>_lparlist (complete list of LPARs by env)
+ include JRA AND non-JRA lpars

here is the abc file looks like

aix 5.3 ws66d001 10/10/2007
aix 5.3 ws66d002 10/10/2007
aix 5.2 ws88p001 09/18/2006
aix 5.2 ws77s001 09/18/2006
aix 5.2 ws77s002 09/18/2006
aix 5.2 ws88p002 09/18/2006
aix 5.2 dp77p001 07/07/2007
aix 5.2 dp77p002 07/07/2007
aix 5.2 dp77d001 07/07/2007
aix 5.2 dp77d002 07/07/2007
hp-unx 5.5 dp88s001 10/12/2005
hp-unx 5.5 dp88s002 10/12/2005

aix 5.2 ta77d002 07/07/2007

aix 5.2 ss77p001 07/07/2007

from this file these we want to grep the third column with first two charcaters containing dp and ws and 5th character i.e(d,s,p) and generate them into two set of files.

Any suggestons regarding this are welcomed...........

Thanks in advance

 

[PaulTEG]

what have you tried so far ...

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)