How to find missing letters

[vpalag]

Hi,

I need to generate a list of letters that are missing between to alphabets. let's say my list should look like

B,C,D,E,F,G if I pass A and H.

Any ideas please let me know.
I appreciate the help.

alag

 

[NEVERSLEEP]

$_ = ...
if (! /A/) { # no A do something }
if (! /H/) { # no H do something }
# ... ---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[raider2001]

Is this what you want?

@List = &List("A", "H");
print "@List\n";

sub List($$) {
    my ($Start, $End) = @_;
    # ord - converts character to its ascii value
    my @Nums = ord($Start) + 1 .. ord($End) - 1;
    @RetChars = map(chr, @Nums); # Convert ascii list to character list
}

 

[Coderifous]

This would be the easiest way (opinion of course):

#===== CODE =====

$start = "A"; #test data
$end = "H"; #test data

(undef, @letters) = ($start .. $end) and pop @letters;

print @letters;

#================

Hope this helps.

--jim