быстро/однозначно кодировать значения в json без ручного приведения аля 0+, ''. ?
Извините, но показалось, что вы уже на пути стать адептом статически типизированных языков
@perlbanjo package MyType::Number; sub new { my ($class, $new) = @_; return bless(\$new, __PACKAGE__) } sub TO_JSON { 0 + ${$_[0]} } package main; use JSON; my $value = MyType::Number->new("123str"); my $encoder = JSON->new->convert_blessed; print $encoder->encode([ $value ]);
Обсуждают сегодня