CGI Perl

#! /usr/bin/per

use strict;

#- Use Input

#---------------

my $ip_add = "";

#- Script start

#---------------

print"Enter the IP addressn";

$ip_add = <STDIN>;

chomp($ip_add); # Remove the last "n" character

$ip_add=$ip_add."."; # Append . at the end of IP address

#-------Expression to check IP address is valid or not-----#

if($ip_add =~ m/^[0-2]?[0-5]?[0-5]?.){4}$){

print" Valid IP Addressn";

}else{

print" Invalid IP Addressn"

}

Example

-------

use Data::Dumper;

my @dates = ( "02/11/2009" , "20/12/2001" , "21/11/2010" ) ;

@dates = sort { join( '', (split '/', $a)[2,1,0] ) cmp

join( '', (split '/', $b)[2,1,0]) } @dates;

print Dumper @dates;

use the following code.

<code>

use bigint;

my $r = 0x234;

my $t = 0x345;

my $x1 = $r << 32 | $t;

print $x1->as_hex;

</code>

my $i;

my $str="hello";

my @str=split('',$str);

for($i=$#str;$i>=0;$i--)

{

print $str[$i];

}

$r="YASHWANTH";

@n=split (//,$r);

print "@nn";

@t=splice(@n,0,3);

print "@tn";

$r=join("",@t);

print "$rn";

~

~

Package::Module(); This will throw as error,

I think,the question should be as: What is the difference

between,

Package::MyModule qw(); # FIRST

and

Package::MyModule; # SECOND

# FIRST :- This will not import any subroutine from MyModule.

# SECOND :- This will import all the subroutine from the

MyModule.

Rigging is use for if we want to give animation for any

object or character then we apply to character or object

internel bone setting(like our bones).that is called

rigging. when apply rigging, then we can give proper

animation.

compare to other c and java perl is having strong regular

expression concept so data extraction will be easier and

complition will be faster too

If we are trying to add a module or library files in our

program using require or use statement then it will search

that module or library files in the Perl's default search path.

The statement use lib is used to add the directories to

default search path.

So if the module or library file is not located in the

Perl's default search path then it will find the library

files in the path we have given with the use lib $path.

Perl is a language and MOD_PERL is a module of Apache used

to enhance the performance of the application.

my $ref=[1,2,3,4];

print ref $ref;

ref will return the type of reference.

In this case ref will return as 'ARRAY'.

print caller;

Lets assume that the text to match is present in a file

say "data.txt".

Following program will print the line containing same

starting and ending word.

open(FILE,"data.txt") or die "cannot open file : $!";

while(<FILE>) {

if($_ =~ /^(w+)s+.*?1$/) {

print "the line is $_ n";

}

}

#!c:perlbinperl

$Count = 0;

$pt = 2;

while ( $Count < @ARGV[0] )

{

if (isPrimary($pt))

{

print "$ptn";

$Count++;

}

$pt++;

}

sub isPrimary

{

$flag = 1;

for ($i=2; $i<=$_[0]/2; $i++)

{

if ($_[0] % $i == 0)

{

$flag = 0;

}

}

return $flag;

}