This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
while (<>) { | |
s/^(?:y-)?(\w+)\@PARTNERS\@foobar\.com/$1\@blah-inc.com/; | |
print; | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
print Dumper( \%ENV ); | |
my @localDirs = split( ':', $ENV{'PATH'} ); | |
foreach my $dir @localDirs { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "It could be a bit fasterrrr"; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 %$... |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 |