Re: question perl

Top Page

Reply to this message
Author: michel buonomo
Date:  
To: guilde
Subject: Re: question perl

Le 12/11/2020 à 20:29, Patrick Dupre a écrit :
> Bonsoir


Bonjour,

Suivant comme je comprends la question :


if ($line =~ /^my \$CC = "(.*)"/) {
    print $line , $1;
}

$1 contient gcc



if ($line =~ /^my \$CC = (".*")/) {
    print $line , $1;
}

$1 contient "gcc"



if (my ($nom) = $line =~ /^my \$CC = "(.*)"/) {
    print $line , $nom;
}
$nom contient gcc



if ( ($line) = $line =~ /^my \$CC = "(.*)"/) {
    print $line;
}

$line contient gcc


Bonne journée,

MicheL

>
> Je fais:
>      while (my $line = <$fh>) {
>          if ($line =~ /^my \$CC = \".*\"/) {
>              print $line , $1;
>          }

>
> et je recupere:
> my $CC = "gcc" ;
>
> Ce qui est correct.
>
> Mais je voudrais ne recuperer que ce que "gcc"
>
> du genre:
> sed -n 's/.*\"\(.*\)\".*/\1/p'
>
> Est-ce que je peux le faire directement ?
>
>
> Merci d'avance.
>
> ===========================================================================
>   Patrick DUPRÉ                                 | | email: pdupre@???
>   Laboratoire interdisciplinaire Carnot de Bourgogne
>   9 Avenue Alain Savary, BP 47870, 21078 DIJON Cedex FRANCE
>   Tel: +33 (0)380395988
> ===========================================================================

>
>