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
> ===========================================================================
>
>
