#!/usr/bin/perl
#use Encode;
#use JSON;
#my $json = new JSON;
#my $js;
#
#if (open(DATA, "<package.json") or die "package.json 文件无法打开, $!"){
#  while(<DATA>)
#    {
#      $js .= "$_";
#    }
#}
#close(MYFILE);
#
#my $package_info = $json->decode($js);
#@version_arr = split(/\./, $package_info->{'version'});
#$version_arr[-1]++;
#$package_info->{'version'} = join('.', @version_arr);
#my $package_info_plus = $json->encode($package_info);
#if (open(DATA, ">package.json") or die "package.json 文件无法打开, $!"){
#  print DATA $package_info_plus;
#}
#close(MYFILE);
#
#system("npm run build");
print "********************************* 1111111 *******************************\n";
$result = system("npm publish");
print $result;
#256
print "********************************** 22222 **************************************\n";