Quante sostituzioni sono avvenute in un Perl s /// g?

Question

piccolo esempio:

perl -e '$s="aaabbcc";$c=()=$s=~/a/g;print"$c\n$s\n"' (m // g) Uscite

3 
aaabbcc 

mentre perl -e '$s="aaabbcc";$c=()=$s=~s/a/x/g;print"$c\n$s\n"' (s /// g) uscite

1 
xxxbbcc 

Mi piacerebbe fare entrambe le cose una volta senza doversi confrontare prima: sostituire e conoscere il numero di sostituzioni. Ovviamente un s/g non restituisce il numero di sostituzioni nel contesto scalare, diversamente da m // g con le corrispondenze. È possibile? Se sì, come?

perlre, perlvar e perlop non hanno fornito alcun aiuto (o semplicemente non sono riuscito a trovarlo).

Answer 1

s/// restituisce il numero di sostituzioni effettuate in contesto scalare. Da perlop (enfasi aggiunta):

s/Modello/Sostituto/msixpogce
Ricerche una stringa per un motivo, e se trovato, sostituisce quello modello con il testo sostitutivo e restituisce il numero di sostituzioni effettuate. Altrimenti restituisce false (in particolare, la stringa vuota).

Il tuo problema è che non hai chiamato s/// in contesto scalare. L'hai chiamato in contesto elenco e poi hai valutato l'assegnazione (in una lista vuota) in un contesto scalare. Un'assegnazione lista in contesto scalare restituisce il numero di elementi prodotti dal lato destro dell'espressione. Poiché s/// restituisce un valore singolo (sia in elenco che in contesto scalare), il numero di elementi è sempre uno anche se lo s/// non ha fatto nulla.

perl -E "$s='aaabbcc'; $c=()=$s=~s/x/y/g; say qq'$c-$s'" # prints "1-aaabbcc" 

Per chiamare s/// nel contesto scalare, omettere lo pseudo-operatore =()=.

perl -E "$s='aaabbcc'; $c=$s=~s/a/x/g; say qq'$c-$s'" # prints "3-xxxbbcc"