perl examples

http://accad.osu.edu/~mlewis/Class/Perl/perl.html

perl need to read !!

http://www.nntp.perl.org/group/perl.beginners/2007/02/msg89538.html

perl sample scripts

http://www.koders.com/?s=readdir&la=perl

Script to add multiple ips

#!/bin/bash
clear
a=51
for i in `seq 12 60 ` ;do
a=`expr $a + 1 `
path=/etc/sysconfig/network-scripts/ifcfg-eth0:$a

check=`ifconfig |grep "\<192.168.0.$i\>"`
if [ ! -f /etc/sysconfig/network-scripts/ifcfg-eth0:"$a" ]; then

if [ -z "$check" ]; then

cat >> $path << _eof_
DEVICE=eth0:$a
NETMASK=255.255.255.0
BOOTPROTO=static
IPADDR=192.168.253.$i
ONBOOT=yes
_eof_

echo -e "######## Added the IP aliases 192.168.0.$i ##############"
ifup eth0:$a
else
echo -e "The Ip address already exist"
fi
else
echo -e "The ip aliases $cf exist"
fi

done

RHCE link

http://elibrary.fultus.com/technical/index.jsp?topic=/com.fultus.redhat.elinux5/manuals/Deployment_Guide/ch55.html --

this script will test the server name of each system

this script will test the server name of each system

#!/usr/bin/perl

use Net::Telnet ;

open ( IN,"/tmp/IDC_IPs") or die "cannot open file " ;

while ( $ip=<IN>) {

$t = new Net::Telnet ( Timeout=>3, Errmode=>'return', port =>'25' );

$t->open("$ip");

$output1 = $t->getline ;

$t->print("ehlo data");

($output2) = $t->getline ;

chomp($output2);

chomp($ip);

print "$ip $output2\n" ;

}

close IN ;

learning perl

http://fox.dgsca.unam.mx/~bety/.ciencias/libros/Learning_Perl_3rd_Edition.pdf

learning perl

http://www.sitepoint.com/print/uploading-files-cgi-perl/ --

Learning perl

http://perl.ericdlarson.com/session6.2/sld010.htm

perl scripting !!!

http://www.cs.cf.ac.uk/Dave/PERL/node1.html