Bonjour,

Je tente d'extraire une sous-chaine d'une chaine $cmd_pool mais je n'y arrive pas.
Mon regexp me parait bon pourtant.
La chaine d'origine est assez mastoque.


$cmd_pool contient :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
NetWorkeradministrationprogram.Usethe"help"commandforhelp,"visual"forfull-screenmode.nsradmin>nsradmin>Currentquerysetnsradmin>name:"SFRFullAllHebdo5";groups:AMB_Full_SystAppli_Hebdo_ma,auth_centr,CASE-FS_Full_SystAppli_Hebdo_Ma,CVMS_Full_SystAppli_Hebdo_ma,CVVMS,CVVMS_Full_OraBDD_Quot,CVVMS_Full_OraBDD_Quot2,CVVMS_Full_OraBDD_Quot3,DvsbProj1,ECDS,GeneSMCO_Full_SysAppli_Hebdo_Je,GWXMS_Full_Spec_Hebdo_Je,Hamlet_PR,HAWEB_Full_SystAppli_Hebdo_Je,LCO,LCU_Full_SystAppli_Hebdo_ma,LCU_Test_pabsinc1_2,MMS_Full_OraBDD_Hebdo_Di,MPV_Full_SystAppli_Hebdo,MTR_Full_OraBDD_Hebdo_di,MTR_Full_SystAppli_Hebdo_di,NC0_Full_Arch_Hebdo_Ma,NC0_Full_OraBDD_Hebdo_Ma,NC0_Full_Spec_Hebdo_Ma,NCO_Full_SystAppli_Hebdo_Ma,NETWORKER_Full_Spec_Hebdo,NETWORKER_Full_SystAppli_Hebdo,NocAchere1,ONFWheat,OVIS_Full_SystAppli_Hebdo_Sa,OVPI_Full_SystAppli_Hebdo_Sa,PALIER_METIER,Pates,Prisestreaming,RaduisIMSCorporate,RAMv2,RED_Full_OraBDD_Hebdo_Ma,RED_Full_ReqLog_Hebdo_Ma,SDP,SDP_RefonteSMCO_FULL,server_Full,SGA,SIS_Resilience,SSOResilience,SSO_Stats_Full_Dim,TEST,test_SondePFC,WHEAT_FULL,XDMS_Full_Spec_Hebdo_Ma;name:Default;groups:;name:"SFRIncrAllQuot1";groups:GeneSMCO_Incr_SysAppli_Quot_Je,HAWEB_Incr_SystAppli_Quot_je,MMS_Incr_OraBDD_Quot_Di,MTR_Incr_OraBDD_Quot_di,MTR_Incr_SystAppli_Quot_di,NC0_Incr_OraBDD_Quot_Ma,NCO_Incr_SystAppli_Quot_Ma,OVPI_Incr_SystAppli_Quot_Sa,RED_Incr_OraBDD_Quot_Ma,RED_Incr_ReqLog_Quot_Ma,SSO_Stats_Incr_Dim;name:DefaultClone;groups:;name:Migration;groups:;name:Full;groups:;name:NonFull;groups:;name:Archive;groups:;name:ArchiveClone;groups:;name:PCArchive;groups:;name:PCArchiveClone;groups:;name:IndexedArchive;groups:;name:MigrationClone;groups:;name:IndexedArchiveClone;groups:;name:Offsite;groups:;nsradmin>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
my $cmd_pool=~/^.*?SFRIncrAllQuot1.*?;groups:(.*?);.*?$/;
       print $1;
my $cmd_pool=~/^.*?SFRFullAllHebdo5.*;groups:(.*?);.*?$/;
       print $1;
Merci