Happy New Years
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
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 = <STDIN>; chomp $cc; if ($cc eq “1”) { print GREEN “United States of America or Canada.\n”; } elsif…
Experimenting with Perl
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”);…