Answer Posted / varun

Perl - Test

1.Write a perl script to display command line arguments
separated by new line
foreach $arg (@ARGV) {
print $arg . "\n";
}
2.Write a perl script to Store and retrieve records in a
plain text file
store
#Copying contents of one file into another file
# If another files exists, then its overwritten if not
exists then created

unless (open(INFILE, "file1.txt")) {
die ("cannot open input file file1\n");
}
unless (open(OUTFILE, ">outfile.txt")) {
die ("cannot open output file outfile\n");
}
$line = <INFILE>;
while ($line ne "") {
print OUTFILE ($line);
$line = <INFILE>;
}

retrieve

if (open(MYFILE, "file1.txt")) {
$line = <MYFILE>;
while ($line ne "") {
print ($line);
$line = <MYFILE>;
}
}

3.Illustrate the passing by reference and passing by value
with separate examples each.
$value = 10;
print " passing by value: $value \n";


$pointer = \$value;
print " Pointer Address is $pointer of value $value \n";
print " passing by reference: $$pointer \n";

4.Show use of typeglob with a example


sub generate_greeting {
my ($greeting) = @_;
sub { print "$greeting world\n";}
}
$rs = generate_greeting("hello");

&$rs();

# Instead of invoking it as &$rs(), give it your own name.
*greet = $rs;
greet(); # Equivalent to calling &$rs(). Prints "hello
world\n"

#Typeglobs are used to create alises of symbols.
# They are easy to use, they can be alised to ordinary
references. See above code

5.Describe the use of bless() in constructors
bless function is same like a fork function,that si it
creats a copy of the instance of the class and returns
the reference of that obj. its mandatory for a constructor
to have a bless function.

package Animal;

sub new{
my $class = shift;
my $self = {};
$self->{NAME} = undef;
bless($self,$class);
return $self;
}

sub eat{
return "Eats animal food\n";
}

6.Show an example of reusable object in Perl with a short script
use person;
use Employee;

my $empl = Employee->new();
$empl->name("Jason Bourn");
$empl->age(25);
$empl->salary(40);
printf "%s is age %d. Salary %d\n", $empl->name,
$empl->age,$empl->salary;

7.Write a small object oriented application to read and
write text files.


8.Write a script to store web page from a given Internet
location.

# Get and print out the headers and body of the CPAN homepage
use HTTP::Lite;
$http = new HTTP::Lite;
$req = $http->request("http://www.cpan.org/")
or die "Unable to get document: $!";
die "Request failed ($req): ".$http->status_message()
if $req ne "200";
@headers = $http->headers_array();
$body = $http->body();
foreach $header (@headers)
{
print OUTFILE("$header$CRLF");
print OUTFILE("$CRLF");
print OUTFILE("$body$CRLF");
}

# POST a query to the dejanews USENET search engine
use HTTP::Lite;
$http = new HTTP::Lite;
%vars = (
"QRY" => "perl",
"ST" => "MS",
"svcclass" => "dncurrent",
"DBS" => "2"
);
$http->prepare_post(\%vars);
$req = $http->request("http://www.deja.com/dnquery.xp")
or die "Unable to get document: $!";
print "req: $req\n";
print $http->body();

9.Illustrate a simple http auth with a working example.

10.Write a script to read and show a XML file with nodes.
#!/usr/bin/perl

# use module
use XML::Simple;

# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("data.xml");

# access XML data
print "$data->{name} is $data->{age} years old and works in
the $data->{department} section\n";

11.Describe use of ^ and $ pattern matching charectors.
beginning of string ^
end of string $


^abc
abc at the beginning of the string
abc$
abc at the end of the string
12.Write a script to print a hash with keys
#!/usr/bin/perl

print "Hash \n\n";

# DEFINE A HASH
%coins = ("Quarter", 25, "Dime", 10, "Nickel", 5);

# PRINT THE HASH
print %coins , "\n"; #See how it prints

13.Write a script to add user entered values to a array
#!/usr/bin/perl
1.$total = 0;
2.
3.@numbers=&getnumbers;
4.foreach $number (@numbers) {
5. $total += $number;
6.}
7.print ("the total is $total\n");
8.
9.sub getnumbers {
10. $line = <STDIN>;
11. $line =~ s/^\s+|\s*\n$//g;
12. @numbers = split(/\s+/, $line);
13.}
14.write a script to make sum of a numeric array elements
@array =(1,2,3,4,5);

$total=0;
foreach $array(@array){
$total+=$array;
}

print $total;
15.Describe and write foreach loop with example.

foreach $arg (@ARGV) {
print $arg . "\n";
}

What is database utility? : abap data dictionary

1015

---

What is a subroutine?

1004

---

What are the different methods of passing data?

1125

---

How many types of buffering? : abap data dictionary

1121

---

If I want to execute a program only in background not in foreground is there any option for this? : abap bdc

953

---

What is the max no of match code id's that can be defined for one match code object? : abap data dictionary

1048

---

In events, start-of-selection is a default event. When we have to use this event explicitly? Why?

992

---

What is retro active accounting

1990

---

What is the difference between bdc_open_group and bdc_open_dataset. : abap bdc

1100

---

Is logo in script 1st stored as tiff format before uploading or in jpeg format?and where is that stored after uploading?

2001

---

How do you save data in bdc tables? : abap bdc

1036

---

What are the differences between primary and secondary indexes?

1137

---

Can we define our own match code id's for sap matchcodes ?

1034

---

What are the different kinds of lock modes?

981

---

How many main windows are allowed in sapscript?

966

---