- свёртка значений в строку в Perl,
 ihor, 11:48 , 29-Июл-04 (1)$sep = ':';
$a = join($sep, ($b, $c, $d, $e));
($b, $c, $d, $e) = split(/$sep/, $a);
???
- свёртка значений в строку в Perl, r4, 11:53 , 29-Июл-04 (2)
>$sep = ':';
>$a = join($sep, ($b, $c, $d, $e));
>($b, $c, $d, $e) = split(/$sep/, $a);
>
>
>??? Ну это подручными средствами. Недостаток этого метода в том, что в строке может случайно встретица сепаратор. По-моему была же какая то встроенная функция для этих целей. ps. всёравно спасибо =)
- свёртка значений в строку в Perl, ihor, 12:27 , 29-Июл-04 (3)
$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);
- свёртка значений в строку в Perl, r4, 12:33 , 29-Июл-04 (4)
>$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*" - как я понимаю - разделитель?
- свёртка значений в строку в Perl, ihor, 12:39 , 29-Июл-04 (5)
"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/), нужно, если подряд идут несколько строк
- свёртка значений в строку в Perl, uldus, 21:07 , 30-Июл-04 (6)
perldoc Data::Dumper или Storable
|
Версия для распечатки
свёртка значений в строку в Perl, 
