Make the program simple, please complete it ASAP. Perl Scripting CSCI 2215 Secti

Question

Make the program simple, please complete it ASAP. Perl Scripting CSCI 2215 Section Name: Date: Extra Credit (100 pts) Instructions: Submit an electronic copy of the assignment to the Dropbox Create a Perl script named extracredit.pl. The script must perform the following: Check that the data file "gettysburg.txt" exists before opening it for read. Exit the script if the file cannot be read. If the file exists,then open the data file and an output file Read through the data file using a while loop or any iteration structure and check for the following: How many characters there are in the file 2) How many words are in the file 3) How many paragraph there is in the file (ifany) Print to the terminal and an output file with the infomation requested above. Close both files

Explanation / Answer

Solution:

Script:

#!/usr/bin/perl

use warnings;
use strict;

#open file gettysburg.txt to read its contents if it exists, otherwise exit from script
open(my $FILE,'<','gettysburg.txt') or die "Could not open file: $!";

#open file outputfile.txt in write mode
open(my $fout, '>', 'outputfile.txt');

#intialize all three variables that holds no of paragraphs, words, characters to zero
my ($paragraphs, $words, $chars) = (0,0,0);

#using while loop count number of characters, words, paragraphs in gettysburg.txt
while (<$FILE>) {
    $paragraphs++;
    $chars += length($_);
    $words += scalar(split(/s+/, $_));
}

#print number of characters, words, paragraphs in gettysburg.txt and print it on terminal

print("characters=$chars words=$words paragraphs=$paragraphs ");

#write number of characters, words, paragraphs in gettysburg.txt in to output file
print $fout "characters=$chars words=$words paragraphs=$paragraphs ";

#close gettysburg.txt and output file.
close $FILE;
close $fout;

I hope this helps if you find any problem. Please comment below. Don't forget to give a thumbs up if you liked it. :)

Related Questions

Navigate

• Browse (All)
• Browse M
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.