Answer Posted / snehal kashikar

#! /usr/bin/per
use strict;
#- Use Input
#---------------
my $ip_add = "";

#- Script start
#---------------
print"Enter the IP address\n";
$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 Address\n";
}else{
print" Invalid IP Address\n"
}

Which of these is a difference between Perl and C++ ?

966

---

Explain arrays in perl.

882

---

What is a chomp() function in perl?

960

---

How will you create a file in perl?

918

---

Write a program to decode the data in the form using cgi programming

987

---

How many data types are there in perl?

908

---

Explain the meaning of perl one-liner?

1000

---

What is goto statement in perl?

890

---

How to connect to SQL server through Perl?

982

---

Which has highest precedence in between list and terms? Explain?

818

---

What is perl push array function?

890

---

What is the difference between die and exit in perl?

937

---

What happens to objects lost in "unreachable" memory, such as the object returned by Ob->new() in `{ my $ap; $ap = [ Ob->new(), $ap ]; }' ?

928

---

You want to open and read data files with perl. How would you do that?

839

---

Explain the difference between declarations of 'my' and 'local' variable scope in perl?

871

---