استفاده از JSON در Perl – آموزش JSON

شنبه ۲۰ مهر ۱۳۹۸
بازدید ۱,۱۹۲ نفر
آرتین
(10 امتیاز از 2 رای)
Loading...

تصویر json-with-perl_7172 استفاده از JSON در Perl - آموزش JSON

استفاده از JSON در Perl

در این بخش چگونگی encoding و decoding اشیاء JSON در زبان برنامه نویسی Perl را بررسی خواهیم کرد. قبل از شروع کار باید ماژول مربوط به JSON را از CPAN نصب کنیم. هنگامی که فایل JSON-2.53.tar.gz یا هر نسخه جدیدی را دانلود کردید، مراحل زیر را دنبال کنید:

$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install

$tar xvfz JSON-2.53.tar.gz

$cd JSON-2.53

$perl Makefile.PL

$make

$make install

توابع JSON

تابع	توضیحات
encode_json	مقدار داده شده را به یک رشته encode شده و باینری UTF-8 تبدیل می کند.
decode_json	یک رشته JSON را decode می کند.
to_json	مقدار داده شده را به یک رشته JSON تبدیل می کند.
from_json	مقدار جیسون داده شده را تجزیه می کند.
convert_blessed	اگر از این تابع با مقدار پارامتر true استفاده کنید، Perl می تواند از متد TO_JSON برای تبدیل کردن یک شیء به جیسون استفاده کنید.

Encode کردن JSON

تابع encode_json در زبان برنامه نویسی Perl مقدار داده شده را به یک رشته encode شده و باینری UTF-8 تبدیل می کند. در زیر می توانید سینتکس مربوط به این تابع را مشاهده کنید:

$json_text = encode_json ($perl_scalar );
or
$json_text = JSON->new->utf8->encode($perl_scalar);

$json_text = encode_json ($perl_scalar );

$json_text = JSON->new->utf8->encode($perl_scalar);

مثال

#!/usr/bin/perl
use JSON;
my %rec_hash = ('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);
my $json = encode_json %rec_hash;
print "$jsonn";

#!/usr/bin/perl

use JSON;

my %rec_hash = ('a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5);

my $json = encode_json %rec_hash;

print "$jsonn";

خروجی:

{"e":5,"c":3,"a":1,"b":2,"d":4}

1	{"e":5,"c":3,"a":1,"b":2,"d":4}

مثال زیر نحوه تبدیل یک شیء به JSON را نشان می دهد:

#!/usr/bin/perl
package Emp;
sub new {
   my $class = shift;
   my $self = {
      name => shift,
      hobbies  => shift,
      birthdate  => shift,
   };
   bless $self, $class;
   return $self;
}
sub TO_JSON { return { %{ shift() } }; }
package main;
use JSON;
my $JSON = JSON->new->utf8;
$JSON->convert_blessed(1);
$e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm");
$json = $JSON->encode($e);
print "$jsonn";

#!/usr/bin/perl

package Emp;

sub new {

my $class = shift;

my $self = {

name => shift,

hobbies => shift,

birthdate => shift,

};

bless $self, $class;

return $self;

}

sub TO_JSON { return { %{ shift() } }; }

package main;

use JSON;

my $JSON = JSON->new->utf8;

$JSON->convert_blessed(1);

$e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm");

$json = $JSON->encode($e);

print "$jsonn";

خروجی:

{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}

1	{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}

Decode کردن JSON

تابع decode_json در زبان برنامه نویسی Perl برای decode کردن مقادیر JSON استفاده می شود. در زیر می توانید سینتکس مربوط به این تابع را مشاهده کنید:

$perl_scalar = decode_json $json_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)

$perl_scalar = decode_json $json_text

$perl_scalar = JSON->new->utf8->decode($json_text)

مثال

مثال زیر نحوه decode کردن یک شیء جیسون در زبان perl را نشان می دهد. در این مثال ما از ماژول Data::Dumper استفاده کرده ایم.

#!/usr/bin/perl
use JSON;
use Data::Dumper;
$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';
$text = decode_json($json);
print  Dumper($text);

#!/usr/bin/perl

use JSON;

use Data::Dumper;

$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';

$text = decode_json($json);

print Dumper($text);

خروجی:

$VAR1 = {
   'e' => 5,
   'c' => 3,
   'a' => 1,
   'b' => 2,
   'd' => 4
};

$VAR1 = {

'e' => 5,

'c' => 3,

'a' => 1,

'b' => 2,

'd' => 4

};

JSON - JSON در Ruby JSON - JSON در Python

دسته ها: آموزش ها - تکنولوژی Json - زبان برنامه نویسی Perl

آموزش شبکه عصبی با زبان سی پلاس پلاس

آموزش ساخت حسگر تشخیص حرکت با آردوینو و زبان پایتون

آموزش پروژه محور پایتون برای یادگیری ماشین (Machine Learning)

آموزش برنامه نویسی PHP از مقدماتی تا پیشرفته (فیلم آموزشی)

آموزش پروژه محور سی شارپ (سیستم مدیریت پرسنل و پرداخت حقوق) تحت شبکه

فیلم آموزش WPF در سی شارپ به صورت پروژه محور | مدیریت بخشنامه تحت شبکه

آموزش بوت استرپ (Bootstrap 4) به صورت فیلم آموزشی

آموزش JSON

مباحث پایه JSON

مثال های کاربردی JSON

استفاده از JSON در Perl – آموزش JSON

استفاده از JSON در Perl

توابع JSON

Encode کردن JSON

Decode کردن JSON

پروژه سیستم مدیریت شکایات با پایتون و جنگو (Django)

سورس الگوریتم رمزنگاری DES به زبان سی شارپ

سورس ایستگاه اتوبوس با OpenGL به زبان C++

سورس قلعه با OpenGL به زبان C++

سورس شبیه سازی هواپیمای کوچک با OpenGL به زبان C++

سورس بازی ماشین مسابقه ای با OpenGL به زبان C++

سورس رسم دسته بازی با OpenGL به زبان C++

سورس حرکت هلیکوپتر با OpenGL به زبان C++