常連

### 前提

OSはWindows10です。

### 実現したいこと

Windows10のPCにDateTime.pmをインストールしたいです。他のモジュールはCPANからダウンロードして、解凍した後にpowershellに以下のコードを入力することでインストールできました。

cd 解凍したファイルの保存してある場所までのパス
perl Makefile.PL
dmake
dmake test
dmake install
### 発生している問題・エラーメッセージ

DateTime.pmをCPANからダウンロードして、下記の手順でインストールしようとしましたが、エラーが発生してしまいました。

### 該当のソースコード
```ここに言語を入力
perl Makefile.PL
Warning: DateTime::Format::Mail did not compile at C:/Perl64/lib/Dist/CheckConflict.pm line 186.
***
    Conflicts detected for Datetime:
        Datetime::Format::Mail is version unknown, but must be greater than version 0.402
***
Generating a nmake-style Makefile
Writing Makefile for Datetime
Writing MYMETA.yml and MYMETA.json

dmake
dmake.exe  Error -- 'C:\Perl64\libConfig.pm'  not found, and can't be made

dmake test
dmake.exe  Error -- 'C:\Perl64\libConfig.pm'  not found, and can't be made

dmake install
dmake.exe  Error -- 'C:\Perl64\libConfig.pm'  not found, and can't be made
```


### 試したこと

見た感じだとlibConfig.pmというファイルが無いからエラーが起きているみたいなのでlibConfig.pmについて調べましたが、全然情報が出てきません。どの点から解決するべきかわからないので、エラーの解決方法を教えていただきたいです。

### 補足情報（FW/ツールのバージョンなど）




WindowsでDateTime.pmをインストールしたい

Perlがやってもやってもなかなか身につかず、半ベソかいて
仕方なくやってます。。

ものすごく一部分で恐縮なのですが、
--
use warnings;
￤
        while(<FH>){
                chomp($_);
                my @elm = split(/,/,$_);
                $names{$elm[2]} = $i;  ＃ここが43行目
                push(@lines,$_);
                $i++;
        }
￤
--
と記載している部分で、
Use of uninitialized value $elm[2] in hash element at test11.pl line 43, <FH> line 10000,

のようにuse warnings;を冒頭に書いているとエラーが出てしまいます。
43行目付近の何が良くないのかがわかりません。

値のセット？初期値化？？

どなたか有識の方、御教授願えませんでしょうか。

perl 「Use of uninitialized value」エラーの対処法

### 実現したいこと
CentOS7にてImageMagickが動作するようにしたい

### 前提
OS：CentOS7
Perl：v5.16.3
ImageMagick：ImageMagick 7.1.0-60 Q16-HDRI x86_64


### 発生している問題・エラーメッセージ

```
Image::Magick object version 7.1.0 does not match bootstrap parameter 6.72 at /usr/lib64/perl5/DynaLoader.pm line 213, <DATA> line 855.
&Image::Magick::constant not defined. The required ImageMagick libraries are not installed or not installed properly.
```

### 該当のソースコード

```Perl
require "Magick.pm";
```

### 試したこと
ImageMagickパッケージを
./configure -with-perl
make install
ldconfig /usr/local/lib
にてインストール

CPANにて
install Image::Magick
を実行しモジュールインストールをして上記エラーが出る状態です。

実行バージョンとインストールバージョンが合ってないというような事だと思うのですが、エラーメッセージにある6.72という表記がどこに表記されているのかが分かりません。

どなたかご教授頂けないでしょうか。
宜しくお願い致します。


CentOS7 PerlにてImageMagickでエラーが出ます

```perl
my $fname = "test.dmp";
open(INF, ">:raw" , $fname) || die "\nCan't open $fname for writing: $!\n";
（後略）
```
以上のコードを実行したところ、無事ファイルを開ける（作成できる）のですが、「デバイスに不適切な ioctl です（Inappropriate ioctl for device）」というエラーが発生して$!に収納されているようです。

以後の処理をみても特に実害はなく些細なエラーのように思えるのですが、原因が不明でなんとも気持ち悪いので、ぜひとも考えうる原因・解決策についてご教示いただきたいです。

実行環境はRedhatの7.3で、Perlのバージョンはv5.16.3です。
ご回答よろしくお願いします。

Inappropriate ioctl for deviceのエラー原因がわからない

### 実現したいこと

nginxのkusanagi9 で
/etc/opt/kusanagi/nginx/conf.d/*.conf
への記述で、同一ドメインで旧タームから新タームへのリダイレクトさせたい。

### 前提

nginx kusanagi9 でWordpressを運用しています。同一ドメイン（hostname）で
https://www.hostname/aaa/bbb/ccc/ddd/eee/
から
https://www.hostname/aaa/bbb/ccc/ddd/fff/ggg/
へのリダイレクトの設定方法がわかりません。

### 発生している問題・エラーメッセージ

```
リダイレクトせず、404.phpページが表示される。
```

### 該当のソースコード

```perl

server {
    listen 80;

    server_name hostname www.hostname;
    rewrite ^(.*)$ https://hostname$request_uri permanent; # SSL ONLY
        rewrite ^(.*)$ https://www.hostname$request_uri permanent; # SSL ONLY/

    set $do_not_cache 1; ## page cache
    set $expire_days 90;

    access_log  /home/kusanagi/hostname/log/nginx/access.log main;
    error_log   /home/kusanagi/hostname/log/nginx/error.log warn;

    charset UTF-8;
    client_max_body_size 16M;
    root /home/kusanagi/hostname/DocumentRoot;

    include conf.d/505.inc;
    include conf.d/favicon.inc;
    include conf.d/acme.inc;

    include conf.d/hostname.wp.inc;
    include conf.d/static.inc;
}

server {
    listen 443 ssl http2;
    server_name hostname www.hostname;

    set $do_not_cache 1; ## page cache
    set $expire_days 90;

    ssl_certificate     /etc/letsencrypt/live/hostname/fullchain.pem;
    ssl_certificate_key /etc/letsencrypt/live/hostname/privkey.pem;
    ssl_ct off;
    ssl_ct_static_scts /etc/opt/kusanagi/nginx;

    include conf.d/ssl.inc;
    ## OCSP stapling
    ssl_stapling off;
    ssl_stapling_verify off;
    resolver  8.8.4.4 8.8.8.8 valid=300s;
    resolver_timeout 10s;

    access_log  /home/kusanagi/hostname/log/nginx/ssl_access.log main;
    error_log   /home/kusanagi/hostname/log/nginx/ssl_error.log warn;

    charset UTF-8;
    client_max_body_size 16M;
    root  /home/kusanagi/hostname/DocumentRoot;

    include conf.d/505.inc;
    include conf.d/favicon.inc;
    include conf.d/acme.inc;

    include conf.d/hostname.wp.inc;
    include conf.d/static.inc;
    include conf.d/fcache_purge.inc;
}
```

### 試したこと

上記に追加記述しました。

```
server {
listen 80;
server_name www.hostname;
location /aaa/bbb/ccc/ddd/eee/ {
return 301 https://www.hostname/aaa/bbb/ccc/ddd/fff/ggg/;
}
}
```

nginx kusanagi9 でWordpressを運用しています。同一ドメインで旧タームから新タームへのリダイレクトの設定方法。

お世話になっております。

今現在
WindowsServer2008R2Stdで動いていたPerlのシステムを
```
C:\download\ma2test>perl -version

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
```
をWindowsServer2019Stdに移植しようとしております。
```
D:\download>perl -version

This is perl 5, version 28, subversion 1 (v5.28.1) built for MSWin32-x64-multi-thread
(with 1 registered patch, see perl -V for more detail)
```

そのままだと
使用しているjcode.pl内で
```
Can't use 'defined(%hash)' (Maybe you should just omit the defined()?) at ./jcode.pl line 537.
```
となどと出るので下記のようにちまちま変更しています……
【jcode.pl】
```
sub z2h_euc {
    local(*_, $n) = @_;
#    &init_z2h_euc unless defined %z2h_euc;
    &init_z2h_euc unless %z2h_euc;
    s/$re_euc_c|$re_euc_kana/$z2h_euc{$&} ? ($n++, $z2h_euc{$&}) : $&/geo;
    $n;
}
```

変更していくうちにこのままjcode.plを使い続けるより
Jcode.pmにした方が良い気がしたのでお伺いいたします。

使っている部分は
```pl
		$v="$_";
		&jcode'convert(*v,'sjis'); 
```
とconvertしか使っていないのです。

イ）jcode.plでエラーが出そうな部分を修正して使い続ける
ロ）思い切ってJcode.pmを使うようにソースを変更する。

上記どちらが良いと判断付かないので相談に乗って頂けないでしょうか？

ちなみにjcode.plの最新版を入れて動作するか確認したのですが駄目でした。

&jcode'convert(*v,'sjis'); ぐらいしか使っていないのですが
イ）jcode.plでエラーが出そうな部分を修正して使い続ける
ロ）思い切ってJcode.pmを使うようにソースを変更する。
上記イロどちらが良いでしょうか？

以上お問い合わせいたします。

jcode.plを使用しているソースを移植したいが古いのでJcode.pmにしたいが踏ん切りが付かない

メールフォームプロCGI（[このサイトのものです。](https://www.synck.com/contents/download/cgi-perl/mailformpro.html)）
でGoogle reCAPTCHAを設定したいのですが、サーバー側の設定方法がわかりません。
ネットで調べてPHPのやり方はヒットするのですが、CGIのやり方が見つからず困っています。

やってみたことは
・キーの取得
・問い合わせフォームのhtmlファイルに、チェックボックスを配置
・同ファイルにJavaScriptを記載

この後のサーバの設定が知りたいです。
（OS:windows10）

CGIに直接コードを記載するようなのですが、どなたか教えていただきたくよろしくお願いします。
※当方、Perlの知識が皆無です。

CGIのファイルは下記の二つだと思うのですが、
config.cgi
mailformpro.cgi
中身を見る限り、config.cgiのほうにのシークレット キーなどを追記するのではと思っています。

ちなみにPHPファイルを設置してみると、下記のエラーが出てしまいます。

「サイト所有者のエラー
サイトキーのドメインが無効」




********追記***************

お問い合わせフォームのhtmlファイルの<head>内に下記を追記
```ここに言語を入力
<script src="https://www.google.com/recaptcha/api.js"></script>
```
上記と同じ、お問い合わせフォームのhtmlファイルの送信ボタンの前の行に下記を追記

```ここに言語を入力
<div class="g-recaptcha" data-sitekey="[****************]"></div>
```

mailformpro/config.cgi　に

```ここに言語を入力
#!/usr/bin/perl
 
use strict;
use CGI;
use LWP::UserAgent;
use JSON::Parse;
 
my $secret_key = '[*************************]';
my $url = 'https://www.google.com/recaptcha/api/siteverify';
 
my $cgi = CGI->new();
my $ua = LWP::UserAgent->new();
my $recaptcha_response = $cgi->param('g-recaptcha-response');
my $remote_ip = $ENV{REMOTE_ADDR};
my $response = $ua->post(
    $url,
    {
        remoteip => $remote_ip,
        response => $recaptcha_response,
        secret => $secret_key,
    },
);
if ( $response->is_success() ) {
    my $json = $response->decoded_content();
    my $out = parse_json($json);
    if ( $out->{success} ) {
        # 正常処理
    }
}

```

※階層は、contact/index.html　←お問い合わせフォーム
contact/mailformpro/config.cgi ←サーバー側の設定を行ったファイル
となっています。

Google reCAPTCHAをメールフォームプロCGIのフォームに設置したい

### 前提

ここに質問の内容を詳しく書いてください。
（例）
Perlで正規表現で困っています。
正規表現で、それぞれ、ひらがな、カタカナ、漢字をif文でひっかけたいのですが、なかなかうまくいきません。
わかる方、ご教授願えればと思います。
よろしくお願いします。
### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
正規表現で、それぞれ、ひらがな、カタカナ、漢字をif文で捕捉したいのです。

### 発生している問題・エラーメッセージ

```
エラーメッセージは何も表示されていません。
```

### 該当のソースコード

```Perl
use strict;
my $hiragana = 'やまだ';
my $katakana = 'ヤマダ';
my $kanji = '山田';
my $msg = "";
my $flg = 0;
if($hiragana =~ /[\p{Hiragana}]/){
    $msg = 'ひらがなが含まれています\n';
    $flg = 1;
}
if($katakana =~ /[\p{Katakana}]/){
    $msg .= 'カタカナが含まれています\n';
    $flg = 1;
}
if($kanji !~ /[\p{Han}]/){
    $msg .= '漢字以外が含まれています\n';
    $flg = 1;
}
if($flg == 1){
    print $msg;
}
```

### 試したこと
それぞれ、アルファベットや、ひらがなや、カタカナや、漢字を値に入れて試しても、思うように動きませんでした。
「^[\u3040-\u309F]+$」のような書き方も試しましたがこれも、思うようにいきませんでした。

### 補足情報（FW/ツールのバージョンなど）
動かしているのは、レンタルサーバーです。
Perlのバージョンは、5.16です。