#!/bin/bash
tar /home/post/perl-update/perl-5.16.0.tar.gz -zxvf /usr/src/perl-5.16.0.tar.gz -C /usr/src/
cd /usr/src/perl-5.16.0
./Configure -d -Dusethreads
make
make test
make install
Option -d : automatic accept
Dusethreads : support thread -> x86_64-linux-thread-multi
[root@ecentrixpress src]# which perl
/usr/local/bin/perl
/usr/local/bin/perl -MCAPN -e ‘shell’
o conf urllist http://192.168.0.253/project/CPAN => from repo local cpan
o conf commit
cpan[1]>install DBI
cpan[2]>install Data::UUID
cpan[3]>install Device::Gsm::Sms
cpan[4]>install Log::Log4perl
cpan[5]>install DBD::mysql
[root@ecentrixpress src]# /usr/local/bin/perl -V
/usr/local/lib/perl5/site_perl/5.16.0/x86_64-linux-thread-multi
/usr/local/lib/perl5/site_perl/5.16.0
/usr/local/lib/perl5/5.16.0/x86_64-linux-thread-multi
/usr/local/lib/perl5/5.16.0
sms-perl.pl
#!/usr/local/bin/perl
#============================================================================#
# add library path as needed! #
#============================================================================#
use lib ‘/home/ecentrix/sms/’;
use lib ‘/usr/local/lib/perl5/5.16.0/x86_64-linux-thread-multi’;
use lib ‘/usr/local/lib/perl5/site_perl/5.16.0/x86_64-linux-thread-multi’;
#============================================================================#
use DBI;
use Data::UUID;
use Wavecom;
use POSIX;
use Time::HiRes qw(sleep);
use threads;
use threads::shared;
use Device::Gsm::Sms;
use Device::Modem;
use Log::Log4perl qw(get_logger :levels);
my $STOP_DAEMON : shared = 0;
my $log;
my $VERSION = ‘1.0.1’;
Thanks
Like this:
Like Loading...