Perlの最近のブログ記事

/usr/local/bin/lha e -e -i -w=./temp hogehoge.lzh

（例）

export LC_CTYPE=ja_JP.eucJP; /usr/bin/unzip -OCP932 -d /tmp exsample.zip

export LC_CTYPE=ja_JP.UTF-8

550-5.7.26 This mail is unauthenticated, which poses a security risk to the

550-5.7.26 sender and Gmail users, and has been blocked. The sender must

550-5.7.26 authenticate with at least one of SPF or DKIM. For this message,

550-5.7.26 DKIM checks did not pass and SPF check for [www.exsample.co.jp] did

550-5.7.26 not pass with ip: [210.XXX.XXX.XXX]. The sender should visit

550-5.7.26  https://support.google.com/mail/answer/81126#authentication for

550 5.7.26 instructions on setting up authentication.

# nslookup -q=TXT exsample.co.jp

exsample.co.jp   text = "v=spf1 ip4:202.XXX.XXX.XXX ip4:163.XXX.XXX.XXX ip4:210.XXX.XXX.XXX include:spf.securemx.jp ~all"

    $mail_data = <<EOM;

From: admin@exsample.co.jp

To: hogehoge@gmail.com

Subject: TEST MAIL

MIME-Version: 1.0

Content-type: text/plain; charset=ISO-2022-JP

Content-Transfer-Encoding: 7bit

X-Mailer: CGI-Script

test death.

EOM

    if (!open (MAIL,"| sendmail -t")) {

        print "Error : Mail Send\n";

    }

    print MAIL $mail_data;

    close(MAIL);

    if (!open (MAIL,"| sendmail -t -f admin@exsample.co.jp")) {

        print "Error : Mail Send\n";

    }

SecurityImage インストール続き

# yum -y install gd

# yum -y install gd-devel

# yum -y install perl-GD

# yum -y install perl-GD-SecurityImage

use strict;

use warnings;

use utf8;

use LINE::Bot::API;

use LINE::Bot::API::Builder::SendMessage;

use Plack::Request;

my $channel_secret = '84xxxxxxxxxxxxxxxxxxxxxxxxxxxxec';

my $channel_access_token = '8sXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxcDnyilFU=';

my $bot = LINE::Bot::API->new(

channel_secret       => $channel_secret,

channel_access_token => $channel_access_token,

);

sub {

my $req = Plack::Request->new(shift);

unless ($bot->validate_signature($req->content,

$req->header('X-Line-Signature'))) {

return [200, [], ['bad request']];

}

my $events = $bot->parse_events_from_json(

$req->content);

foreach my $event (@{ $events }) {

if ($event->is_user_event && $event->is_message_event

&& $event->is_text_message) {

my $messages = LINE::Bot::API::Builder::SendMessage->new;

$messages->add_text( text => $event->text );

$messages->add_text( text => 'って言ったのね？');

my $res = $bot->reply_message($event->reply_token,

$messages->build);

}

}

return [200, [], ["OK"]];

};

#!/usr/bin/perl

use Socket;

$ipstr = $ARGV[0];

$port = $ARGV[1];

$msg = $ARGV[2];

$ipaddr = inet_aton($ipstr);

$sockaddr = pack_sockaddr_in($port, $ipaddr);

socket(SOCKET, PF_INET, SOCK_DGRAM, 0);

send(SOCKET,$msg , 0, $sockaddr);

Jcode;

MIME::Words

# yum -y install epel-release

# yum --enablerepo=epel -y install perl-Jcode

EPELリポジトリにも perl-MIME-Words のようなパッケージはない。でも、そう言えば CPAN でインストールするときは install MIME::Words ってやってたけど、MIME-tools-5.XXX.tar.gz とかが読み込まれていたな・・・と。

# yum --enablerepo=epel -y install perl-MIME-tools

# perl

use MIME::Words qw (:all);

Can't locate MIME/Words.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at - line 1.

BEGIN failed--compilation aborted at - line 1.

# perl

use Jcode;

# perl

use MIME::Words qw (:all);

以前は直接設定ファイルを触っていたけど、便利なコマンドがあったのね。

# yum-config-manager --disable epel