Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd
Upload
76 views

Perl Programming

Perl programming Student name Institution Date: 7/6/2017 Identify modules from… adapters. "Win32::GUI is a Win32-arrange native graphical UI

Uploaded by

Arshad Hussain
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
76 views

Perl Programming

Perl programming Student name Institution Date: 7/6/2017 Identify modules from… adapters. "Win32::GUI is a Win32-arrange native graphical UI

Uploaded by

Arshad Hussain
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 8

Perl programming

Student name

Institution

Date: 7/6/2017
Identify modules from adapters.

"Win32::GUI is a Win32-arrange native graphical UI tool kit forperl. Basically, it's a XS use of
most of the limits found in user32.dll and gdi32.dll, with a challenge oriented perl interface and
an event based trade appear". (Win32::GUI,n.d). Net::SSH::Perl This module gives aperl
interface to the SSH1 and SSH2 Secure shell traditions. The module has worked in support for
both mystery key and private key affirmation, performs customized encryption of all data, and
can read an ebb and flow SSH configuration.Use this module when yourperl application needs to
interface with a SSH-guaranteed host.DBD::mysql "is theperl 5 database Interface driver for the
MySQLdatabase. In a manner of speaking: DBD::mysql is an interface among the
perlprogramming language and the MySQLprogramming Programming interface that goes with
the MySQL relational database managementsystem"( CPAN, 2017).

In your analysis, demonstrate how data center.

$main = Win32::GUI::Window->newnew(-width => 100, -height =>100);

use Win32::GUI();
$main = Win32::GUI::Window->new(
-name => 'Main',
-width => 100,
-height => 100,
);
$main->Add Label(-text => "Scripting with Perl CSS260");
$main->ShowShow ();
Win32Win32::GUI::Dialog();

sub Main_Terminate {
-1;
}
#Using win32::GUI
output
These modules are profitable for keeping up and interfacing with thedatabase; making it
easier to invigorate and take off changes if require. DBI requires adatabase driver module to chat
with thedatabase. The driver module handles most of the bits of knowledge about interfacing
with and talking with thedatabase.

#DATA SOURCE NAME


$dsn = "dbi:mysql:$database:localhost:3306";

#perl DBI CONNECT


$DBIconnect = DBI->connect($dsn, $user, $password);

Describe how you you have identified.?


Installing a newmodule can be as simple astyping perl -MCPAN -e 'install

In the terminal;select the module youwant typecapnm DBD::mysqlcpanm

Net::SSHWin32::GUI if modules does notwant to install you can force it; by typing

cpanm -f install Win32::GUI


Syntax

Executessystem commands to retrievesystem metrics like CPU utilization


# Global variables to gather system data
chomp(my $hostName = `hostname`);
chomp(my $operatingSystem = `uname -s`);
chomp(my $kernelName = `uname -s`);
chomp(my $kernelVersion = `uname -v`);
chomp(my $kernelRelease = `uname -r`);

chomp(my $machineHwName = `uname -m`);


chomp(my $hardwarePlatform = `uname -i`);
chomp(my $processorType = `uname -p`);

# Capture memory statistics


chomp(my $vmMemoryStats = `vmstat`);

# Determine memory utilization


chomp(my $memoryStats = `free`);

# Determine disk utilization


my @diskUtilization = `df -k`;

Reads informationfrom a flat file and then inserts into adatabase


#!/usr/local/bin/perl
open (MYFILE, 'data.txt');
while (<MYFILE>) {
chomp;
print "$_\n";
}
close (MYFILE);

open (MYFILE, 'data.txt');

while (<MYFILE>) {

Inside the loop, then use the

chomp
chomp;

print "$_\n";

Finally close the filehandle tofinish out theprogram.

#OUTPUT

Connects toadatabase and retrieves reporting information


#subroutine

sub Print_DB_Table1 {
my($dbh) = $_[0];

my($dbTable) = $_[1];

my@data;

my$serverName;

my$ipAddress;

my$serverStatus;

my$cpuUtilization = 0;

my$memoryUtilization = 0;
my$diskFree = 0;

# Plan question...

my$sth = $dbh->prepare("SELECT * FROM $dbTable")

or, then beyond words "get ready proclamation: " . $dbh->errstr;

# Execute the question...

$sth->execute( )

or, then beyond words "execute articulation: " . $sth->errstr;

# Print out thetable headers

print("Server Name \t IP \t\t Status \t CPU \t Memory \t Free-Disk\n");

# segments begin at 1.

$sth->bind_col(1, \$serverName);

$sth->bind_col(2, \$ipAddress);

$sth->bind_col(3, \$serverStatus);

$sth->bind_col(4, \$cpuUtilization);

$sth->bind_col(5, \$memoryUtilization);

$sth->bind_col(6, \$diskFree);

# Perused of the records from the giventable and print them out

while (@data = $sth->fetchrow_array( )) {

#print("@data");

print("$serverName \t");

print("$ipAddress \t");
print("$serverStatus \t");

on the off chance that (characterized $cpuUtilization && length $cpuUtilization > 0) {

print("$cpuUtilization \t");

on the off chance that (characterized $memoryUtilization && length $memoryUtilization > 0) {

print("$memoryUtilization \t\t");

on the off chance that (characterized $diskFree && length $diskFree > 0) {

print("$diskFree \t");

print("\n")

on the off chance that ($sth->rows == 0) {

print("No columns intable $dbTable.\n\n");

$sth->finish;

print("\n");
Works Cited

CPAN (2017) DBD-mysql http://search.cpan.org/~michielb/DBD-mysql-


4.041/lib/DBD/mysql.pm

Client-side Scripting Features (2007) http://www.sqa.org.uk/e-


learning/ClientSide01CD/page_22.htm

WIN32(n.d) Win32::GUI http://perl-win32-gui.sourceforge.net/cgi-bin/index.cgi

About tech (2017) how to read a file and write files in Perl
http://perl.about.com/od/perltutorials/a/readwritefiles.htm

You might also like