Couper et stocker des expressions régulières pour utilisation future

Bonjour,

dans une liste de fichier, je cherche toutes les déclaration de fonctions suivant un formalisme particulier à la déclaration. Jusque là pas de problème.

Code:

---

1 2 3 4

for i in $1/*.c do echo $i; perl -ne 'if(/[A-Z0-9_]+\s+[A-Z]{4}_([A-Z][a-z]+)+\(/) {print $_; }' $i done

---

Une fois que j'ai trouvé toutes les déclarations, je voudrais récupérer le nom de la fonction uniquement, c'est à dire la partie

Code:

---

1 2	[A-Z]{4}_([A-Z][a-z]+)+

---

et la stocker pour l'utiliser plus tard dans le script.
Pour l'instant je n'arrive pas à découper mon expression régulière pour en extraire la partie qui m'intéresse (je verrais après pour stocker et réutiliser).
J'ai essayé avec les parenthèses et le remplacement, sans succès.

Merci pour votre aide.

PS : Est-ce qu'il ne serait pas plus pertinent que je fasse un script Perl plutôt qu'un script ksh invoquant du Perl ?

J'ai réussi à isoler ma chaîne avec cette ligne de code

Code:

---

perl -ne 'if(/[A-Z0-9_]+\s+([A-Z]{4}_([A-Z][a-z]+)+)\(/) {print "$1\n"; }' $i

---

J'ai plus qu'à trouver comment sauvegarder les chaînes récupérées quelque part pour m'en servir.

Edit : Bon, je me rend compte que je ne suis pas parti dans la bonne direction. Je peux recommencer (presque) au début.