Bonjour à toutes et à tous,

J'ai un fichier csv construit ainsi:

"jean","dupont","A1"
"gilbert","martin","A2"

à partir duquel je veux créer le tableau suivant:
A1jdupont
A2gmartin

Donc je voudrais ne récupérer que la première lettre du prénom de la variable $prenom.

J'ai écris le script suivant:

#!/usr/bin/perl -w


open (LISTE, "
while (my $ligne = ) {

   next unless my ($nom, $prenom, $group) = 

        $ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g; 

print "$group$prenom$nom\n";

}

qui me donne le résultat suivant:
A1jeandupont
B2gilbertmartin

Quelqu'un a t-il (…)

Bonjour j'ai encore un hic.
Concernant cette ligne

$pwd = $_[2].$_[0].$_[1];

Use of uninitialized value in concatenation (.) or string at ./monscript.pl line 101

Alors que plus haut j'ai bien spécifié

$prenom = $_[0];


  $nom = $_[1];

  $groupe = $_[2];

Je ne comprends pas!!

Bonjour,

Je souhaite récupérer la liste des groupes d'un utilisateur (je parle bien d'une liste des groupes et pas seulement le groupe principal).

1/ Je ne peux pas faire de open(FD_IN, ' 2/ Ma solution de secours c'est de faire un `id login` et de récupérer la liste, mais j'aimerais un truc un peu plus propre :)

J'ai trouvé un getgrname mais ça ne donne que le groupe principal. Existe-il une fonction dédiée ?

Merci

Bonjour l'utilisation simple de la fonction localtime m'est retournée en anglais :

 perl -e 'use POSIX;  my $now_string = localtime; print "$now_string \n";'


Wed Sep 15 15:06:21 2010 

Par contre si je veux isoler un champ dans le résultat il est en français :

perl -e 'use POSIX; my $time_string= strftime("%a",localtime); print "$time_string \n";'


mer.

Comment faire pour avoir "Wed" à la place de "mer." ?
Merci de votre aide.

Bonjour,

Je débute en PERL et je voudrais lire un fichier qui contient n lignes et m valeurs sur chaque lignes.

Je le fais de la façon suivante:

#! /bin/bash


while IFS=: read CeldaActiva Numcelda Lat Lon binfilt Ds


do

echo -e "CeldaActiva :\t $CeldaActiva\n\

        Numcelda :\t Numcelda\n\

        Lat :\t $Lat\n\

        Lon :\t $Lon\n\

        binfilt :\t $binfilt\n\

         Ds  :\t $Ds\n\

done 

Mon fichier est ainsi (celui que je lis):

1 1 14.9375 -91.4375 0.01 0.0545455
1 2 14.9375 -91.5625 0.01 (…)

Salut,

j'ai un mal torride à faire se lancer un script perl depuis un script
shell de /etc/init.d ... (sur une vieille Red Hat -noyau 2.4- que je pense
étrangère au souci)

Si j'execute à la main /etc/init.d/script.sh start , ça roule : le script
perl est bien lancé
(il est lancé avec la forme
su - pouet -c "cd /path && ./script.pl" &
)

Si je remplace le contenu du script shell (lanceur) par un bête date >>
/tmp/date_boot, (…)

Bonjours.

Lors de tests d'une migration de request tracker 3.8 à 4.0.2 détail j'ai un petit soucis sur mon serveur de test.
Les mails (commentaires et réponses) ont un contenu un peut particulier:

URL: {$RT::WebURLExternal}Ticket/Display.html?id={$Ticket->id}
{$Transaction->Content()}

Ce qui n'est pas normal (si je ne me trompe pas il s'agit de code perl).
Le gros problème est que parfois je reçois les mail sous la bonne forme tout comme il faut (qui m'apporte une tasse de café...)

Est-ce que quelqu'un a (…)

bonjour,

je cherche à modifier dans un fichier texte toutes les lignes (vide) qui précèdent une suite de choix débutant par un "-", avec le rajout d'une ligne contenant toujours la même constante.

Par exemple :

blabla.
blabla.

- choix 1
- choix 2
- choix 3

blabla.

- nouveau choix 1
- etc

deviendrait :

blabla.
blabla.

constante
- choix 1
- choix 2
- choix 3

blabla.

constante
- nouveau choix 1
- etc 

J'ai essayé avec

perl

(…)

Bonjour,

Je viens de déployer un petit blog écrit en perl avec dancer sur mon serveur lighttpd. Le déploiement se fait en cgi (je n'arrive pas à le faire tourner en fastcgi). Mais l'application est affreusement lente, il faut plusieurs secondes pour afficher une bête page avec peu de contenu.

Je tiens à préciser que l'application est tout à fait véloce si je la lance manuellement avec perl (sans passer par lighttpd).

Voilà le contenu du dispatch.cgi :

#!/usr/bin/env perl

(…)

Bonjour amis Linuxiens !!

Voilà, j'arrive sur la fin d'un script Perl que j'aimerais proposer à la communauté.

Je ne suis pas un super dev mais je fais ça entre mes nombreuses heures de système, j'aimerais le proposer afin de voir dans un premier temps si il plairait aux utilisateurs et ensuite afin que les dev confirmés puissent, si ils le désirent, l'améliorer

Vous l'aurez compris ce serait ma première contribution à cette grande famille, je ne sais pas comment m'y (…)

Bonjour,

J'utilise un script (Q4Mon pour ne pas le nommer) qui fonctionnait très bien sous Squeeze (perl 5.10) et également bien avant. Sous wheezy (perl 5.14) que neni.

Après débogage c'est ce petit bout de code qui pose problème

foreach (@query_results) {
    if ($_) {
        if (split(/,,/,$_) && $_[0] eq "Q4S") {
                # Server Info
                $temp_server_address=$_[1];
                $server_address=$_[1

(…)

Bonjour,

Pour un script qui analyse des fichiers présents dans des dossiers, j'essaye d'associer un langage avec une extension de fichier.

Par exemple, le script scrute un répertoire et trouve un .pl ou .pm dedans et il en déduit que c'est du langage Perl.

Je me suis dit que ceci ferait l'affaire pour essayer d'associer les extensions aux langages (la recherche dans le dossier fonctionne déjà):

#!/usr/bin/env/perl

use warnings;
use utf8;

my %hashLang = (
    'Perl' => [

(…)

Bonjour à tous,

Je suis tout nouveau en perl et je viens du monde ms.
Ne connaissant que vbs et powershell il faudra être patient avec moi.

Bon voilà mon besoins:
Je dois faire des modifications massive d'enregistrements DNS dans 15 zones Bind9.7.
En entrée j'ai un fichier csv qui se compose ainsi.
RecordName,Type,NewIP
SERVER1,A,YYYY
server2,A,YYYY

L'idée algorithmique serait la suivante:

#------debut script ------------------
    $csvfile = readcsv(/tmp/csv)
    $zonefile = open (/var/cache/bind/mydomain.com)

    foreach ($row in 

(…)

Bonjour,

J'utilise le module Net::ISC::DHCPd::Config pour parser la configuration du fichier de conf dhcpd donc voici un extrait :

subnet 192.168.10.0 netmask 255.255.255.0 {
    option routers 192.168.10.1;
    range 192.168.10.100 192.168.10.200;

    host pnom {
        hardware ethernet D0:AA:12:BC:13:65;
        fixed-address pnom.domain.net
    }
    host pnom2 {
        hardware ethernet D0:AA:12:BC:13:66;
        fixed-address pnom2.domain.net
    }
}
subnet 192.168.20.0 netmask 255.255.255.0 {
    option routers 192.168.10.1;
    range 192.168.10.100 192.168.10.200;
     host pnom3 {
        hardware ethernet D0:AA:12:BC:13:67;
        fixed-address pnom.domain.net
    }
    host pnom4 {
        hardware ethernet D0:AA:12:BC:13:68;
        fixed-address pnom2.domain.net
    }
}
subnet

(…)

Salut j'ai un petit souci de concatenation, j'ai mon code qui me retourne des values avec

        print $per_line_fh  map {clean($_)} @$row ;

de par et d'autre j'aimerai que lors de la sortie ceci me retourne avec certains characteres de html par et d'autre, a savoir:

print $per_line_fh "<tr><td>map {clean($_)} @$row</td></tr>" ;
malheureusement lorsque je je tape le Charactere "" la commande perl map n'est plus active et donc le resultat n'est plus ce que je j'attend.

je sais pas si (…)

j'ai une boucle for qui me produit un champ vide a la fin de mon tableau comment pourrai je empeche cela?

    for my $i(map {clean($_)} @$row) {
      #chomp $i;       
    my $d = "<tr><td>$i</td></tr>\n";
    print $per_line_fh $d if ($i); 
    }
    print $per_line_fh "</table>\n</body>\n</html>";
    close $per_line_fh;
}

sub clean {   
    my $string = shift;
    $string =~ /\s*,\s*/;
    $string =~ /\s*,\s*/;

(…)

Bonjour,

je suis débutante en perl

j'ai un probleme que je veux resoudre a l'aide des tables de hachage
fichier1.txt =>
j'ai le velo
je veux manger
fichier2.txt =>
maison belle
velo de patrice
manger pizza
fichier resultat =>

      j'ai le velo de patrice
      je veux manger pizza

comment proceder svp merci

Bonjour à tous !

Nouveau en Perl, je rencontre une petite difficulté. Dans un fichier texte, je voudrais faire la modification suivante :

Lorsqu'en lisant le fichier lignes par lignes je tombe sur un underscore ("") je voudrais faire une boucle permettant d'analyser le caractère qui se situe à droite du "". Si c'est une lettre, le déplacer sur la position où se trouvait l'underscore en laissant un espace à l'ancienne place de cette lettre. Si c'est un chiffre (…)

Bonjour,

J'utilise le code Perl ci-dessous pour envoyer un mail et voir mon logo en entête.

Hélas si dans Gmail (Android) j'ai bien le logo qui s'affiche en entête du mail et adapté à la largeur page, il s'affiche une 2 fois en bas du message comme une pièce jointe.

J'ai tout essayé pour avoir l'image dans le corps du message sans l'avoir aussi affiché comme pièce jointe à télécharger et de plus dans une grande taille (c'est horrible)

Pourriez-vous (…)

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

(…)

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

(…)