RegEx: la potenza di Perl (3)

• Trovare testo

• my $testo = 'nel mezzo del percorso';

• if ($testo =~ /mezzo/) { print 'trovato' }

• # @parole = ('nel','mezzo','del','percorso')

• @parole = $testo =~ /\w+/g;

• while ($testo =~ /(\w+)/g) { print $1 }

• Sostituire testo

• # nel mezzo del cammin

• $testo =~ s/percorso/cammin/;

• # Nel Mezzo Del Cammin

• $testo =~ s/(\w+)/ucfirst $1/ge;

• # NEL MEZZO DEL CAMMIN

• $testo =~ s/(.*)/\U$1/g;