tech-support/labels/old/cable_labels.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl
 
use strict;
use warnings;
 
my ($rows, $switches, $cables) = @ARGV;
 
for my $row (1 .. $rows) {
    next if (!($row & 1));
 
    for my $switch (1 .. $switches) {
        for my $cable (1 .. $cables) {
            print join('-', ($row, $switch, $cable)) . ';' . "\n";
        }
    }
}