stevieb9

stevieb9

perl-5.20.3
==========
Reading '/home/spek/.cpan/Metadata'
  Database was generated on Tue, 23 Aug 2016 17:29:02 GMT
Running install for module 'App::cpanminus'
Checksum for /home/spek/.cpan/sources/authors/id/M/MI/MIYAGAWA/App-cpanminus-1.7042.tar.gz ok
'YAML' not installed, will not store persistent state
Configuring M/MI/MIYAGAWA/App-cpanminus-1.7042.tar.gz with Makefile.PL
Checking if your kit is complete...
Looks good

stevieb9

Using Pidgin to encrypt Skype conversations end-to-end

###Windows (for Linux, click here)

Note: The Skype application must be installed and running, as Pidgin simply 'wraps' around the Skype app

Download/Install Pidgin IM client (default settings, Next, Next etc):

Pidgin Download

stevieb9

$ perl6 htmlify.p6
Initializing ...
Creating html/ subdirectories ...
Reading type graph ...
Not writing type graph images, it seems to be up-to-date
To force writing of type graph images, supply the --typegraph
option at the command line, or delete
file 'html/images/type-graph-Any.svg'
Reading doc/Language ...
Processing Language Pod files ...

stevieb9

- git clone <repo>
- cd <repo>
- git checkout -b new_branch
- *make changes*
- git commit ...
- git push -u origin new_branch
- submit PR
- git checkout master 
- git reset --hard perl6/master (you can now create a new branch for another PR)
- once the PR is merged, you can delete the merged branch (on the accepted PR page in Github, there's a button to do this)

stevieb9

$ perl6 -v

This is Rakudo version 2016.05-35-gef376d1 built on MoarVM version 2016.05-17-g6075599
implementing Perl 6.c.

$ python

Python 3.4.4 (default, May 19 2016, 01:24:12)
[GCC 4.2.1 Compatible FreeBSD Clang 3.4.1 (tags/RELEASE_34/dot1-final 208032)] on freebsd10

stevieb9

use warnings;
use strict;

my %args = @ARGV;

open my $fh, '<', 'in.txt' or die $!;

while (<$fh>){
    chomp;
    my ($id, $country, $mark) = split /,/;

stevieb9

use v6;
use experimental :pack;

my $fn = 'in.txt';

my $fh = open $fn, chomp => False; # I've also tried :bin
for $fh.lines -> $line {
    if $line ~~ /(<[\r\n]>**1..2)/ {
        $0.Str.encode('UTF-8').unpack("H*").say;
    }