question perl

Top Page

Reply to this message
Author: Patrick Dupre
Date:  
To: guilde
Subject: question perl
Bonsoir

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