Forum Linux.débutant Perl - faire ressortir les définitions d'une liste de mots

Posté par  . Licence CC By‑SA.
3
4
avr.
2022

Bonsoir,
Débutante en perl cette année, nous devons fournir un projet prochainement. J'ai décidé de faire ressortir d'un texte français (si_c'est_un_homme.txt) tous les mots étrangers. Pour se faire, dans un premier script j'ai utilisé des expressions régulières qui testaient l'existence des mots du texte dans un dictionnaire français. Ce premier script m'a permis de sortir une liste ordonnée avec une seule occurence par mot > listemots.txt.

Dans un second script je souhaitais ouvrir cette liste ainsi qu'un second dictionnaire (les-100-mots-de-la-shoah) (…)

Forum Programmation.perl Can't find string terminator "EOF"

Posté par  . Licence CC By‑SA.
Étiquettes :
0
13
mar.
2022

Bonjour à tous,

Je m'exerce au PERL à travers la création d'un petit script pour mon serveur Nagios.
J'ai l'erreur suivante :

    Can't find string terminator "EOF" anywhere before EOF at check_disque.pl line 15.

Mon script est le suivant :

    #!/usr/bin/perl
    #=====================================================================
    # Auteur : Admin
    # Date   : 13/03/2022
    # But    : plugin Nagios pour vérifier l'espace disque utilisé
    #=====================================================================
    # Module à utiliser
    use strict;
    use warnings;
    use Nagios::Plugin;
    use feature qw(switch say);
    use
(…)

Forum Programmation.perl Perl débutant: exercice (temp min et heure)

Posté par  . Licence CC By‑SA.
Étiquettes :
0
26
fév.
2022

Bonjour,

Je débute en Perl.
Pour un exercice de programmation, je dois pouvoir à partir d'une modification d'un script comme celui-ci indiquer en plus du nombre obtenu une heure (soit seconde valeur):

use warnings;
use strict; 
use diagnostics;
 my $file = $ARGV[0]; 
open (FICHIER, "<", $file) or die ("Impossible de lire le fichier $ARGV[0]" );
my $minimum= <FICHIER>;
while (my $ligne =<FICHIER>)
{ 
if
(…)

Forum général.petites-annonces [Emploi] [Suisse] [Genève][Perl] Ingénieur Développement Perl (h/f)

Posté par  . Licence CC By‑SA.
Étiquettes :
10
26
fév.
2021

Bonjour,

Qui sommes-nous ?
SIGMALIS est une société de conseil et d’ingénierie en informatique créée en 2007 et basée à Genève. Nos domaines d’expertise sont le Développement Applicatif, la Business Intelligence et le Data Management.

Le poste que nous vous proposons :
Nous sommes à la recherche d’un Ingénieur Développement Perl (h/f) pour rejoindre notre équipe de consultants et intégrer une équipe de développement au sein de la DSI d'un de nos clients situé dans le canton de Genève.
- (…)

Forum Programmation.perl tentatives de web scrapping sur page avec javascript

Posté par  . Licence CC By‑SA.
Étiquettes :
1
14
fév.
2021

Bonjour,
je suis sous UBUNTU18.04 donc avec un Perl 5.26
je cherche à récupérer le contenu d'un tableau rempli par JavaScript. Les données changent quotidiennement et j'ai besoin d'avoir leur somme en fin de mois.

Pour m’entraîner, j'ai construit la page suivante test_recup_javascript.html et je tente de lire la page finale (post JavaScript).
j'ai essayé :
LWP::UserAgent; (pas de gestion du JavaScript)
WWW::Mechanize (); (pas de gestion du JavaScript)
WWW::Mechanize::Firefox; (mais il manque MozRepl plugin de Firefox qui n'existe plus) (…)

Annonce de Perl 7

Posté par  . Édité par Lawless, Ysabeau, Davy Defaud, theojouedubanjo, ZeroHeure, Bruno Ethvignot, Alcyone et palm123. Modéré par ZeroHeure. Licence CC By‑SA.
Étiquettes :
55
12
juil.
2020
Perl

C’est officiel, Sawyer X a annoncé Perl 7. C’est une révolution pour Perl, clairement. Cependant, Perl 7 ne sera pas une révolution en termes de fonctionnalités mais une étape de modernisation pour activer un grand nombre de fonctionnalités par défaut, qui étaient jusque‑là activables à la demande, ainsi que changer de paradigme de développement, puisqu’on va faire avancer le langage plutôt que de systématiquement privilégier la rétrocompatibilité.

Perl 7Diapo explicative de Sawyer X

Sortie de Perl 5.32.0

51
4
juil.
2020
Perl

Perl est un langage généraliste créé en 1987 par Larry Wall.

« Perl continue de prospérer dans sa quatrième décennie grâce à une communauté d’utilisateurs et de développeurs très dynamique. », dixit perldelta.

Perl est distribué sous une double licence : Artistic Licence et GPL v1+. La plupart des modules du CPAN suivent également ce même traitement.

Perl 5 raptor  « Perl 5 raptor » de kraih, licence CC BY‑SA 4.0

Tout d’abord un petit lien vers la précédente dépêche sur la sortie de Perl 5.30.0 qui explique en particulier le « releasing flow » et des termes spécifiques à la communauté Perl (blead, pumpking, etc.).

Forum général.petites-annonces embauche (developpeur support/maintenance 100% libre)

Posté par  (site Web personnel) . Licence CC By‑SA.
0
9
oct.
2019

Copie de l'annonce : https://www.biblibre.com/fr/blog/biblibre-embauche-un-developpeur-pour-son-pole-support-2/

BibLibre recrute un développeur pour son pôle « support/maintenance »,

BibLibre est une entreprise fondée en 2007, spécialisée dans les logiciels libres à destination des bibliothèques. Notre équipe d’une vingtaine de personnes assure le déploiement, le support et le développement de logiciels leaders sur leur marché de niche (Koha, Bokeh, Coral, Omeka, PlanningBiblio)

Pour chacun des logiciels que nous supportons, nous nous impliquons dans la communauté correspondante en assurant des responsabilités internationales (rôles de Release (…)

Journal TapTempo en une ligne

Posté par  (site Web personnel) . Licence CC By‑SA.
Étiquettes :
45
19
juil.
2019

En lisant une dépêche du moment je découvre en passant le logiciel TapTempo. En lisant la description du comportement, par réflexe je me suis dit "tiens ça doit rentrer dans une ligne un algo de ce genre".

perl -ne 'BEGIN{use Time::HiRes qw/gettimeofday/} push(@t,0+gettimeofday()); shift(@t) if @t>5; printf("%3.0f bpm",60*(@t-1)/($t[-1]-$t[0])) if @t>1'

Bon ça ne marque qu'avec la touche Entrée, pas avec n'importe quelle touche, mais ça affiche bien le BPM en moyennant les 5 dernières valeurs. Et ça (…)