Question

Write a perl script to accomplish following tasks:

1. Prompt user to enter their name and age, and then calculate and display their age in days.

2. Initialize a 20-element array of numbers and print each element.

3. Get a system host name.

4. Get a web page and save it to a file.

5. List background services (daemons) on your system.

Answer 1

Hi,

please find the scripts and output below.

kindly upvote

1>

#!/usr/bin/perl
use strict;
use warnings;

#TASK: Ask the user for her name and age
#and calculate her age in days
#get a string from the keyboard
print "Please enter your sweet name\n";
my $name = <STDIN>;
#getting rid of the new line character
#try leaving this line out
chomp($name);
#prompt the user for his/her age
#get a number from the keyboard
print "$How old are you?\n";
my $age = <>;
chomp($age);
#calculate age in days
my $age_in_days = $age*365;
print "You are $age_in_days days old in days\n";

2>

#!/usr/bin/perl
use strict;
use warnings;
my @Chandanaarray;
#initialize a 20-element integer aarray with numbers 0,...19
for(my $i=0;$i<20;$i++){
   $Chandanaarray[$i] = $i;
}

#print elements one-by-one using foreach
foreach my $eachkey (@Chandanaarray){
   print "$eachkey\n";
}

3>

use Net::Domain qw(hostname hostfqdn hostdomain);

my $host = hostname();
print "The host name is $host \n";

4>

use strict;
use warnings;
use 5.010;

use HTTP::Tiny;
use Data::Dumper qw(Dumper);

my $myDemoWebsite = 'https://www.ndtv.com//';

my $response = HTTP::Tiny->new->get($myDemoWebsite);
if ($response->{success}) {
while (my ($name, $v) = each %{$response->{headers}}) {
for my $value (ref $v eq 'ARRAY' ? @$v : $v) {
say "$name: $value";
}
}
if (length $response->{content}) {
say 'Length: ', length $response->{content};
       delete $response->{content};
}
   print "\n";
  
   print Dumper $response;
   open(my $fh, '>', 'report.txt');
   print $fh $response;
   close $fh;
   print "File Saved\n";
} else {
say "Failed: $response->{status} $response->{reasons}";
}

5>

#!/usr/bin/perl -w

use Win32::Service;

$host = '';
$status = Win32::Service::GetServices($host, \%services);

if ($status) {
LetsCServices( \%services );
} else {
print_error();
}

sub LetsCServices {
my($hash_ref) = $_[0];
@keys = keys( %$hash_ref );
@sorted = sort( @keys );
foreach $key (@sorted) {
print "$key $$hash_ref{$key}\n";
}
}

sub print_error {
print Win32::FormatMessage( Win32::GetLastError() );
}
please install win32 :: Service installed to get output in your system.

you may get warning to install the same.

Thanks,

Kindly upvote.

Chandana