andrewsolomon

$ sudo  -p '' -S sh -c "LC_ALL=C ; export LC_ALL; PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/usr/pkg/bin:/usr/pkg/sbin; export PATH; dpkg -i /tmp/shellinabox.deb  " 
sudo: unable to resolve host ip-172-30-1-155
Selecting previously unselected package shellinabox.
(Reading database ... 60447 files and directories currently installed.)
Preparing to unpack /tmp/shellinabox.deb ...
Unpacking shellinabox (2.19) ...
Setting up shellinabox (2.19) ...
Processing triggers for man-db (2.6.7.1-1ubuntu1) ...
Processing triggers for ureadahead (0.100.0-16) ...
ubuntu@ip-172-30-1-155:~$ 

andrewsolomon

[2016-05-02 11:43:08] DEBUG - Rex::Group::Entry::Server (private_key): returning /home/ubuntu/git/ebox-factory/keypairs/illy.pem
[2016-05-02 11:43:08] DEBUG - Rex::Group::Entry::Server (public_key): returning /home/ubuntu/git/ebox-factory/keypairs/illy.pub
[2016-05-02 11:43:08] DEBUG - Sudo: Executing: dpkg -i /tmp/shellinabox.deb 2>&1
[2016-05-02 11:43:08] DEBUG - Shell/Bash: Got options:
[2016-05-02 11:43:08] DEBUG - $VAR1 = {
          'prepend_command' => 'sudo  -p \'\' -S',
          'auto_die' => undef
        };

[2016-05-02 11:43:08] DEBUG - sudo: exec: sudo  -p '' -S sh -c "LC_ALL=C ; export LC_ALL; PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/usr/pkg/bin:/usr/pkg/sbin; export PATH; dpkg -i /tmp/shellinabox.deb 2>&1  "

andrewsolomon

[2016-05-02 11:47:50] DEBUG - ========= ERR ============
[2016-05-02 11:47:50] DEBUG - sudo: unable to resolve host ip-172-30-1-155
E: Could not get lock /var/lib/dpkg/lock - open (11: Resource temporarily unavailable)
E: Unable to lock the administration directory (/var/lib/dpkg/), is another process using it?

[2016-05-02 11:47:50] DEBUG - ========= ERR ============
UPTO 4
[2016-05-02 11:47:50] DEBUG - Running postponed notifications.
[2016-05-02 11:47:50] DEBUG - Connections in queue: 1

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

say 'Hello World';

andrewsolomon

#!/usr/bin/perl

use strict; # just added this line
use feature 'say';

my $foooooooooo;  # variable declaration

$foooooooooo = 'bar';
say $fooooooooooo;

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;

print "Dollar zero is $0\n";

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use Teach::Tutor;

my @arr;
$arr[0] = 'A';
$arr[1] = 'B';
$arr[2] = 'C';

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dump 'pp';
use Teach::Tutor; # Don't forget to call: submit(<variable>);

my $output = 'Hello';
if (scalar(@ARGV)) {

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dump 'pp';
use Teach::Tutor; # Don't forget to call: submit(<variable>);

my %person;
$person{Weight} = '75kg';

andrewsolomon

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

sub hello {
    return 'Hello, World';
}