This file contains 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
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use feature 'say'; | |
say 'Hello Geekuni Community!'; |
This file contains 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
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
use Data::Rmap ':all'; | |
my $rh_config = { | |
convoluted => [ | |
'configuration', |
This file contains 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
#!/usr/bin/perl | |
use Test::More tests => 2; | |
use strict; | |
use warnings; | |
use Plack::Test; | |
use HTTP::Request::Common; | |
use GuArt::Controller; |
This file contains 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
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Time::HiRes; | |
my @tfs = map { $_ % 2 } (1 .. 10000); | |
# Just warming up the arrays | |
my $z; | |
foreach my $x (@tfs) { |
This file contains 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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use feature 'say'; | |
use Data::Dump 'pp'; | |
# Typeglob example - only works with dynamic (our) variables | |
# see http://perldoc.perl.org/perlmod.html#Symbol-Tables |
This file contains 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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use feature 'say'; | |
use Data::Dumper; | |
my $big_bird = 500; | |
# 1 |
This file contains 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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use feature 'say'; | |
use Data::Dump 'pp'; | |
# http://stackoverflow.com/questions/372370/how-can-i-split-a-string-into-chunks-of-two-characters-each-in-perl |
This file contains 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
ubuntu@ip-172-30-1-155:~/git/ebox-factory$ rex -d shellinabox | |
[2016-05-02 11:18:37] DEBUG - This is Rex version: 1.4.0 | |
[2016-05-02 11:18:37] DEBUG - Command Line Parameters | |
[2016-05-02 11:18:37] DEBUG - d = 1 | |
[2016-05-02 11:18:37] DEBUG - Creating lock-file (Rexfile.lock) | |
[2016-05-02 11:18:37] DEBUG - Loading Rexfile | |
[2016-05-02 11:18:37] DEBUG - Enabling task_chaining_cmdline_args feature | |
[2016-05-02 11:18:37] DEBUG - Activating new template engine. | |
[2016-05-02 11:18:37] DEBUG - Disabling usage of a tty | |
[2016-05-02 11:18:37] DEBUG - Activating autodie. |
This file contains 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
task "shellinabox", group => "ebox", sub { | |
say "UPTO 1"; | |
file "/tmp/shellinabox.deb", | |
source => "deb/shellinabox_2.19_amd64.deb"; | |
say "UPTO 2"; | |
sudo sub { |
This file contains 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
ubuntu@ip-172-30-1-155:~$ sudo apt-get remove shellinabox | |
sudo: unable to resolve host ip-172-30-1-155 | |
Reading package lists... Done | |
Building dependency tree | |
Reading state information... Done | |
The following packages will be REMOVED: | |
shellinabox | |
0 upgraded, 0 newly installed, 1 to remove and 4 not upgraded. | |
After this operation, 552 kB disk space will be freed. | |
Do you want to continue? [Y/n] Y |
OlderNewer