常連

```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のエラー原因がわからない

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」エラーの対処法

### 実現したいこと

Windows上でPerlの開発環境を構築する過程で、`cpan -u`でデフォルトのモジュールを更新したいです。

### 前提

Perlをwindowsで開発する際、Strawberry PerlとMSYS2の2パターンがあると思いますが、
Strawberryでは同梱されてるgccやmakeにPathを通さないといけません。
普段のC/C++の開発でucrt64のgccをPathを通して使っているので、これはあまりやりたくありません。
そこで、MSYS2の`make`にPathを通してみたりしたのですが、Perl側では`gmake`を、MSYS2側では`make`を使っているのでそのあたりの差の解消がややこしいです。
それが気に入らず、MSYS2の中で構築することにしました。
また、ucrt64で試したりしましたが、sys/wait.hなどのlinux固有のインクルードファイルはMSYS2でしか使えないようです。

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

`cpan -u`を実行して全モジュールをアップデートすると、ほぼ全てにおいて、
`/usr/bin/make -- OK`にはなるのですが、`/usr/bin/make test -- NOT OK`になってしまいます。

### 試したこと

```
//hint// to see the cpan-testers results for installing this module, try:
  reports モジュール名
```
というメッセージがあったので、cpanのshell上で`reports モジュール名`を実行しても、必ず
```
Distribution: モジュール名
CPAN::DistnameInfo not installed; cannot continue
```
と表示されます。
`cpan[0]> install CPAN::DistnameInfo`を実行しても、`/usr/bin/make test -- NOT OK`となります。
`reports GBARR/CPAN-DistnameInfo-0.12.tar.gz`を実行しても、先ほどと同じ、
```
Distribution: G/GB/GBARR/CPAN-DistnameInfo-0.12.tar.gz
CPAN::DistnameInfo not installed; cannot continue
```
が表示されてしまいます。
ここで詰んでしまっているのが現状です。

### 現在の考え

WindowsでPerlの開発をするのは難しそうだと感じています。
VirtualBoxのUbuntuやdockerで`cpan -u`すると問題なく更新できるので、Windowsは諦めて、仮想環境上で開発するべきではないかと考えています。
他のみなさんはどのようにPerl開発をしているのか教えていただけると幸いです。

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

MSYS2 (`cat /proc/version`)
MSYS_NT-10.0-19045 version 3.4.6.x86_64 (runneradmin@fv-az411-253) (gcc version 11.3.0 (GCC) ) 2023-04-01 11:43 UTC


WindowsでのPerl開発環境

いつもお世話になります。

ログイン型の小規模WEBサービスを作りたいと思っています。

ユーザーは特定少数(100人以下)なので、不特定多数に公開するサービスほどセキュリティに神経質になる必要性は少ないのかもしれないですが、それでもやはり脆弱の温床になることは避けたいと思っています。

一度、そのようなシステムをPerlで作ったことはあります。(100時間～くらいかかりました)
そのときはライブラリを極力使わず、可能な限り自分でコーディングしました。
(使ったのは、HTMKL::Templateと文字コード変換系ぐらい)
よくPerlではCGI.pmを使うようですが、「自分でできる部分はライブラリを使わない」をモットーにがんばってました･･･

別にそのときのシステムに不満があるわけではないのですが、そのときはDBを使わず、すべてテキストファイルにさまざまな情報を保存していました。(ユーザーの情報を)
今回、MySQLを使ってみようと思っているのですが、「自作のログインシステムは脆弱性の温床になる」という記事を見かけ躊躇しております。

どうしても自分で把握できない部分(具体的にはライブラリやDBアクセス)への攻撃が想像つきません。

大量の個人情報を扱う、ということはないのですが、やはりこの一言が気になってしまいました。
仮にCGIに脆弱性がなくてもOSの設定に脆弱性があったら元も子もないと思います。

まとめると
**・可能な限り外部ライブラリを使わずに自作したい**
**・ログインシステムは自作してもよいのか(ダメならオープンソース等教えてください)**
**・脆弱性を生まないためにはどうすればよいのか(参考サイト/書籍を教えてください)**
このあたりについて皆様の意見をいただけますと幸いです。
(OSはUbuntuを想定しています)

---
**以下指摘がありましたので別の質問として投稿させていただきます**
**既に回答くださった方ありがとうございます。今後は別ｽﾚでお願いいたします**

また、今回の件に限らず、攻撃に対する対策というものがいまいちよくわかっていません。
自宅サーバーを持ってはいますが、ほとんどのソフトをデフォルト設定で使っているような状態です。
(せいぜいデフォルトのポート番号を変更する程度)
(SSH、FTP、HTTP、ファイル共有(Localで使用)、無線LANのAP、ゲーム鯖(Minecraft)等)
どれも不特定多数を相手にするものではありませんが、インターネットからアクセスできる以上、最低限のセキュリティ対策はしたいと思っています。(盗まれて困る情報は皆無ですが、踏み台にされるのが怖い)

攻撃に対する対策について詳しいサイト等ありましたら教えていただけますと幸いです。
(かならずこれは読むべき!!!という書籍がありましたらあわせて紹介していただけると幸いです)





また、今回の件に限らず、攻撃に対する対策というものがいまいちよくわかっていません。
自宅サーバーを持ってはいますが、ほとんどのソフトをデフォルト設定で使っているような状態です。
(せいぜいデフォルトのポート番号を変更する程度)

攻撃に対する対策について詳しいサイト等ありましたら教えていただけますと幸いです。
(絶対にこれがいい!というような書籍がありましたらあわせて紹介していただけると幸いです)

ログインシステム(WEB)　自作?危険?セキュリティ対策は?

タグをいくつもつけて申し訳ありません。

現在PythonでWebアプリのようなものを作ろうとしているものです。

質問の件は表際のとおりですが、今までWebプログラミングといえばVBScriptによるCGIプログラミングとWordPressのプラグインの文面を少し書き換えた程度の人間なので、つい最近（この質問を書く時）まで
「CGIはスクリプトにアクセスがあった際に実行され、Webアプリは常に常駐している」
ということを知りませんでした。また、CGIが使われなくなった要因として、何度もスクリプトが立ち上がると、サーバーに負荷がかかってしまうこともはじめて知りました。

しかしまだ腑に落ちないところがあり、もやもやしています。
自分の作っているプログラムはPythonで作っているものの、正直CGIでも事足りそうなので、Apacheにmod_fscgiを入れるなりしてCGIとして動かしてもよい気がします。なのに（というと失礼かもしれませんが）周りを見てみるとしっかりフレームワークを使って製作している事例が多い気がします。

フレームワークを使うと便利なのはわかるのですが、自分はWebやHTTPへの理解が浅いためか、Webフレームワークを使って作ろうとすると逆に混乱してしまいます（ただ単にMVCモデルになれていないだけなのかもしれませんが）

ということで、CGIとWebアプリには何かもっと根本的なところで違いがあるような気がしてならないのですが、私の思い過ごしでしょうか？

取り留めのない駄文で申し訳ありません。失礼します。

WebアプリとCGIの違いは何でしょうか

メールフォームプロ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の書籍だったでしょうか。
最初は、クロシージャと読み間違え、プロシージャの誤植だと思ったのですが違いました。
その頃は、そんなもの無くてもプログラミング出来てました。(今もやってますが)

時は流れて、JavaScriptが大流行、Java8がリリースされる頃になって
やたら？たまに聞くようになってとっても気になるクロージャですが、
どうもいつまで経ってもわかった気になりません。

もちろん、色々なサイトや書籍で事あるごとに説明を読むのですが、
私の理解では、ざっくり関数内のstatic変数？ くらいの認識までにしか至らずに今まで参りました。

自分のあずかり知らぬところで世の開発者の皆様はクロージャーを日々駆使しているのでは無いかと思うと夜も眠れません。(もちろん嘘ですが)
何かそのせいで、自分のコーディングは日々回り道をしているのではととても気になります。
(Javaのインターフェースが分かった時には、パーン！みたいな感動があったので、もしかしたらそのようなことがあるのではと思ってます)

前置きが長くなりましたが、テラテイルだからこそこのような質問に答えてくれる方がいるに違いないと思い、恥を忍んで質問いたします。

他のサイトや書籍で読める説明的な説明はいりません。
クロージャに関して、以下の様なことを教えて下さい。

- クロージャってひとことで言うと何？ (多少語弊のある表現でも構いません)
- 分かった！って思った瞬間を覚えていたら、その時のことを教えて下さい。
- 結局、どんな時に使いますか？ 短いコードで表せたら知りたいです。
- タグに上げた以外でクロージャを使える言語はありますか？
- もしよろしければ、理解のための例題をくださると嬉しいです。
- 上記以外で、理解のためのに必要なことがあれば、とにかく教えて下さい。

全てでなくてもいいです、答えられることだけで構いません。

お忙しい中めんどくさい質問ですいませんが、よろしくお願い致します。

---
**追記** 2016/07/14 1:00

言語ごとに多少なりとも解釈や用途が違うということがあると思います。
その場合、統括的な解説なのか、言語特有な説明なのか明示して頂けると齟齬もなくなるかと思います。

では、改めてよろしくお願い致します。

恥ずかしながらクロージャが分かりません。

問題のない環境
OS: Debian 5.0.10
WEB: Apache 2.2.27
LNG: Perl 5.10.0　DBI:1.631　DBD:1.32
DB: PostgreSQL 7.2.6

問題が発生する環境
OS: CentOS 7
WEB: Apache 2.4
LNG: Perl -　DBI:-　DBD:-
DB: PostgreSQL 12

例：
$conn->do("UPDATE tblName SET integerColomun='', stringColomun='' WHERE id='$LOGINID'");

上記例文を実行すると、古い環境ではinteger型のカラムに0が保存されるのですが、リプレース用に新規構築したサーバでは「ERROR: invalid input syntax for type integer: "" LINE 1」となります。

プログラムソースコードを出来るだけ変更せずに新サーバに移行したいので、設定で変えられると非常に助かるのですが、何かご存じの方がおられましたらアドバイスいただけますと幸いです。