Answered You can buy a ready-made answer or pick a professional tutor to order an original one.
Describe and illustrate
Describe and illustrate how Perl can be extended through the use of modules to access vendor databases, graphical user interfaces, network protocols, and other high-level concepts.
Big Data Datacenter was impressed with your previous examples of system commands and is now looking at the project from a more strategic approach. The team is looking at you to show the big picture and explain how everything will work together. The requirement is an analysis on the following:
- Identify modules from CPAN that can support a graphical user interface (GUI), network protocol, and database adapters. In your analysis, demonstrate how these modules will make interacting with the system more human-friendly in support of maintaining servers in the data center.
- Describe how you will practically interact with CPAN to install the modules that you have identified.
- Provide the syntax to create your own custom module that lends itself to being reused. Because the company is focused on managing servers, you might consider a module based on the following examples, but you are free to create your own:
- Executes system commands to retrieve system metrics like CPU utilization
- Reads information from a flat file and then inserts into a database
- Connects to a database and retrieves reporting information
- @
- 165 orders completed
- ANSWER
-
Tutor has posted answer for $20.00. See answer's preview
******** modules **** **** that can ******* a ********* **** ********* ***** ******* ******** and ******** adapters“Win32::GUI ** * ************** native ********* **** ********* ******* *** **** ********* it's ** ** ************** ** **** of the functions found in ********* and ******** with ** object ******** **** interface *** ** *********** ****** ******** ************** ************** **** module ******** * **** ********* to the **** *** **** ****** ***** protocols The ****** *** ******** ******* for both ******** *** ******* *** ************** ******** ********* encryption ** *** **** *** can **** ** ******** *** **************** **** module **** **** Perl *********** needs ** interface **** ** ************* ************** ***** *** ***** Database ********* ****** *** the ***** ******** ** ***** ****** ********** ** ** interface ******* *** **** *********** language *** *** MySQL *********** API **** ***** with *** ***** ********** database ********** ********** **** ******* **** ******** *********** how ***** ******* **** **** *********** **** *** ****** more human-friendly ** ******* ** *********** ******* ** *** **** centerThese modules *** ****** *** *********** *** connecting ** the database; ****** ** ****** ** update *** **** ******* if **** *** ******** * database ****** module ** **** ** *** ******** The ****** ****** ******* *** ** *** ******* ***** ********** to *** ************* **** *** database#DATA ****** NAME$dsn * ****************************************** **** *** ****************** = ******************** ***** ******************* *** you **** *********** interact **** CPAN to ******* *** ******* **** *** **** ******************** * new ****** can ** ** ****** ** ****** perl -MCPAN ** ******** “Spreadsheet::Parse” in *** ********* ** by typing cpanm ** *** terminal; ****** the ****** you **** *** ******* **** cpanm ****************************** system commands ** ******** ****** metrics **** *** utilization#calls all ********************** ************* );CSS260_IP3( *********** ****** *********** ******** { *** "could *** ******* ****** ********** **** = fork); ****** ******* $pid if $pid; #parent ***** *** ***** **** *** ******** ***** with *** ******** # ************ ****** variables ** gather ****** data chomp(my ********* = ************ ******** **************** * ****** ***** chomp(my *********** * `uname ***** ******** ************** * ****** ***** ******** ************** = ****** ******* chomp(my ************** * `uname ***** ******** $hardwarePlatform * ****** -i`); ******** ************** * ****** -p`); * ******* ****** statistics ******** ************** = `vmstat`); * ********* ****** utilization and ********* (ie ***** ******** ************ = ********** # ********* **** *********** ** **************** * `df -k`;Reads information from * **** **** *** **** inserts **** * *********** ********************* { ** ($dbh) = ****** ** ($dbTable) * $_[1]; ** ************ = ****** ** *********** * ****** ** $sql * *** ** $tableEntry * *** *** my $spreadsheet($workbook->worksheets( )) * # The parser **** ****** *** *********** ******* ** * *** ***** *** **** column *** row my ********** ********* = $spreadsheet->col_range( ** ** ********** ********* * $spreadsheet->row_range( ); * Now ** ******* the **** ********** ** by rows **** ** ******* *** ** **** ********** ********* * for ** **** ($firstCol ********* * # Get ****** in *** ******* **** ** ************* * ****************************** ****** # ** there ** ********* ** *** cell then ***** ** ** **************** ********** ($row **** *** { *********** = ***** ** ********** = ************************ ** *********** * $cellValue; *********** * ***** ** ***** ** $lastCol) * *********** = * ** * * *** ** ($row **** ** ** ******* the ***** $sql * "INSERT INTO $dbTable ****** *************** #print("\n **** ******* #$dbh->do($sql); ** **** * $dbh->prepare($sql) ** die "Couldn't ******* ********** " **************** * ******* *** ***** $sth->execute( ) ** *** ********* execute statement: * ****************** *********** * *** } * } } * sub InsertXlsxIntoDbTable(_)Connects to a ******** *** ********* ********* ************************* *************** *** my ****** * $_[0]; my ($dbTable) * $_[1]; ** ****** ** ************ my $ipAddress; ** ************** ** *************** * ** ** $memoryUtilization * 0; ** ********* * ****** * Prepare ***** ** **** * $dbh->prepare("SELECT * **** ********** or die "Couldn't prepare statement: * $dbh->errstr; * ******* *** ***** $sth->execute( ) or *** ********* ******* ********** " ****************** # ***** out *** table ******* ************* **** \t ** **** Status ** *** ** Memory ** **************** # ******* ***** ** 1 ******************* ************** ******************* ************* $sth->bind_col(3 \$serverStatus); ******************* ****************** ******************* \$memoryUtilization); ******************* ************** * **** of *** ******* **** *** ***** table *** print **** *** while ****** * ************************ ** * **************** print("$serverName ***** ***************** ***** ******************** \t"); if (defined *************** && length $cpuUtilization **** 0) { ********************** ***** * ** ******** ****************** ********** ****** ****************** **** ** { ************************* ******* * if ******** ********* && ****** ********* > ** { **************** \t"); * *********** } if ************** ** ** * ********* **** in ***** *************** } $sth->finish; **************
