Here are a couple of useful OO type functions

%taps;
$taps{'T1'}++;

print "New taps, same level\n";
print new_tap('T1')," " for (0..15);
print "\nNew taps, new level\n";
print new_level('T1')," " for (0..30);


sub new_tap {
    my $tap = shift;
    my ($root, $end)= $tap =~ m/^(\w+?)([\d]+|[A-Z]+)$/i;
    my $new;
    {   $new = $root.$end;
        if (exists $taps{$new}) {
            $end++;
            redo;
        }
        $taps{$new}++;
    }
  return $new;
}

sub new_level {
    my $tap = shift;
    my ($root, $end)= $tap =~ m/^(\w+?)([\d]+|[A-Z]+)$/i;
    my $suf = ($end =~ m/[0-9]/) ? 'A' : '1';
    {   $new = $root.$end.$suf;
        if (exists $taps{$new}) {
            $suf++;
            redo;
        }
        $taps{$new}++;
    }
  return $new;

}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

#!/usr/bin/perl -w

use strict;

my $trunc = 1;
my $tap = 'A';
my $tapoftap = 1;
my ($x, $y, $z);

for $x (1..20) {
    for $y (1..10) {
        for $z (1..10) {
                print "T$trunc$tap$tapoftap\n";
                $tapoftap++;
        }
        $tapoftap =1;
        $tap++;
    }
    $trunc++;
    $tap = 'A';
}
[download]

Also, you could use the above to build an array or a list depending on what you're doing..

There's also the option of creating a sub that returns a value based on what you want to do. Something that takes the current Trunc-tap-subtap and a keyword that signifies which you want to increment.

Hope this helps..
Rich

Then, all you do is create each tap as an instance of this Tap class. This will also be really good cause I'm sure you can think of other operations you'd love to either have a tap do or be able to do on a tap, like copy it or set various attributes.

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

You mean you can mimic a user deinfed type by using objects. Not actually create a "type". I see nothing that's the equivilant to typedef in perl. You could mimic similar things with an array or a sub, without the expense of OO, but it's still not a user defined "type".

Here's the thing - there is no such thing as a "type" in Perl to begin with. (Well, not till Perl6, and even then, not really.) Whenever you do $foo++, the interpreter is converting $foo to an integer, whether it was a string or a float before, then incrementing it. This can lead to interesting behavior. For example, if you do:

my $foo = "abc";
$foo++;
print "$foo\n";
----
abd

my $foo = 1.1;
$foo++;
print "$foo\n";
----
2.1
[download]

Neither of those behaviors, while perfectly logical, have any correspondence to C or Pascal or Java. The only thing the Perl compiler checks is what kind of variable you are working with, not what type.

So, you are only ever working with an int, for example, through programmer choice. So, you're only ever working with a user-defined type by programmer choice. The compiler isn't going to enforce anything for you with regard to type. (Well, it's not exactly anything, but close enough for government work.)

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!