boi bo
non avevo nulla da fare
:conigliomg:
non avevo nulla da fare
Codice:
#!/usr/bin/perl -w
print "\nphrase: ";
$phrase = <>;
@phrase = split//,$phrase;
for $i (0..$#phrase) {
$phrase[$i] = $phrase[$i]."f".$phrase[$i] if $phrase[$i] eq "a" and $phrase[$i-1] ne "f";
$phrase[$i] = $phrase[$i]."f".$phrase[$i] if $phrase[$i] eq "e" and $phrase[$i-1] ne "f";
$phrase[$i] = $phrase[$i]."f".$phrase[$i] if $phrase[$i] eq "i" and $phrase[$i-1] ne "f";
$phrase[$i] = $phrase[$i]."f".$phrase[$i] if $phrase[$i] eq "o" and $phrase[$i-1] ne "f";
$phrase[$i] = $phrase[$i]."f".$phrase[$i] if $phrase[$i] eq "u" and $phrase[$i-1] ne "f";
$farf .= $phrase[$i];
}
print "\n$farf\n";