thrift -r --gen perl tutorial.thrift

~/thrift/tutorial/perl

brew install perl

/usr/local/Cellar/perl/5.30.1

PERL_MM_OPT="INSTALL_BASE=$HOME/perl5" cpan local::lib echo 'eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib=$HOME/perl5)"' >> ~/.zshrc

~/thrift/tutorial/perl   master ●  make tutorialserver /usr/bin/perl PerlServer.pl Starting the server... ping() add(1,1) calculate(1, 1 0 4) calculate(1, 15 10 2) getStruct(1)

~/thrift/tutorial/perl   master ●  make tutorialclient /usr/bin/perl PerlClient.pl ping() 1+1=2 InvalidOperation: $VAR1 = bless( { 'why' => 'Cannot divide by 0', 'whatOp' => 4 }, 'tutorial::InvalidOperation' ); 15-10=5 Log: 5

https://thrift.apache.org/tutorial/#examples-clients-and-servers

Thrift Client(Perl) $ mkdir perl_client $ cd perl_client $ cp -pR ~/thrift/lib/perl/lib .

perl requirements $ sudo perl -MCPAN -e shell cpan[1]> install Class::Accessor cpan[2]> install Bit::Vector

$ perl -MClass::Accessor -e '' $ perl -MBit::Vector -e ''

Blog: http://pppurple.hatenablog.com/entry/2017/12/19/230425

已存在的文件夹或 Git 仓库 cd existing_folder git init git remote add origin git@gitee.com:walter80/thrift_tutorial_perl.git git add . git commit git push -u origin master