Question

Please use lab10d.pl introduced in Lab 10 as a template to write a perl script, hw10a.pl, to compute the number of the IP addresses that begin with “24” in the data file created as follow, loginfile4hw10; $ last -i | grep "Mar 27" | head -10 > loginfile4hw10 $ cat loginfile4hw10 cfs264sp pts/7 24.118.93.235 Wed Mar 27 23:34 - 23:42 (00:08) cfs264sp pts/7 24.118.93.235 Wed Mar 27 23:14 - 23:33 (00:19) cfs264sp pts/2 73.242.55.42 Wed Mar 27 22:50 - 01:24 (02:34) cfs264sp pts/0 24.245.4.209 Wed Mar 27 22:20 - 23:58 (01:38) cfs264sp pts/0 73.88.53.3 Wed Mar 27 21:39 - 22:05 (00:26) cfs264sp pts/8 24.131.165.45 Wed Mar 27 21:09 - 23:49 (02:40) cfs264sp pts/7 73.37.185.134 Wed Mar 27 20:59 - 21:55 (00:56) cfs264sp pts/2 71.195.24.153 Wed Mar 27 20:15 - 21:42 (01:27) cfs264sp pts/7 68.46.23.158 Wed Mar 27 19:48 - 20:14 (00:26) cfs264sp pts/7 65.128.58.29 Wed Mar 27 19:18 - 19:39 (00:21)

Answer 1

NOTE: I have completed answer for your question. Please check and let me know if you have any queries. I will get back to you within 24 hours. Thanks for your patience.

Code:

#!/usr/bin/perl

use strict;

use warnings;

# setting the filename to be read

my $fname = 'loginfile4hw10';

# opening the file in read mode

open(FH, $fname) or die "$fname cannot be opened: $!";

# reading each line from file

while (my $line = <FH>){

# removing newline from each line

chomp $line;

# checking if the IP starts with 24

if ($line =~ /.* .* 24\./){

print $line, "\n";

}

}

# closing the file

close(FH);

Code output screenshot:

Answer 2

NOTE: I have completed answer for your question. Please check and let me know if you have any queries. I will get back to you within 24 hours. Thanks for your patience.

Code:

#!/usr/bin/perl

use strict;

use warnings;

# setting the filename to be read

my $fname = 'loginfile4hw10';

# opening the file in read mode

open(FH, $fname) or die "$fname cannot be opened: $!";

# reading each line from file

while (my $line = <FH>){

# removing newline from each line

chomp $line;

# checking if the IP starts with 24

if ($line =~ /.* .* 24\./){

print $line, "\n";

}

}

# closing the file

close(FH);

Code output screenshot: