IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

aide pour une [regexp]


Sujet :

Langage Perl

  1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Développeur informatique
    Inscrit en
    juillet 2022
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : juillet 2022
    Messages : 1
    Points : 1
    Points
    1
    Par défaut aide pour une [regexp]
    Bonjour

    désolé si je ne post pas au bon endrot mais je ne sais pas trop quel forum utilisé car j'envisage d'utilisé Notepad++ pour modifier mes fichiers...
    j'ai plusieurs fichiers dont il faudrait changé le contenu mais je ne maitrise pas les expressions réguliere...j'aurais besoin de votre aide
    toutes mes lignes contenant %endtestcase doivent etre entourer par /* */ (delimiteur de debut %endtestcase delimiteur de fin : ; ).............car bien évidemment les paramètres situé entre les parenthèses ne sont pas fixe.
    avant :
    blablabla
    %endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);
    blablabla
    blablablablablabla
    Apres :
    blablabla
    /*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/
    blablabla
    blablablablablabla
    Et encore mieux et si possible avec ces deux lignes en plus :
    blablabla
    /*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/
    %assertLog(i_errors=,i_warnings=);
    %endTestcase(i_assertLog=1);
    blablabla
    blablablablablabla
    Merci
    Nicolas.

  2. #2
    Membre habitué
    Homme Profil pro
    Master Data Manager
    Inscrit en
    février 2017
    Messages
    103
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Cher (Centre)

    Informations professionnelles :
    Activité : Master Data Manager
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2017
    Messages : 103
    Points : 143
    Points
    143
    Par défaut
    Bonjour.

    Code perl : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    #!/bin/perl
     
    use Modern::Perl;
     
    my $base = 'blablabla
    %endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);
    blablabla
    blablablablablabla';
     
    my $prefix = '/*';
    my $sufix  = '*/
    %assertLog(i_errors=,i_warnings=);
    %endTestcase(i_assertLog=1);';
     
     
    $base =~ s{(%endTestcase\([^\)]*\);)}{$prefix . $1 . $sufix}ge;
     
    say $base;

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    $ perl script.pl 
    blablabla
    /*%endTestcase(i_assertLog=1,i_nbasser=2,l_errors=1,l_warnings=0);*/
    %assertLog(i_errors=,i_warnings=);
    %endTestcase(i_assertLog=1);
    blablabla
    blablablablablabla

Discussions similaires

  1. aide pour une regexp
    Par djblind dans le forum Langage
    Réponses: 16
    Dernier message: 10/03/2022, 12h27
  2. Création requete besoin d'aide pour une date
    Par royrremi dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 14/07/2004, 22h03
  3. Besoin d'aide pour une Requête SQL ...
    Par Kokito dans le forum Requêtes
    Réponses: 2
    Dernier message: 07/07/2004, 11h56
  4. Aide pour une requete ... "COUNT(*)"
    Par mechantebestiole dans le forum Langage SQL
    Réponses: 13
    Dernier message: 25/05/2004, 16h27
  5. besoin d'aide pour une requête
    Par Damien69 dans le forum Langage SQL
    Réponses: 11
    Dernier message: 31/03/2004, 15h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo