#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; my @words = qw( fanfare apparate panacea parmesan albatross albacore false vermeil candelabra beans ); say for map $_->[0], sort { $a->[1] cmp $b->[1] } map [ $_, join q(), /[aeiou]/g ], @words;
In reply to Re: Sorting Strings By Vowel Sequence
by choroba
in thread Sorting Strings By Vowel Sequence
by NewToPerl777
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |