P
Peter Hill
I think I am misunderstanding how /g works; the following (incorrect)
program does not remove all non-leading vowels, just the 1st non-leading
vowel. Corrections please?
#! /usr/bin/perl -w
use strict;
#remove all non-leading vowels
my $word = 'ABEDU';
$word =~ s/(^..*?)[AEIOU](.*)/$1$2/g;
print qq{$word\n};
tia
Peter Hill
program does not remove all non-leading vowels, just the 1st non-leading
vowel. Corrections please?
#! /usr/bin/perl -w
use strict;
#remove all non-leading vowels
my $word = 'ABEDU';
$word =~ s/(^..*?)[AEIOU](.*)/$1$2/g;
print qq{$word\n};
tia
Peter Hill