Some new variables have been added to make generating site using cron easier. Now it is updated every hour. We don’t have to worry about doing it by ourselves!

Now it generates sites for every single module – where we can (among others) read the README file.

It made generating process lasts longer… but not so much (up to 5 minutes)!

real	4m36.213s
user	2m50.219s
sys	0m2.156s

In the future I want to connect this project with ecosystem, as it’s with current modules.perl6.org. Probably we’ll add prasing Markdown (using Text::Markdown) and POD (as afiskon suggested – thank you!).

About parsing POD

I thought that we can add a simple file browser where user can see what every file contains and the content will be parsed using Pod::To:HTML. Is it a good idea? Unfortunately it’ll be very slow…

About BreakDancer (not BreakBailador as I wrote here)

Tadzik and me started BreakDancer. There are some tests, you can look at it to find out how it works for now.

We thought it should work like this:

1
2
3

use BreakDancer;
 
gen "/module/", %modules, { template 'module.tt' => ($^a, $^b) };

The first argument contains a path where BreakDancer should generate HTML documents.
The second argument (%modules) contains a hash, like this one:

1
2
3
4

{
"Module::Name" => ($a, $b),
"Another::Module" => ($a1, $b1)
}

and so on…

The third argument contains a code. What it returns will be written to HTML documents.

Calling &gen, it should create directories named as keys of %modules and a index.htm inside them with what the third argument of &gen returned. It’ll also pass values of %modules as arguments of the third &gen’s argument. The &template subroutine will probably use Template::Mojo and it’ll return the final HTML code to write to index.htm. Of course we’ll be able not to use Template::Mojo, in this case, simply, we shouldn’t use &template.

Hope you’ll enjoy this! Write what you think about it.

Feel free to contribute BreakDancer and modules.perl6.org.

Waiting for comments!

• feather.perl6.nl – Juerd, mortiz
• perl6 organization on github (access etc.) – TimToady, pmichaud, jnthn, sorear, moritz
• modules (help, tips), panda – tadzik 
• modules.perl6.org - tadzik
• POD – tadzik
• head rakudo’s developers – pmichaud (project leader), jnthn, moritz
• head niecza’s developer – sorear
• YAPSI – masak
• macros – masak
• p6doc - moritz
• official Perl 6 documentation, Perl  6 specification - TimToady
• p6eval – moritz, sorear
• planetsix.perl.org – [Coke]
• perl6.org - moritz
• nqp - pmichaud, jnthn

I hope this list should be much longer.

Tadzik and me were thinking a lot about modules.perl6.org. Initially we wrote the generating script in Perl 6 (using Template::Mojo as template engine insead of HTML::Template), then added a feature that checks if modules pass tests.  Now this script generates a site which shows if a single module was updated for last 3 moths, has README file, has tests and even if passes tests.

We have full backward compatibility with the current modules.perl6.org but everything is written in Perl 6.

It uses tadzik‘s emmentaler to test modules which produces results.json file with report in JSON.

Our build-script creates also a proto.json file as a list of all modules (with all useful information).

I’m happy with our current result, we made everything in Perl 6, it produces ready to use website and … it’s not as slow as we predicted.

Generating the whole site (without testing modules with emmentaler) takes only (almost) 2 minutes:

$ time( perl6 mkjson.p6; perl6 build.p6 )

real	1m54.360s
user	1m6.484s
sys	0m4.112s

Unfortunately using SSL in Perl 6 is not available yet, so we had to execute commands to download every single module, thus this script downloads new module or updates (git pull) existing one for 2 minutes – it’s  a good result I think.

What about the future?

Here is a little roadmap:

• add generating page for a single module (probably we’ll be able to read README file and some information about a module – by visiting /Module::Name)
• maybe a rating system or a medal for those modules which passes all tests, has README file, are fresh and so on
• tadzik and me want to create an engine for generating static webpages (maybe called BreakBailador) to create pages like modules.perl6.org – what do you think about this?

Feel free to contribute! You can find the repository here.

There is current modules list generated using our script.

We work on adding there new code snippets. I think that it’s a good idea to create an external website with examples browser or something like that.

We’ll see.

There is something to say about codes from All the possible combinations! #1.

The first script has more lines, but it’s not as important as the principle of operation. It goes through combinations printing individual combinations one-by-one.

The second one (written by masak) uses X operator, so we have to wait until it ends crossing elements.

If You need better efficiency You should probably use the first one. I try to shorten it – if You have an idea, please leave comment or contact me.

o/

We should start from opening files.

We can use open() to do this.

1

my $fh = open 'name.txt', :r;

Open() returns a filehandle, it gets argument containing file’s name, and a flag, which tells in which mode this file should be opened.

There are flags like those:
:w – opens file in write mode
:r – read mode
:a – append mode

The next question is how to read from file. There is more than one way (it is wonderful).

We can use slurp.

1
2

my $content = slurp 'name.txt'; # all in a variable
my @content = slurp 'name.txt'; # all in the first element of an array

Another way is to use lines on filehandle( look opening files ) .

1

.say for open('name.txt', :r).lines;

… and we can get a single line:

1
2

my $fh = open 'name.txt', :r;
say $fh.get;

It will print the first line.

We can write to files as well. Use say!

1
2
3

my $fh = open 'name.txt', :w; # open file
$fh.say("line");
$fh.close; # close file

Done.

Oh, to close file use close on opened file handle.

Hope you enjoyed.
More soon.

Simply, I will place code snippets here from different categories. From using variables, subroutines, through junction, file operations up to IO, OO, data structures, modules and much more!

Hope it’ll help with learning and training.

I want to show You a simple program.

What does this program? It’s very simple (as i said ).

It runs through a dictionary and puts all combinations of characters, up to the length specified in variable $limit.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

use v6;
 
my $dict = "abc"; # dictionary - characters shouldn't be repeated
my Str $rstr = "";
my $limit = 3; # maximum length
 
loop {
	my $s = rstr( $dict );
	exit 0 if $s.chars > $limit;
	say $s;
}
 
# SUBROUTINES
sub rstr ( Str $d ) {
	my $fCh = $d.substr(0, 1); # first character of a dictonary
	my $lCh = $d.substr($d.chars -1 , 1); # last character of a dictonary
 
	if $rstr eq fill($rstr.chars, $lCh) {
		$rstr = fill($rstr.chars+1, $fCh);
		return $rstr;
	}
 
	my @tmp = $rstr.split('');
	my $x = @tmp.elems -1;
 
	if $x >= 0 {
		loop {
			my $i = getPos($d, @tmp[$x]);
 
			if $i == getPos($d, $lCh) {
				@tmp[$x] = $fCh;
				$x--;
			} else {
				@tmp[$x] = $d.substr($i+1, 1);
				last;
			}
		}
	} else { # if program has just started
		@tmp = $d.substr(0, 1);
	}
 
	$rstr = @tmp.join();
	return $rstr;
 
}
 
sub fill ( Int $len, Str $char ){
	my Str $str;
	for 0..$len-1 {
		$str ~= $char;
	}
	return $str;
}
 
sub getPos ( Str $d, Str $char ){
	for 0..$d.chars -> $i {
		if $char eq $d.substr($i, 1) {
			return $i;
		}
	}
}

Perl 6 isn’t as fast as we would, but in the sooner future it will be changed!

Have fun with all brute-force stuff!

Greetings to #perl6 channel (on freenode).

PS.

Is there any better solution to this problem? Tell me if so!

This is Masak’s solution:

1
2
3
4

multi combs(@, 0) { "" };
multi combs { combs(@^dict, $^n - 1) X~ @dict };
 
(.say for combs(<c a b>, $_)) for 1..4;

As You can see – Perl 6 is amazing!

Thank You very much Masak!

Second part.