Perlコーディング初心者質問スレ Part 67

**nobodyさん** · 2013/12/18(水) 08:49:28.01

ということにしたい工作

**nobodyさん** · 2013/12/18(水) 14:47:58.83

>>15
パイプの替わりにシングルクォートをエスケープしとけ
あと、コマンドインジェクション対策ならパイプのエスケープは有効

**nobodyさん** · 2013/12/18(水) 17:51:32.23

XSS対策って書いてるの、見えないのかな？

**nobodyさん** · 2013/12/18(水) 18:33:22.92

自己顕示欲を満たしたいだけだから何が書いてあるかは問題ではない。

**nobodyさん** · 2013/12/18(水) 23:06:52.10

「体系的に学ぶ安全なWebアプリケーションの作り方」が達人出版会から発売されました。
http://blog.tokumaru.org/2013/11/drmpdf.html

**nobodyさん** · 2013/12/18(水) 23:07:56.87

>>19 実用性につきる

**nobodyさん** · 2013/12/19(木) 11:12:46.44

>>21
へぇ、糞スレ乱立させて前スレも大量に残ってるのに乱立スレに書き込むのがまともなのか
Perl厨のまともってそういうことだったのか

そりゃ>>15みたいな奴ばっかだろうよｗ

**nobodyさん** · 2013/12/19(木) 19:37:49.82

>>27
全くそのとおりだ
ちゃんと飯の話題で有意義に盛り上がっている↓のスレ以外は不要
ttp://kohada.2ch.net/test/read.cgi/php/1358196208/

**nobodyさん** · 2013/12/19(木) 22:01:24.25

>>15はまともだよ
まともなゴミｗ

**nobodyさん** · 2013/12/21(土) 17:41:59.60

>>15はゴミというか精神障害の一種だろう。

**nobodyさん** · 2014/01/14(火) 03:53:34.84

消えろクズが

**nobodyさん** · 2014/03/17(月) 00:51:40.71

この板に常駐しているのって、窂主みたいなもんだよね。

**nobodyさん** · 2014/03/19(水) 02:43:57.09

窂ってなに？

**nobodyさん** · 2014/03/20(木) 20:06:03.28

ろう

**nobodyさん** · 2014/03/21(金) 02:38:24.32

そのままググるとかできんの？

**nobodyさん** · 2014/03/21(金) 11:29:43.94

そんなくろうは竹刀

**nobodyさん** · 2015/07/03(金) 21:51:13.46

チェックで人を選んで、
選ばれた人だけにメールを送信するというプログラムを書きました。

@memberに送信者が代入してあります。
print SDML @member¥n
といった文です。

サーバを同じ会社内で変更しました。
phpは5.0から5.1に変わったようですが、
Perlに関しては何も知らされていません。

以前は問題なかったのですが、
特定の人が含まれた複数人にメールを送信しようとすると、
何時間たっても一定時間をおいて再送信が止まりません。
送信時間が9時だとしたら、
その後何時に受信しても9時送信として受信されます。
1時間に2通送信されることもあるようです。

何時間もたっているのに未だに繰り返されているようです。
cgiのパーミッションを調整しても、
ファイル名を変えても、
され続けてるようです。

その特定の人のアドレスはソフトバンクのキャリアメールで、
RFC規格に違反してない、
アルファベットと数字だけのアドレスです。

その人だけで送れば問題ない。
その人を含まない複数人へのメールも問題ない。
その人が含まれた複数人メールで発生する。

これは何が原因でしょうか？

**nobodyさん** · 2015/11/25(水) 22:45:47.89

xの2乗を x^2 と書いてた。
エラーが出ないのに計算結果がおかしく1日無駄にしたorz...

**nobodyさん** · 2015/11/26(木) 10:40:07.15

転職の際に必ず思い出してください。
下記の条件が全て当てはまる会社にご注意下さい。

・IT系 in 東京
・転職会議で2.5点
・転職会議の「その他>2ch情報」の欄で過去の労基2chスレが表示される

**nobodyさん** · 2015/11/26(木) 20:20:30.05

Perlなあなたが苦労して取得した資格の平均最低月給ランキングは第何位？
民間や国家が認定している仕事の資格や免許。
その求人雇用市場での価値が一目瞭然で分かる。
（全求人情報平均最低月給196,500円）

ぼくらニッポンの民間・国家資格別平均最低月給ランキングはこれだ！

http://jobinjapan.jp/license/

**nobodyさん** · 2015/12/12(土) 16:52:11.72

perl6ってクリスマスに出るの？

**nobodyさん** · 2016/02/05(金) 20:14:44.16

桐光学園中学校男子部 | 中学受験の情報サイト「スタディ」

彼女の顔と性行伊は画像で確認

★検索ワード「　稲城市立向陽台小学校評判Y子　」★

今年転校するので許してください。

桐光学園中学校評判　ザキシマ　結子

**nobodyさん** · 2016/02/12(金) 09:24:09.19

ある詐欺まがい会社が全国的に巧妙な騙しをやっています
その騙しの手口を書いて2chでみなさん「こういう手口で冷ます業者に気をつけて」という
警戒分を書いてる方が多く居るのです、運営側はその公益性を認めて削除しないでいて
くれるのですが詐欺業者は、その事が気に喰わないらしく（まして警察にも訴えられない）ので
その警戒を書いたスレッドをあっというまに、一番上から最底辺（スレッドの番号700くらい）
まで落としてしまう技術を使ってます。
しかし削除はされないので被害者の方がまたageるのですが、いったいどういうワザを使うのでしょう？
最低に沈める方法で「soko」って言うのが一時噂されましたがガセネタみたいです
最低の700から板のtopにあがって来た後に必ず
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
板復帰(NG!:Gather .dat file OK:NOT moving DAT 723 -> 723:Get subject.txt OK:Check subject.txt 723 -> 723:fukki NG!)load averages: 1.72, 1.92, 1.98
sage Maybe not broken
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

っていう表示が出てます。お願いします。詐欺まがい業者が、運営に削除依頼出しても
公益の為に削除されないので、こまめにスレッドの最底辺に沈めてるんだと思うんです。

**nobodyさん** · 2016/03/06(日) 19:39:56.36

フリー配布のメッセージフォーム（kentさんとか）を使っていて（cgiやpl関係も配布のもの）
今までずっとmethod="get"で使っていたことに気が付きました
postにあらためたいのですが、単にHTML上で
method="post"に書き換えるだけでOKでしょうか？

**nobodyさん** · 2016/03/07(月) 07:34:02.24

kentなんてまだ使ってるのかよ。
kent使っていいのは2000年までだぞ。

**nobodyさん** · 2016/03/07(月) 21:39:08.81

そんなこと言わずに

47 · 2016/03/23(水) 03:45:14.54

PerlでCGIの勉強をしています。
フォームで文字列入力→入力された文字列を表示、としたいのですが、
日本語だけ文字化けしてしまいます。
鯖のPerlのバージョンは5.18.1です。

できるだけモジュールを追加せずにやりたいのですが、
何か方法はありますか？

ソースを載せるので、何か気になる点があれば指摘して頂けると助かります。
次レスからソースです。

47 · 2016/03/23(水) 03:46:54.60

規制されてしまった？

**nobodyさん** · 2016/03/23(水) 10:33:37.94

>>47
標準で付属しているモジュールを使え

47 · 2016/03/23(水) 17:16:11.81

何か禁止ワードとやらで、ソース載せられないみたいなのでファイルのURL貼ります。
POSTを使って、データを渡そうとしています。
アルファベット（abcなど）では問題無く動くのですが、
日本語だけ正しく表示されません。

ttp://fast-uploader.com/file/7014228125322/

ファイルは1つです。
行数は42行です。

47 · 2016/03/23(水) 17:22:05.42

この状態でPOSTから「あいうえお」といった文字列を渡すと、
変換後：name=31231431631831A
と表示されてしまいます。

Perl単体でURLエンコード・デコードを試したところ、正常に動いたのですが、
CGIにすると正常に動きません。

use utf8を使っていますが、最初は使っていませんでした。
その状態で正常に動かないため、色々試して、今はuse utf8をつけています。

47 · 2016/03/23(水) 18:19:20.51

すいません自己解決しました。
単純にコードが間違っていました。
URLデコードの部分で間違ってました。

**nobodyさん** · 2016/04/16(土) 16:30:20.68

MacのOS X El Capitan 10.11.4.を使って、そこに入っているperl（v5.18.2）を使っています。
以下のようなコード（問題点だけに刈り込んであります）:

use utf8;

binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

@line = <>;
$lines = join "", @line;
$lines =~ s/今すぐ聴く//;

入力はlynx的なものでwebのページをテキストとして取ってきたものをパイプで流し込んでいます（automatorの"get specified URLs"）。

で最後の行のマッチが入力データ内の「今すぐ聴く」とマッチしません。
いろいろためしてみると「ぐ」がマッチしません。
マッチストリングの「ぐ」を . にすればマッチします。
他にも「で」がマッチしません。

どこが間違っていますか？これをマッチさせる方法はありますか？

ソースはautomatorの上で書いています（"run shell script"の欄の中）。

私の推測ですがMacはファイル名がunicodeのNFD（「か」＋「゛」）ですがW3CはNFC（「が」）だということなので、これが原因ではないか？
なのでMac内ではすべてNFDつまりperlのソースコードもNFDなのでマッチしないのでは、と思い始めていますが
これ以上は私には検証しようがありませんでした。

**nobodyさん** · 2016/07/11(月) 18:36:56.34

あるサイトからTreeBuilder使って任意の情報を抜き出そうとしてます。
対象のサイト内で、Ajax使ってiframeなんかで遅延表示している文字列も含めて
最終的に表示されている文字列を取得したいんですが良い方法ありますか？
（Ajaxで定期更新してる場合はとれるタイミングは問わず）

**nobodyさん** · 2016/07/15(金) 19:55:04.46

画像掲示板をカスタマイズして使っておりますが、
Windows10のIEで投稿した場合、投稿後に、
「フォームを再送信しますか」という確認が出ます。

これを回避するにはどうしたらいいでしょう？

55 · 2016/07/16(土) 09:09:24.29

refreshでリロードせずに、一旦別ファイルに飛ばして戻すようにしました。

**nobodyさん** · 2016/08/29(月) 21:41:30.50

昔作者のHPで配布されてたjcode.pl の作者公式ベータ版は v2.13.1 v2.13.2 v2.13.3 の3つだけでしたっけ？
本業は翻訳家らしい歌何とか先生のホームページを何年ぶりかにググって見てみたらよく分からない日記帳になってて
jcode.plの痕跡すらないので気になって。
今更jcode.plもないだろうってことで2.13までしかないFTPサイト以外消しちゃったんかな？

**nobodyさん** · 2016/08/30(火) 22:47:26.91

そりゃなぁ、Perl本体にjcodeよりも
優れたモジュールが入ってるんだから

**nobodyさん** · 2016/08/31(水) 05:22:07.25

作者のHPのURLを入れれば見れる可能性が微レ存
http://archive.org/web/

**nobodyさん** · 2016/09/01(木) 23:09:15.37

当時jcode.plは空気のように当たり前の存在だったから
密かに置いてあったベータ版もWEB ARCHIVEに保存されている可能性は高いけど
まず当時の作者URLを見つけるところから始めないとなｗ

でも　jacode.pl　がjcode.plの改良品なんだから
多分jcode.plベータ版の機能も含んでいるはずだよ

**nobodyさん** · 2016/09/01(木) 23:59:03.66

jacodeググって見つけました。
http://d.hatena.ne.jp/foussin/20111218/1324157166

jcode.pl (Perl4) → jacode.pl (Perl4) → Jcode.pm (Perl5) → Encode.pm (Perl5.8 標準モジュール)

ってことで、Encode.pmを使うのが良いみたいですね。

**nobodyさん** · 2016/09/03(土) 08:06:07.38

http://web.archive.org/web/20090608103250/http://srekcah.org/jcode/2.13.0/

見つけたぞオラァ！

**nobodyさん** · 2016/10/15(土) 10:20:50.06

Fedora24server Perl v5.22.2です。

# /usr/bin/perl
use bigint;
Can't locate bigint.pm in @INC (you may need to install the bigint module)

と出た場合は何かインストールしなければならないでしょうか。
試しに↓やってみましたが、変化無しです。

dnf -y install perl-Math-BigInt-GMP-1.49-2.fc24.x86_64

find / -name bigint.pm でも見つかりませんでした。

**nobodyさん** · 2016/10/15(土) 12:43:37.58

よく見たらほとんど休眠スレじゃんw

自決。↓でOKでした。

dnf -y install perl-core

**nobodyさん** · 2017/01/13(金) 16:17:07.94

PerlでSMTPで複数人にメールを送信する時、
toに配列を指定すると受信者のto欄がレンタルサーバーのプロキシーアドレス？になってしまいます。
メール自体は届く人に正しく届いています。

$mail_header .= 'To: '.@JUSINSHA.

**nobodyさん** · 2017/01/13(金) 16:26:27.79

$mail_header .= 'To: '.@JUSINSHA."\n";
$SMTP->to(@JUSINSHA);

このようにしてますが、
@JUSINSHAをどうすれば良いのでしょうか？

**nobodyさん** · 2017/01/13(金) 19:11:21.12

もう一つ教えてください。
文字コードはUTF-8なんですが、
メールで受信した時チェックボックスの値だけ文字化けしてしまいます。
PC画面に表示させると内容は含まれています。
encode/decodeかけると何かの数字になってしまうようです。

チェックボックスの値をメールで表示させるにはどうしたら良いですか？
CGI.pm, SMTP, Encode.pm使ってます。

**nobodyさん** · 2017/03/17(金) 10:11:40.59

⬆︎ これOKにするにはどうしたらいいの？

**nobodyさん** · 2017/03/30(木) 23:05:13.55

>>68
死ねばいいと思うよ。

**nobodyさん** · 2017/04/05(水) 18:08:07.41

>>68
HTML::Entities を使う

**nobodyさん** · 2017/12/30(土) 14:57:13.59

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

ZSF79J7FO5

**nobodyさん** · 2018/03/06(火) 12:57:54.07

test

**nobodyさん** · 2018/03/18(日) 10:28:26.10

perlでサーバーAで計算した値をサーバーBに送り表示することってできますか？
できるならどうやるんですか？
できればモジュールなくても使える方法がいいです。

**nobodyさん** · 2018/03/18(日) 10:30:37.70

質問するスレ間違えたけどまあいいです

**nobodyさん** · 2018/06/20(水) 21:57:03.99

プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

9DA3S

**nobodyさん** · 2023/03/13(月) 00:34:41.26

(*￣-￣)y─┛~~

**nobodyさん** · 2023/05/09(火) 15:39:40.82

ここって息してる？

cmd画面とエラーファイルに同じメッセージ出すのに
2回printしてるんだけど1回で済ます方法ってあるのかな？

**nobodyさん** · 2023/05/09(火) 22:20:52.00

IO::Teeで調べて

**nobodyさん** · 2023/05/10(水) 08:54:04.26

あー。その::でつなげるやついっこも理解できてない。

**nobodyさん** · 2023/05/10(水) 08:56:15.91

print hErr,STDOUT "入力情報に誤りがあります";
みたいなさらっとした書き方が無いならまぁ、ええかってなってる。

**nobodyさん** · 2023/05/11(木) 21:56:59.74

>>79
「perl IO::Tee」でグーグル検索して、右クリックで「日本語に翻訳」

**nobodyさん** · 2023/05/12(金) 13:32:02.10

教えてくれてありがたいけど、なんつーか、::でつなげて使うモジュール？ってやつを
使えるようにする「環境の作り方」がわからん。
ってかクソ古いバージョン使ってるから果たして組み込めるのかってところもわからん。

**nobodyさん** · 2023/05/19(金) 23:00:03.35

:: は、UNIX なら / で Windows なら \ に相当する。
ファイルシステムでの区切り文字だと考えればよい。
モジュールのファイルは配列変数 @INC に格納されているフォルダを順番に見て探す。
print join("\n",@INC);
でもして、@INC を確認して、そこにモジュールのファイルを格納すればよい。
あるいは自分で "mylibdir" というフォルダを作成してそこにモジュールを入れたなら、
BEGIN { push @INC, "mylibdir"; } を実行して、use MYLIB::Foo; などとすればよい。

**nobodyさん** · 2023/05/23(火) 11:44:42.58

@INC の中身
.
だって。ぇぇ…。

「あるいは～」を試してみます。ありがとう。

**nobodyさん** · 2023/05/23(火) 11:54:46.27

ああ。CPANが理解できなくてファイルをDLできなかったんで、
この程度のことができない俺にはこの先は無理だなって昔あきらめたんだったわ…。

**nobodyさん** · 2023/05/24(水) 13:32:15.12

msys2をWindowsにインストールしてPerlを使う
https;//perlzemi.com/blog/20180806153350.html

**nobodyさん** · 2023/05/24(水) 13:36:11.97

Perl - ArchWiki
https;//wiki.archlinux.jp/index.php/Perl

**nobodyさん** · 2023/05/25(木) 11:48:27.63

あー。そういうコンソール(？)が要るのね。
cmdとかplで cpan て入れてもエラーとしか言わないからぐだってた。

ちょっと試したら動いた。なんか設定が足りてない雰囲気でNo such fileとか言われたけどもうちょい調べたらいけそう。
いやまじありがとう。

**nobodyさん** · 2023/05/27(土) 00:02:03.04

10年ぶりぐらい久しぶりというか偶然perl板に来た
でUbuntuのターミナルで下記をコマンドすると
エラーが出たのでChatGPTで聞いてみた
print join("\n",@INC);
下記のエラーが出ます。
bash:予期しないトークン '('周辺に構文エラーが有ります。
このエラーの意味が理解できません。
print join("\n",@INC);これのどこが間違っているのでしょうか？
ChatGPT
ターミナルで実行するコマンドは、Perlのコードのようですね。ただし、bashシェルで実行しているため、エラーが発生しています。
bashシェルでは、Perlのコードを直接実行することはできません。Perlコードを実行するには、Perlのインタプリタを使用する必要があります。
以下は、Perlのコードを実行する方法です。
Perlのインタプリタをインストールしていない場合は、まずPerlをインストールしてください。
Perlのスクリプトファイルを作成し、その中に以下のコードを記述します。
perl
Copy code
print join("\n", @INC);
作成したスクリプトファイルを実行するために、ターミナルで以下のコマンドを入力します。
Copy code
perl スクリプトファイル名.pl
ここで、「スクリプトファイル名.pl」は、作成したPerlスクリプトファイルの実際のファイル名です。
これにより、Perlのインタプリタが起動し、指定したコードが実行されます。@INCは、Perlのモジュールの検索パスを示す特殊な変数であり、上記のコードではモジュールの検索パスを改行で区切って表示しています。User
なれることを願っています。

これ見てそうだperlのコマンドだった
正確に教えてくれたわと気づいた

**nobodyさん** · 2023/06/07(水) 02:02:50.14

こんにちは、これはBingです。😊
あなたのメッセージは、PerlとPythonのコードとエラーメッセージを含んでいますが、どちらの言語でヘルプが必要ですか？

わかりました。Perlのコードはbashではなく、perlコマンドで実行してください。例えば、ターミナルで以下のように入力します。

perl -e ‘print join(“\n”,@INC);’
これで、Perlのモジュールを探すパスのリストが表示されるはずです。

**nobodyさん** · 2023/08/20(日) 22:08:57.30

一念不動