... mais un peu de vertige, de mal de mer et un chti peu de Weltschmerz.
Binjour!
Alors, pour résumer un peu ce que nous avons vu au premier cours de PPE:
- Pour nous familiariser et commencer à balbutier un peu de PERL, nos profs (Serge FLEURY, Jean-Michel DAUBE) nous ont guidés à travers le script d'un petit lecteur de fichiers, aspirant l'information et la régurgitant ligne par ligne. En tous cas, c'est ce que je crois que nous avons fait car bien qu'on dise que PERL est très permissif, sa compréhension, elle, n'est pas du tout naturelle pour l'utilisateur. C'est pourquoi nous sommes nombreux à nous être retrouvés, tel un bébé en période de babillage, à répéter sans bien comprendre ce que nous faisions. Ce n'était pas faute d'explications, mais il faut croire que notre cerveau n'a pas synapse. En tous cas pas plus que pour retenir, de-ci de-là, quelques notions o un ou deux mots clés.
Pour faire bref: voici le résultat de notre session de ce jour-là:
>>#!/usr/bin/perl
>>#à taper sur le terminal: chemin perl nomfichierscript.pl nomfichieratraiter.xml "encodage_genre_utf-8_ou_iso8859-1"
>>$encodage = $ARGV[1]; #$ARGV c'est la memoire de sortie du terminal
>>open my $in, "<:encoding(utf-8)","$ARGV[0]"; #ou open(FIC, "<:encoding(utf-8)", $ARGV[0]);
>>open my $out, "<:encoding(utf-8)","sortie.txt"; #ou open (OUT, ">encoding(utf-8)", "sortie.txt");
>>while (my $ligne = <FIC>) {
>> while ($ligne=~/<(?:title|description)>([^<]+?) <\/(?:title|description)>/g) {
>> print "$1\n\n";
>> }
>> #print $ligne;
>> #print "appuyez sur ENTER\n";
>> #my $reponse = <STDIN>; #lecture du clavier jusqu'au retour à la ligne
>>}