LunaBorowska

glitchmr@strawberry ~/perl-1.0_16> make depend
./makedepend
make[1]: Entering directory `/home/glitchmr/perl-1.0_16'
echo arg.c array.c cmd.c dump.c form.c hash.c  search.c stab.c str.c util.c version.c | tr ' ' '\012' >.clist
make[1]: Leaving directory `/home/glitchmr/perl-1.0_16'
Finding dependencies for arg.o.
Finding dependencies for array.o.
Finding dependencies for cmd.o.
Finding dependencies for dump.o.
Finding dependencies for form.o.

LunaBorowska

[root@minefield ~]# yum install perl
Resolving Dependencies
--> Running transaction check
---> Package perl.i686 4:5.14.2-212.fc17 will be installed
--> Processing Dependency: perl-libs = 4:5.14.2-212.fc17 for package: 4:perl-5.14.2-212.fc17.i686
--> Processing Dependency: perl(threads::shared) >= 1.21 for package: 4:perl-5.14.2-212.fc17.i686
--> Processing Dependency: perl(Socket) >= 1.3 for package: 4:perl-5.14.2-212.fc17.i686
--> Processing Dependency: perl(Scalar::Util) >= 1.10 for package: 4:perl-5.14.2-212.fc17.i686
--> Processing Dependency: perl(File::Spec) >= 0.8 for package: 4:perl-5.14.2-212.fc17.i686
--> Processing Dependency: perl-macros for package: 4:perl-5.14.2-212.fc17.i686

LunaBorowska

[root@minefield evalbot]# time perl -MIPC::Run=run,timeout -E'my ($out, $err); run ["su", "-c", "lang/perl", "sandbox"], \"print 42", \$out, \$err; say $out'
42

real    0m0.308s
user    0m0.068s
sys     0m0.179s
[root@minefield evalbot]# time perl -MIPC::Run=run,timeout -E'my ($out, $err); run ["su", "-c", "lang/perl", "sandbox"], \"print 42", \$out, \$err, timeout 50; say $out'
42

real    0m51.350s

LunaBorowska

[root@minefield rakudo]# perl Configure.pl --gen-nqp --gen-parrot --prefix=/root/rakudo/
HEAD is now at e401db5... Re-enable re-use of strings on the string heap; it makes a fairly notable difference to the output size of CORE.setting compilation, and a small but certainly worthwhile difference to CORE.setting compilation time. Causes no issues here; hopefully not for anyone else now either.
/root/rakudo//bin/parrot is Parrot RELEASE_4_4_0.
Building NQP ...
/usr/bin/perl Configure.pl --with-parrot=/root/rakudo//bin/parrot --make-install
Verifying installation ...
Using /root/rakudo//bin/parrot (version RELEASE_4_4_0).
* configure package dyncall
guess operating system linux
guess arch x86

LunaBorowska

davgesger

LunaBorowska

print "Hello, world!";

LunaBorowska

glitchmr@strawberry ~/g/level08-code> ./password_db_launcher 123456789012 127.0.0.1:3000
Split length 12 password into 4 chunks of size about 3: ['123', '456', '789', '012']
Checking whether 127.0.0.1:5380 is reachable
Checking whether 127.0.0.1:5381 is reachable
Checking whether 127.0.0.1:5382 is reachable
Checking whether 127.0.0.1:5383 is reachable
Launched ['./chunk_server', '127.0.0.1:5380', '123'] (pid 22259)
Launched ['./chunk_server', '127.0.0.1:5381', '456'] (pid 22260)
Launched ['./chunk_server', '127.0.0.1:5382', '789'] (pid 22261)
Launched ['./chunk_server', '127.0.0.1:5383', '012'] (pid 22262)

LunaBorowska

glitchmr@strawberry ~/g/level08-code> ./password_db_launcher 123456789012 localhost:1234
Split length 12 password into 4 chunks of size about 3: ['123', '456', '789', '012']
Checking whether 127.0.0.1:3816 is reachable
Checking whether 127.0.0.1:3817 is reachable
Checking whether 127.0.0.1:3818 is reachable
Checking whether 127.0.0.1:3819 is reachable
Launched ['./chunk_server', '127.0.0.1:3816', '123'] (pid 5771)
Launched ['./chunk_server', '127.0.0.1:3817', '456'] (pid 5772)
Launched ['./chunk_server', '127.0.0.1:3818', '789'] (pid 5773)
Launched ['./chunk_server', '127.0.0.1:3819', '012'] (pid 5774)

LunaBorowska

irb(main):001:0> class Fixnum
irb(main):002:1>   def + other
irb(main):003:2>     self - other
irb(main):004:2>   end
irb(main):005:1> end
=> nil
irb(main):006:0> 
irb(main):005:0* 
irb(main):004:0* 
irb(main):003:0* 

LunaBorowska

#include <stdio.h>

/* What is a, b?
   Is C dynamic language? */
int main(a, b)
/* Well... yes... */
int a; char *b[];
/* Yes, I'm serious! */
{
    puts("Hello, world!");