OK, ceux qui savent faire, font, et les autres... bloggent (bloguent?).
Je cherche a faire la liste des blogs, twitter etc. de tous les Mongueurs pour faire un ou plusieurs fils permettant de suivre l'activite de la "Planete Mongueurs", comme dans
cet exemple. Ceci pour ameliorer la communication des Mongueurs de Perl en rendant visible ce que publient les Mongueurs et en incitant ls Mongueurs a publier plus.
Mais en fait (evidemment) je me pose des problemes et je me prends la tete. Je trouve toujours des problemes ou il ne devrait pas y en avoir. En gros je me pose trois questions:
1. Qui sont les Mongueurs?
Plus largement qui sont les membres de la communaute Perl francophone?
2. Ou sont-ils?
Quels sont les types de sites ou ils produisent du contenu?
3. Qu'est-ce qu'on en fait?
Une fois qu'on a les sites des Mongueurs et apparentes (une liste deja interessante en soi, a mettre quelque part et a tenir a jour):
a. Quelles sites sont exploitables automatiquement? En gros lesquels ont des fils de type RSS?
b. Quelles sources de contenu souhaite-t-on utiliser? On veut sans doute eviter d'agreger des sites qui n'auront jamais aucun rapport avec Perl, mais la frontiere est floue, surtout dans le cas de microblogs. Elle est egalement floue parce que la communaute des Mongueurs n'est pas que technique, elle est egalement sociale. On peut avoir plusieurs fils, plus ou moins perso, plus ou moins micro (et aussi plus ou moins franco (phones)).
Apres il y a la question de comment collecter et stocker ces informations. Ca serait utile que ces informations puissent etre mises a jour collectivement.
J'ai commence a faire une
table mettant en correspondance Mongueurs et differents types de site, mais je commence a penser qu'une structure un peu plus flexible serait mieux, genre ce simili* YAML:
Machin Truc:
site: http://geocities.com/machin norss
blog: http://blog.com/machinmachin
twitter: truclife perso note2 note3
useperl: machin
github:
perlmonks:
cpan:
Sebastien Aperghis-Tramoni:
site:
blog:
twitter:
useperl:
github:
perlmonks: Maddingue
cpan: saper
Alexis Sukrieh: !!pairs
site: http://www.sukria.net/
blog: http://www.sukria.net/fr/
blog: http://www.sukria.net/en/
twitter:
useperl:
github:
Kai Carver:
blog: http://juamdp.blogspot.com/ tags=perl,dev
twitter: kaicarver perso dontaggregate
On pourra ajouter des notes standardisees pour gerer les points 3, genre
norss si ya pas de rss,
perso si ca a rien a voir avec Perl,
dontaggregate si on veut pas que ce contenu apparaisse dans nos fils,
tags=perl,dev si on ne veut agreger que les posts tagues perl ou dev,
lang=fr pour specifier la langue, etc.
*simili YAML parce que, c'est peut-etre bete, mais je prefere ecrire
blog: http://www.sukria.net/fr/
blog: http://www.sukria.net/en/
que
blog:
- http://www.sukria.net/fr/
- http://www.sukria.net/en/
Voila du code pour gerer ce pseudo YAML:
# Try out a pseudo YAML file format and make sure it does what I want
use 5.010;
use strict;
use warnings;
use YAML;
use Data::Dumper;
use LWP::Simple;
# I find this pseudo YAML easier to use in this case
my $pseudo_yaml =<<END;
Sebastien Aperghis-Tramoni:
site:
blog:
twitter:
useperl:
github:
perlmonks: Maddingue
cpan: saper
Alexis Sukrieh: !!pairs
site: http://www.sukria.net/
blog: http://www.sukria.net/fr/
blog: http://www.sukria.net/en/
twitter:
useperl:
github:
Kai Carver:
blog: http://juamdp.blogspot.com/ tags=perl,dev
twitter: kaicarver perso dontaggregate
END
# Get the data in text format from the shared Google Document
# this URL requires authentication 'http://docs.google.com/feeds/download/documents/Export?docID=ah69gtdhbpc5_38f4db5hhf&exportFormat=txt'
#$pseudo_yaml = get('http://docs.google.com/View?id=ah69gtdhbpc5_38f4db5hhf');
# Turn into proper YAML and load
# Actually it's a conversion from a !!map with duplicates to !!pairs
print $pseudo_yaml;
my $yaml = $pseudo_yaml;
$yaml =~ s/\n /\n - /gsm;
my $struct = Load($yaml);
say Dumper $struct;
say Dump $struct;
exit;
# Turn into an easier to use structure
my %all;
my %keys;
for my $name (sort keys %$struct) {
my $list = $struct->{$name};
for my $item (@$list) {
my ($key, $val) = (%$item);
$val //= '';
$keys{$key}++;
push @{$all{$name}{$key}}, $val;
}
}
# Print back out sorted and normalized
for my $name (sort keys %all) {
say $name, ":";
for my $key (sort keys %keys) {
if (defined $all{$name}{$key}) {
for my $val (@{$all{$name}{$key}}) {
say " $key: $val";
}
} else {
say " $key: ";
}
}
}
(Couleurs via perl -pe 's/\t/" "x8/ge' testyaml.pl | perltidy -html -nss -pre -i=2)Ya plus qu'a remplir ce simili YAML avec les donnees dont je dispose, puis demander a la communaute de rajouter ce qui manque en mettant ces donnees sur un fichier partage
genre Google Docs accessible au format texte.
UPDATE: Google
m'énerve, je me demande si Etherpad ne serait pas mieux et plus simple pour ce qu'on veut:
...
donnees diverses a integrer:
http://use.perl.org/~BooK/journal/
arhuman briac darobin echo Frog grinder Jean+Forget mirod rafael Sniper
pmichaud?
http://perlmonks.org/?node=mongueurs
Paris.pm
* grinder - David Landgren
* echo - Eric Cholet
* stefp - Stéphane Payrard
* OeufMayo - Briac Pilpré
* tortue - Kai Carver
* sniper - David Rigaudière
* pop - Yann Kerhervé
* darobin - Robin Berjon
* zejames - Julien Bordet
* cpc - Nicolas Lidzborski
* bwana147 - Cédric Bouvier (loin de Paris)
* Genius - Nicolas Crovatti
* happy - Fabien Penso
* nehlwyn - David "D@vid" Elbez
* iza - Isabelle Blanc
* brx - Philippe Bricout
* R4f - Raphaël Rousseau
* glb - Eric Cassagnard
* mirod - Michel Rodriguez
* Blop - Ronan Le Hy
* arhuman
* Gloom - Nicolas Repiquet
* bobione - Antoine Bobin
* webdaemon
* Maddingue - Sébastien Aperghis-Tramoni
* BooK - Philippe Bruhat
* arno - Arnaud Martinez
* Beatnik
* guillaume
Suisse / Autres
Laurent Dami http://zarb.org/~dami/
http://consttype.blogspot.com/
Olivier Mengue http://o.mengue.free.fr/
Alexis Sukrieh
http://www.sukria.net/
http://www.sukria.net/fr/
http://www.sukria.net/en/
Institutionnel:
mongueurs
articles
FPW
OSDC.fr
sur twitter, youtube, ...
http://linuxfr.org/topics/Perl
feed des compte-rendus de Jean?
...
