Happy New Years

admin — Tue, 05 Jan 2010 21:00:51 +0000

Though a few days late, I wish everyone a happy new years and hope that 2010 is a good year for everyone. I look forward to taking classes again here in about 2 weeks. Perl here I come!

Second Perl Experiment

admin — Fri, 04 Sep 2009 07:39:25 +0000

After a bit of reading online and book reading (Learning Perl 2nd Edition), I came up with this;

#!/usr/bin/perl
# Revision 1 - 09-03-09 1530
# Countr Code list, stdin, perl
# SRC for codes: http://www.kropla.com/dialcode.htm

use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1; #reset colors after each line

print GREEN "Please enter the country code you are trying to look up.\n";
$cc = ;
chomp $cc;
if ($cc eq "1") {
print GREEN "United States of America or Canada.\n";
}
elsif ($cc eq "93") {
print RED "Afghanistan.\n"; }
elsif ($cc eq "355") {
print RED "Albania.\n"; }
elsif ($cc eq "213") {
print RED "Algeria.\n"; }
elsif ($cc eq "1684") {
print RED "American Samoa.\n"; }
elsif ($cc eq "376") {
print RED "Andorra.\n"; }
elsif ($cc eq "244") {
print RED "Angola.\n"; }
elsif ($cc eq "1268") {
print RED "Antigua.\n"; }
elsif ($cc eq "54") {
print RED "Argentina.\n"; }
elsif ($cc eq "374") {
print RED "Armenia.\n"; }
elsif ($cc eq "297") {
print RED "Aruba.\n"; }
elsif ($cc eq "247") {
print RED "Ascension.\n"; }
elsif ($cc eq "61") {
print RED "Australia.\n"; }
elsif ($cc eq "672") {
print RED "Australian Extrernal Territories.\n"; }
elsif ($cc eq "43") {
print RED "Austra.\n"; }
elsif ($cc eq "994") {
print RED "Azerbaijan.\n"; }
elsif ($cc eq "1242") {
print RED "Bahamas.\n"; }
elsif ($cc eq "973") {
print RED "Bahrain.\n"; }
elsif ($cc eq "880") {
print RED "Bangladesh.\n"; }
elsif ($cc eq "1246") {
print RED "Barbados.\n"; }
elsif ($cc eq "1268") {
print RED "Barbuda.\n"; }
elsif ($cc eq "375") {
print RED "Belarus.\n"; }
elsif ($cc eq "32") {
print RED "Belgium.\n"; }
elsif ($cc eq "501") {
print RED "Belize.\n"; }

Some of you may find this to be pretty elementary, but lets see what I can come up with in the next day or two. Essentially all this does is looks for a country that matches the code you put in. It does not include all countries, but I think I got the idea of elsif in perl.

Experimenting with Perl

admin — Thu, 03 Sep 2009 07:52:47 +0000

Well, this is my first actual experiment with Perl. All it does is chmod 750 some fetch utilities. In my next build I want to set it up so that if the file exists, and if it doesnt, it will prompt you that the file is not on the system and it is being skipped.

#!/usr/bin/perl
# Revision 1 - 09-03-09
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, telnet, curl
 
print ("Permissions?\n");
system ('chmod 750 -v /usr/bin/rcp');
system ('chmod 750 -v /usr/bin/wget');
system ('chmod 750 -v /usr/bin/lynx');
system ('chmod 750 -v /usr/bin/links');
system ('chmod 750 -v /usr/bin/elinks');
system ('chmod 750 -v /usr/bin/scp');
system ('chmod 750 -v /usr/bin/nc');
system ('chmod 750 -v /usr/bin/ftp');
system ('chmod 750 -v /usr/bin/telnet');

Lets see how this turns out over the next few days.

Update before I go to bed:

#!/usr/bin/perl
# Revision 1 - 09-03-09 0055
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, ssh, telnet, curl
#
# Revision 2 - 09-03-09 0113
# If else statements are in place, they can handle if the file does or does not exist
 
print ("Permissions lol...\n");
$filename = '/usr/bin/wget';
if (-e $filename) {
print "Found $filename\n";
system ("chmod 750 -v '/usr/bin/wget'");
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/curl';
if (-e $filename) {
print "Found $filename\n";
system ("chmod 750 -v '/usr/bin/curl'");
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/rcp';
if (-e $filename) {
print "Founds $filename\n";
system ('chmod 750 -v /usr/bin/rcp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/lynx';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/lynx');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/elinks';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/elinks');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/scp';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/scp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/nc';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/nc');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/ftp';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/ftp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/telnet';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/telnet');
}
else
{ print "File $filename, not found\n";

}
print “Permissions set to 750 across the board.\n”

And now the last revision of the night, colors.

#!/usr/bin/perl
# Revision 1 - 09-03-09 0055
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, ssh, telnet, curl
#
# Revision 2 - 09-03-09 0113
# If else statements are in place, they can handle if the file does or does not exist
#
# Revision 3 - 09-03-09 0124
# Colors?
 
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1; #reset colors after each line, otherwise everything will be green and red
 
print ("Permissions lol...\n");
$filename = '/usr/bin/wget';
if (-e $filename) {
print GREEN "Found $filename\n";
system ("chmod 750 -v '/usr/bin/wget'");
}
else
{
print RED "File $filename, not found\n";
}
$filename = '/usr/bin/curl';
if (-e $filename) {
print GREEN "Found $filename\n";
system ("chmod 750 -v '/usr/bin/curl'");
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/rcp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/rcp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/lynx';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/lynx');
}
else
{
print RED "File $filename, not found\n";
}
$filename = '/usr/bin/elinks';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/elinks');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/scp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/scp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/nc';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/nc');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/ftp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/ftp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/telnet';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/telnet');
}
else
{ print RED "File $filename, not found\n";
}
print "Permissions set to 750 across the board.\n"

Additional reading:
http://perl.about.com/od/programmingperl/qt/perlexists.htm
http://perl.active-venture.com/lib/Term/ANSIColor.html
http://www.linuxforums.org/forum/linux-programming-scripting/116383-how-can-i-use-wget-perl.html

Salomon Johns » perl

Happy New Years

Second Perl Experiment

Experimenting with Perl