This is a very useful Perl code sample, this will filter out any bad words that are entered into the array. 1 2 3 4 5 6 7 8 9 10 11 12 my @forbidden = ("very","bad","words","go","in","this","array"); foreach my $forbidden (@forbidden) { # If a naughty word is typed……
Read MoreAlternatives to the ping and traceroute commands on a Linux system There are many alternatives to the ping and traceroute commands on a Linux system. The mtr command is one of them. This command will trace the route the network packets are taking to the target IP address. bash 06:42:02…
Read MoreA nice script that will check if a host is up or not. #!/usr/bin/perl use warnings; use strict; use Net::Ping; # code source: http://www.perlmonks.org/?node_id=943892 # More: http://stackoverflow.com/questions/3960595/how-can-i-ping-a-host-with-a-perl-one-liner-with-netping #$| = 1; print "Please type a host to check: -:\n"; my $host = <>; #Reading input from STDIN….
Read MoreThe Voyager probe is finally approaching the edge of the heliosphere; the massive sphere that encloses the entire solar system; very soon the lonely probe will finally be entering deep space and it will be truly alone. This probe is travelling at just about 38,000 miles per hour and it…
Read MoreThis Perl script will print some information about your networking set-up on your Linux machine. #!/usr/bin/perl use warnings; $iface = "eth0"; @data = `ifconfig`; $net = $data[1]; $kernel = `uname -r`; printf("\n*————————————-*\n"); printf("The IP of %s is:%s\n", $iface, $net); printf("The kernel version is:…
Read MoreThis code sample shows how we are wrapping a printf() statement onto multiple lines using backslashes. #include "stdio.h" #define hello "Hello World." int main(int argc, char* argv[]) { printf("This is a very long sentence we are handing down\n"\ "Mr smith, do you have anything to say for yourself"\…
Read MoreOpening a folder and listing the contents, and not listing certain files. This is the Perl code I was using on my very old Tripod.com website. opendir(DNAME, "$folder") || die "I cannot open the requested directory $folder \n $!"; @dirfiles2 = readdir (DNAME); @dirfiles2 = sort(@dirfiles2); foreach $x2 (@dirfiles2) {…
Read More