Skip to content

Instantly share code, notes, and snippets.

#Created by tryperl.com
use strict;
use warnings;
print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program
#Created by tryperl.com
use strict;
use warnings;
# you know, you could just use IPC::Open2 instead.
package Hide::System::Call;
use Filter::Util::Call;
#Created by tryperl.com
use strict;
use warnings;
print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program
use strict;
use warnings;
while (<>) {
s/^(?:y-)?(\w+)\@PARTNERS\@foobar\.com/$1\@blah-inc.com/;
print;
}
#http://projecteuler.net/problem=2
#Each new term in the Fibonacci sequence is generated by adding the previous two terms.
#By starting with 1 and 2, the first 10 terms will be:
#1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
#By considering the terms in the Fibonacci sequence whose values do not exceed four million, find the sum of the even-valued terms.
use strict;
#Created by tryperl.com
use strict;
use warnings;
use Data::Dumper;
print Dumper( \%ENV );
my @localDirs = split( ':', $ENV{'PATH'} );
foreach my $dir @localDirs {
#Created by tryperl.com
use strict;
use warnings;
print "It could be a bit fasterrrr";
#Created by tryperl.com
use strict;
use warnings;
use Carp qw(croak);
use Data::Dumper;
my $data = {};
#croak '111'.Dumper $data;
print length keys %$data; # length keys is the number of characters in "0"... you want scalar keys %$...
#Created by tryperl.com
use strict;
use warnings;
print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program
#Created by tryperl.com
use strict;
use warnings;
print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program