Отцы, напомните как сабж сделать?  ну есть у меня несколько скалярных переменных, мне из них надо сделать одну. ну и потом обратить это действие разумееца=) книжку дома забыл, а искать уже заколебался =)

• свёртка значений в строку в Perl,ihor, 11:48 , 29-Июл-04
  • свёртка значений в строку в Perl,r4, 11:53 , 29-Июл-04
    • свёртка значений в строку в Perl,ihor, 12:27 , 29-Июл-04
      • свёртка значений в строку в Perl,r4, 12:33 , 29-Июл-04
        • свёртка значений в строку в Perl,ihor, 12:39 , 29-Июл-04
• свёртка значений в строку в Perl,uldus, 21:07 , 30-Июл-04

$sep = ':';
$a = join($sep, ($b, $c, $d, $e));
($b, $c, $d, $e) = split(/$sep/, $a);

???

>$sep = ':';
>$a = join($sep, ($b, $c, $d, $e));
>($b, $c, $d, $e) = split(/$sep/, $a);
>
>
>???

Ну это подручными средствами. Недостаток этого метода в том, что в строке может случайно встретица сепаратор.  По-моему была же какая то встроенная функция для этих целей.

ps. всёравно спасибо =)

$b = 12.2;
$c = -13;
$d = 14;
$e = "abce ghiklm n o p r s";
$f = "foo bar :  : : : 122";

$a = pack("fiin/a*n/a*", $b, $c, $d, $e, $f);
($b, $c, $d, $e, $f) = unpack("fiin/a*n/a*", $a);

>$b = 12.2;
>$c = -13;
>$d = 14;
>$e = "abce ghiklm n o p r s";
>$f = "foo bar :  : : : 122";
>
>$a = pack("fiin/a*n/a*", $b, $c, $d, $e, $f);
>($b, $c, $d, $e, $f) = unpack("fiin/a*n/a*", $a);

аа. во. "fiin/a*n/a*" - как я понимаю - разделитель?

"fiin/a*n/a*" - описание формата:
f -- A single-precision float in the native format
i -- A signed integer value
a* -- A string with arbitrary binary data (will be null padded)
n/a* -- строка с указанием длины (n/), нужно, если подряд идут несколько строк

perldoc Data::Dumper или Storable