常連

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

### 実現したいこと

大元のファイルのカンマ区切りの先頭が、
比較対象のファイル内の行と一致する行を、**除外**したいです。

**▼データのイメージ**

大元のファイル：`src.txt`

```
10,0
9,0
8,0
7,0
6,0
5,0
4,0
3,0
2,0
1,0
```

比較対象のファイル：`dst.txt`

```
1
2
3
4
5
```

**▼期待される出力結果**

`src.txt`のうち、「`5,0`」~「`1,0`」の5行が
除外されたテキストが、出力される。

最終的な出力結果は、ソートされていなくてもOKなものとする。

```
10,0
6,0
7,0
8,0
9,0
```

### 前提

`src.txt`側が数百万行単位の大規模データとなっても、
実行時間を短縮できるように、なるべくパフォーマンスを重視したいです。

PythonやPHP等のスクリプト言語で、
配列ループ・配列の要素判定をする方式であれば、
比較的容易に実現可能ではありますが、実行速度に難がある状態です。

また、古いシステムでも利用できるように、
可能な限りbashやperl辺りで完結させたいと考えております。

### 試したこと

commコマンド、cutコマンドを組み合わせるやり方では、
`src.txt`側に元々入っている付属情報が抜け落ちてしまっています。
（最終的には、`,0`の部分まで、該当の行全体が出力されるようにしたい）

```bash
$ comm -23 <(sort src.txt | cut -f 1 -d ',') <(sort dst.txt)
10
6
7
8
9
```

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

* CentOS 6.6
* bash 4.1.2
* perl 5.10.1
* Python 2.6.6

2ファイル間で、カンマ区切りの範囲で一致する行を、除外するには

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
・Perl5.16.3をビルド/イントールして、perlを使えるようにしたい。

### 前提

RHEL9.2環境に既存環境と同じバージョンのPerlをインストールしようとしています。

同等バージョンのファイルを使い、
以下手順で圧縮ファイルの取得からインストールを実施したのですが、
"# make install"を実施するとエラーが表示されてインストールが失敗します。

> su -
> wget http://www.perl.com/CPAN/src/perl-5.16.3.tar.gz
> unzip perl-5.16.3.tar.gz
> cd perl-5.16.3
> ./Configure -Dprefix=/usr -Dscriptdir=/usr/bin -des -Dusedtrace=/usr/bin/dtrace -DDEBUGGING=-g -Dusethreads
> make
> make install

当時の構築者も既におらず、構築時のログも無く、
私自身もコンパイルについては知見がなく、
make時のログから以下ログの内容に問題がありそうなことまでは特定できたのですがどのように対応すればいいのか分からず質問させて頂きました。
>pp.c:3430:54: error: 'struct crypt_data' has no member named 'current_saltbits'

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

```
make installでの出力及びエラー内容全量を記載します。
> [root@stag1 perl-5.16.3]# make install
> make install.perl install.man STRIPFLAGS= DESTDIR=""
> make[1]: Entering directory '/home/t2462/20240422_tmp_perl_test/perl-5.16.3'
> `sh  cflags "optimize='-O2 -g'" pp.o`  pp.c
>           CCCMD =  cc -DPERL_CORE -c -D_REENTRANT -D_GNU_SOURCE -fpcc-struct-return -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64  -O2 -g  -Wall
> pp.c: In function 'Perl_pp_crypt':
> pp.c:3430:54: error: 'struct crypt_data' has no member named 'current_saltbits'
>  3430 |             PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits = 0;
>       |                                                      ^~
> make[1]: *** [makefile:253: pp.o] Error 1
> make[1]: Leaving directory '/home/t2462/20240422_tmp_perl_test/perl-5.16.3'
> make: *** [makefile:535: install] Error 2
> [root@stag1 perl-5.16.3]#
```

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

```ここに言語名を入力
1万行に及ぶmakefile内容を記載すればいいのか、それともConfigureあるいはmake実施時のログを添付すればいいのか判断もつかず、
差し当たりエラーの出ている「pp.c」の3430行目前後の内容を記載させて頂きます。

   3399
   3400 PP(pp_crypt)
   3401 {
   3402 #ifdef HAS_CRYPT
   3403     dVAR; dSP; dTARGET;
   3404     dPOPTOPssrl;
   3405     STRLEN len;
   3406     const char *tmps = SvPV_const(left, len);
   3407
   3408     if (DO_UTF8(left)) {
   3409          /* If Unicode, try to downgrade.
   3410           * If not possible, croak.
   3411           * Yes, we made this up.  */
   3412          SV* const tsv = sv_2mortal(newSVsv(left));
   3413
   3414          SvUTF8_on(tsv);
   3415          sv_utf8_downgrade(tsv, FALSE);
   3416          tmps = SvPV_const(tsv, len);
   3417     }
   3418 #   ifdef USE_ITHREADS
   3419 #     ifdef HAS_CRYPT_R
   3420     if (!PL_reentrant_buffer->_crypt_struct_buffer) {
   3421       /* This should be threadsafe because in ithreads there is only
   3422        * one thread per interpreter.  If this would not be true,
   3423        * we would need a mutex to protect this malloc. */
   3424         PL_reentrant_buffer->_crypt_struct_buffer =
   3425           (struct crypt_data *)safemalloc(sizeof(struct crypt_data));
   3426 #if defined(__GLIBC__) || defined(__EMX__)
   3427         if (PL_reentrant_buffer->_crypt_struct_buffer) {
   3428             PL_reentrant_buffer->_crypt_struct_buffer->initialized = 0;
   3429             /* work around glibc-2.2.5 bug */
   3430             PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits = 0;
   3431         }
   3432 #endif
   3433     }
   3434 #     endif /* HAS_CRYPT_R */
   3435 #   endif /* USE_ITHREADS */
   3436 #   ifdef FCRYPT
   3437     sv_setpv(TARG, fcrypt(tmps, SvPV_nolen_const(right)));
   3438 #   else
   3439     sv_setpv(TARG, PerlProc_crypt(tmps, SvPV_nolen_const(right)));
   3440 #   endif
   3441     SETTARG;
   3442     RETURN;
   3443 #else
   3444     DIE(aTHX_
   3445       "The crypt() function is unimplemented due to excessive paranoia.");
   3446 #endif
   3447 }
   3448

```

### 試したこと

・インストール資材を再取得し、同手順で再試行。
(追記1)
・アドバイスに従い、リンク先の内容からpp.cを修正。
　改めてmake installを行うも異なるエラーで失敗。
　記載文字数の都合で、melianさんのコメントへの返信にエラー内容を追記させて頂きました。

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

バージョン情報については、上記本文内に記載内容となります。


perlのインストールでエラー

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

メールフォームプロ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のフォームに設置したい

いつもお世話になります。

ログイン型の小規模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の違いは何でしょうか

問題のない環境
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」となります。

プログラムソースコードを出来るだけ変更せずに新サーバに移行したいので、設定で変えられると非常に助かるのですが、何かご存じの方がおられましたらアドバイスいただけますと幸いです。