с числа на строку?
#!/usr/bin/perl
use feature 'say';
use Data::Dumper;
use JSON qw/encode_json/;
my $foo = 123;
say encode_json([$foo]);
say sprintf('foo=%s', $foo);
say encode_json([$foo]);
[123]
foo=123
["123"]
say sprintf('foo=%d', $foo);
Обсуждают сегодня