First page Back Continue Last page Overview Graphics
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;