>[оверквотинг удален]
>>требуется ссылка, а значит не подходит. Подозреваю, что это можно получить
>>через таблицу символов и typeglob, но вот что-то не выходит каменный
>>цветок.
>
>у переменной в перле вначале есть такой префикс
>бакс означает скаляр
>собака - массив
>процент - хешь.
>
>? как можно незнать тип переменной?

Если тип переменной меняется во время выполнения программы. Но это только один из случаев, можно придумать массу других.

>лан, хотел закончить поделюсь сокровенным.
>
>чтобы узнать тип, надо получть ссылку на переменную и применить ref :-)
>

не канает :) когда делается ссылка на переменную, применяется символ указания типа, а значит это не наш случай.

Хорошо. Задам вопрос проще:

#!/usr/bin/perl -w
use strict;

my $var = "Я переменная";

продолжи этот тривиальный код и выведи мне тип переменной при условии что ты не знаешь.

>Похоже что можно, только вопрос будет другой, не какого типа такая-то переменная,
>а есть ли среди скаляров такая-то переменная ?
>
>perl -MData::Dumper -e '@test=('123');$test=321;%test=('abc');$Data::Dumper::Purity = 1;print Dumper %{*{"@main\::"}}' | grep test
>
>perl -e '$test = 123; *N = "\*main\::test"; print ${*N{SCALAR}};'

по результатам этого примера я написал небольшой код.
хотя не понимаю для чего это нужно.

#!/usr/bin/perl

use Data::Dumper;
use strict;
#программа определяет переменные test находит ее дескриптор среди определенного типа переменных
#и если нашла то печатает ее значение через Dumper

package p1;
our $test = 123;
our @test = (1, 2, 3, 4, 5 );
our %test = ('a'=>1, 'b'=>2);

package main;

my @names = qw(test test1);
my @pkgs = qw(p1 main);
my ($ref, $scal);

foreach my $p (@pkgs) {
    print "In package '$p':\n";
    foreach my $vname (@names) {
    if($scal = has_scalar($p, $vname)) {
        print "Have var $vname: $scal\n";
    } else {
        print "No find scalar var $vname ".Dumper($scal);
    }
    }
    foreach my $vname (@names) {
    if($ref = has_array($p, $vname)) {
        print "Have var $vname: ".Dumper($ref)."\n";
    } else {
        print "No find array var $vname\n";
    }
    }

    foreach my $vname (@names) {
    if($ref = has_hash($p, $vname)) {
        print "Have var $vname: ".Dumper($ref)."\n";
    } else {
        print "No find hash var $vname\n";
    }
    }

}

#вернет скляр или ундеф
sub has_scalar {
    my ($pkg, $name) = @_;
    *N = "\*$pkg\::$name";
    return ${*N{SCALAR}};
}
#вернет ссылку на массив или ундеф
sub has_array {
    my ($pkg, $name) = @_;
    *N = "\*$pkg\::$name";
    return *N{ARRAY};
}
#вернет ссылку на хеш или ундеф
sub has_hash {
    my ($pkg, $name) = @_;
    *N = "\*$pkg\::$name";
    return *N{HASH};
}