AndrewRussellHayes

 printf "System Info for CBM Servers\n\n" >> ~/SystemInformation.txt

printf "\nProduction\n\n" >> ~/SystemInformation.txt
printf "\nOS Release:\n" >> ~/SystemInformation.txt
cat /etc/release >> SystemInformation.txt
printf "\nHostname:\n" >> ~/SystemInformation.txt
hostname >> SystemInformation.txt
printf "\nIP Address:\n" >> ~/SystemInformation.txt
/usr/sbin/ifconfig -a | awk 'BEGIN { count=0; } { if ( $1 ~ /inet/ ) { count++; if( count==2 ) { print $2; } } }' >> SystemInformation.txt
printf "\n\nRAM Info\n" >> ~/SystemInformation.txt

AndrewRussellHayes

rename 's/\.added$//' *.added

AndrewRussellHayes

git tag new old
git tag -d old
git push origin :refs/tags/old
git push --tags

AndrewRussellHayes

my $variable =~ s/ /_/ig;

AndrewRussellHayes

my $variable =~ s/z//ig;

AndrewRussellHayes

modes

/i makes the regex match case insensitive.
/s enables "single-line mode". In this mode, the dot matches newlines.
/m enables "multi-line mode". In this mode, the caret and dollar match before and after newlines in the subject string.
/x enables "free-spacing mode". In this mode, whitespace between regex tokens is ignored, and an unescaped # starts a comment.



Regular expressions

AndrewRussellHayes

$sentence = "the boy is 20";

if($sentence =~ /the/)
{
  print "true";
}

if($sentence =~ /Trhe/)
{
  print "true"; #will return false

AndrewRussellHayes

#!/usr/bin/perl
use strict;
use warnings;

# if the string ends in z regardless of case the below returns true

my $string = '"abcdefz"';
my $string2 = "abcefj";
my $last;

AndrewRussellHayes

#!/usr/bin/perl -w
use strict;
use warnings;

#To view This Program's Documentation execute `perldoc programname.pl`

=head2 utilityName.pl

 AUTHOR: Joe Developer
 CREATION DATE:

AndrewRussellHayes

#!/usr/bin/perl -w
package moduleName;
use strict;
use warnings;

#To view This Module's Documentation execute `perldoc modulename.pl`

=head2 module.pm

 AUTHOR: Joe Developer