-sub my_length {
- my ($s) = @_;
- my $len = 0;
- my $i;
- my $skip = 0;
-
- for ($i = 0; $i < length($s); $i++) {
- my $c = substr($s, $i, 1);
- if ($skip && ($c eq ";")) {
- $skip = 0;
- } elsif ($skip) {
- next;
- } elsif ($c eq "&") {
- $skip = 1;
- $len++;
- } else {
- $len++;
- }
- }
-
- return $len;
-}
-