nixCraft

kumarat9pm · #1 (**permalink**) 29-10-2009, 03:02 PM

Hi Vivek/nixcraft/jay,

I want to start scripting in perl (as of now only related to linux administration). Please suggest some admin tasks in Linux administration which can be automated by using perl (just i want to know what things can be automated by using this good lang).. And can you guys suggest me some perl forum dealing mostly about linux administration activity(i want a live/dynamic forum like nixcraft)?

please share your exp what we can do with perl in day to day activity's in admin world.

jaysunn · #2 (**permalink**) 29-10-2009, 06:15 PM

Hey kumarat9pm,

That question has come across my mind many times. I have noticed that there is really not that much forums for perl. However I have been using the following for my perl learning.

PerlMonks - The Monastery Gates

This is the most helpful site.

perldoc - perldoc.perl.org

As for using perl in my daily admin activities, I am currently working on a perl / bash shell script to locate php processes on a redhat server that cause the load to exceed 10. Once that load has been breached I am grepping for the process that caused it and attempting to terminate them. This is similar to another script that I have posted. You can see that I am still learning PERL. Most of this script is bash orientated.

Here is what I have so far. Feel free to modify and use. I have been receiving guidance from my senior admin along the way. Thanks "ARUP" hehe

PHP Code:


			
#!/usr/bin/perl 
# Created for killing php processes which are running  #
# for a long time and causing the server load to get   #
# high.                                                #

$lockfile= "/var/log/pkill.lock";
$pklog = "/var/log/pkill.log";
$kpid = "0";

if ( -f $lockfile)
 {
 die;
 }
`touch $lockfile`;

$loadavg=`uptime |cut -d , -f 4|cut -d : -f 2`;

while ( $loadavg > "10" )
  {
        $kpid=`ps -eo pid,pcpu,%mem,time,cmd|grep /usr/local/bin/php |grep -v grep |sort -k4 -r |sed -e 's/^[ \t]*//' |sed -n 1p |cut -d " " -f1`;
        if ($kpid) {
            $pdtl =`ps auxfww |grep -v grep |grep $kpid`;
            open(LOGFL,">>$pklog");
            print LOGFL $pdtl;
            close(LOGFL);
            system("kill -1 $kpid");
            sleep(20);
            $loadavg=`uptime |cut -d , -f 4|cut -d : -f 2`;
                   } else
                   {
            `echo "Load is not for PHP Scripts. No PHP Scripts are running currently" >>$pklog`;
            $loadavg="0";
            next;
                   }
  }
if ( -f $pklog)
 {
$SUBJECT="SERVER LOAD HAS REACHED 10.00 - FEW PHP PROCESSES AUTOMATECALLY KILLED";
$TO="machines\@company.com";
$MESSAGE="/usr/local/bin/messages/kill.txt";
`echo "The Server has been issued a kill to the following processes.  This occured cause the system load has reached a 10.00 set threshold" >> $MESSAGE`;
`echo "  " >> $MESSAGE`;
`echo " KILLED PROCESSES LIST" >> $MESSAGE`;
`echo "   " >> $MESSAGE`;
`cat $pklog >> $MESSAGE`;
`mail -s "$SUBJECT" "$TO" < $MESSAGE`;
 }
unlink $pklog;
unlink $MESSAGE;
unlink $lockfile;

kumarat9pm · #3 (**permalink**) 29-10-2009, 07:55 PM

I will go through them.. and mean time i found some other official/unofficial sites/forums for perl ref. Many of you know them just want to provide a link..

perl.org
perlguru.com
cpan.perl.org

and frankly to say in order to learn that script it will take time for me

lets see how many days/weeks it will take for me to get the basics of Perl.

nixcraft · #4 (**permalink**) 29-10-2009, 11:18 PM

Seriously, get a good book. I recommend Teach Yourself Perl in 21 Days and Perl for sysadmins. Forum is good to get help and hints about specific problem but you will not find any tutorial.

Good luck!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is Fedora good on a server	chinalinix	CentOS / RHEL / Fedora	3	13-08-2009 04:56 PM
How good is New Windows XP Firewall to protect my computer?	toor	Windows Xp/2000/2003 server administration	4	05-08-2009 11:55 PM
which daemon is good to go through	sathiya	Ubuntu / Debian	0	10-05-2008 12:47 PM
is any one good in c program ?	oronno	Shell scripting	0	19-09-2007 01:04 PM
looking for good shell scripting tutorial....	milonix	Shell scripting	4	24-04-2007 06:44 AM

nixCraft

Want a good forume about Perl

Want a good forume about Perl

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads

The Following User Says Thank You to jaysunn For This Useful Post:
kumarat9pm (29-10-2009)