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

**nobodyさん** · 2008/08/06(水) 22:54:32

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1203935151/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2009/02/11(水) 19:17:33

map 期というものが perler にはあってだな。。。

**nobodyさん** · 2009/02/12(木) 01:21:39

cronを使用して自動でディレクトリのファイルを監視するプログラムをperlで作成しています。
その際予期しないファイルを発見した時、外部サーバーのphpファイルへhttpアクセスするという
事を行いたいのですがどのようにすればよいのでしょうか？

流れは以下のようになります。
1.perlが予期しないファイルを発見する。
↓
2.perlからhttp://www.hoge.com/check.php?g=1へアクセスを行う。
↓
3.check.phpが引数を取得して処理をする。

上記処理を自動で行いたいのですが。
どなたかお解かりになる方、ご教示お願い致します。

**nobodyさん** · 2009/02/12(木) 01:29:57

>>952
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq9.html#how_do_i_fetch_an_html_file

**nobodyさん** · 2009/02/12(木) 08:59:48

その通りに書けばいいだけだと思うのだが...

**nobodyさん** · 2009/02/12(木) 09:06:47

>>952
うｐロダの違法ファイルとかの処理なのかと思ったけど、
エロ画像を検出するモジュールなんて流石にないかｗ

**nobodyさん** · 2009/02/12(木) 09:26:47

何処が分からないのか具体的に書かないとレス付かないよ。

**nobodyさん** · 2009/02/12(木) 12:30:22

おそらくは

あぷうろだを運営しています
ファイルがアップされたときにファイルの中身をプログラムでチェックしており、
あやしいファイルがアップされたときに外部のURLへ通知を行いたいのですが
どのようにやればいいのか分かりません

なのかな？
だとすれば >>953 にある
use LWP::Simple;
$content = get($URL);
で解決します

**nobodyさん** · 2009/02/12(木) 12:36:09

>>957
単にリダイレクトするだけでよい可能性もあるなｗ

**nobodyさん** · 2009/02/12(木) 12:37:01

>>957
＞あやしいファイルがアップされたときに
どう考えても、ここが一番頭を使いそうなものだが

**nobodyさん** · 2009/02/12(木) 16:47:42

文字列の中の複数の文字を入れ替える事を目的としています

$test = '文字列の中の複数の文字を入れ替える事を目的としています';
$test =~ s/文字列/Peal/g;
$test =~ s/目的/CGI/g;
としても駄目でした。
複数の文字列を入れ替える方法をご存知でしたらご教授願います。

**nobodyさん** · 2009/02/12(木) 16:51:46

駄目と言うと？

**nobodyさん** · 2009/02/12(木) 16:57:41

>>961
作業していた文字の中に表現文字が入っていたみたいで正常に作動してなかったみたいです。
実際に使っているコードを見せないと駄目ですよね。以後気をつけます。
ご返答ありがとうございました。

**nobodyさん** · 2009/02/12(木) 17:25:17

quotemeta でもやっとけ

**nobodyさん** · 2009/02/12(木) 17:36:07

なぞの「表現文字」について

◆TWARamEjuA · 2009/02/12(木) 23:44:20

clamavに通していたりします♪＠うｐファイル

◆TWARamEjuA · 2009/02/12(木) 23:45:38

(´-`).｡ｏＯ(昨夜のRock54不具合と同じ事かぁ。。。)

**nobodyさん** · 2009/02/13(金) 09:47:26

トリップ付けるやつにろくなやついないなｗ

**nobodyさん** · 2009/02/14(土) 01:31:17

Imagerでjpeg読めないんだけど

**nobodyさん** · 2009/02/14(土) 10:44:28

まずは、これ動かしてみれ。
これに含まれてないフォーマットは読めない。

use Imager;

my @types = Imager->read_types;
print "@types\n";

**nobodyさん** · 2009/02/14(土) 11:43:20

ppm.tcool.orgから持ってきた0.67使ってるんだけど、それやると
sgi
bmp
ico
pnm
tga
raw
ってなるんだよね。前はjpegも使えたと思うんだけど。アップデートしたときかな

**nobodyさん** · 2009/02/14(土) 19:47:40

>>970
煽り口調でブログのエントリ書くと、低姿勢で速効対応するよ

**nobodyさん** · 2009/02/14(土) 19:51:11

朝鮮人かよｗ

**nobodyさん** · 2009/02/14(土) 21:15:21

>>970
試しにbribesのリポジトリから落としてみたら、これはjpeg対応してるっぽい。

**nobodyさん** · 2009/02/14(土) 22:41:05

スレッド掲示板のスレッドを削除するスクリプトを書いていてふと思ったのですが
そのスレッドの内容が書かれているファイルとディレクトリを削除するため
unlinkとrmdirを使う時、flockのようなことをしなくても問題ないのでしょうか。
一応、ファイルに関しては開いてflockでロックをかけた後、unlinkをしてみたのですが
Permission deniedと表示されてしまい削除されませんでした。
仮に必要な場合はflockではなく、ファイルやディレクトリを作成しその間は読み込めないように
するしかないのでしょうか。

**nobodyさん** · 2009/02/14(土) 23:11:40

>>974
よく考えるんだ。
ファイルロックは、変更が競合しないために行うものだという点を思い出せ。

**nobodyさん** · 2009/02/15(日) 00:36:02

感覚的に使っている部分があったのでflockについて詳しく調べてきました。
flockはファイルの読み書きに対応するのであってしかもflockは
仮にロックがかかっていてもflockを宣言したファイルでなければ
読み込めるみたいですしunlinkとrmdir意味がなさそうですね。
となると使わなくてもいいかファイルやディレクトリを利用してのロックですね。
調べてもそれらしき内容のものは出てきませんし大丈夫な気もしますがどうなんでしょうか。。

**nobodyさん** · 2009/02/15(日) 00:50:45

>>976
結論だけ言うと、何も考えずに削除してかまわないんじゃないかな。
噛み砕いて解説しようと思ったけど、予備知識が足りてない模様なので、更なる精進を期待する。

**nobodyさん** · 2009/02/15(日) 02:46:56

>>977
そうですか。perl以外の他の知識が必要みたいですね。
システムコールあたり？ちなみに'perl unlink'ではなく
'unlink'で調べたらＣ言語のunlinkの解説が出てきて見てみたのですがopenされてると
削除されないように出来てるみたいですね。削除中にopenされたら？
とも思いましたがファイルの削除が開始された時点でアクセス不可になる。
というように今のところ解釈しています。
あくまで予想なのでこれからももっと励んでいつか理解できるように
なりたいと思います。ありがとうございました。

**nobodyさん** · 2009/02/15(日) 03:13:07

というかどうせ消すならアクセスされても問題ないんじゃ
flockって同時にopenした時に
片方がもう片方に上書きされるのを防ぐためのもんでしょ

**nobodyさん** · 2009/02/15(日) 04:03:44

ひょっとしてキミはだいぶ自分の事しか考えない人だなｗ

**nobodyさん** · 2009/02/15(日) 09:20:41

>>978
unlinkしとけばOSの側がいいように取り計らってくれるから、
こっちがどんな順番でどう処理するか考える必要ないと思うけど。

**nobodyさん** · 2009/02/15(日) 09:22:25

どうせ消すんだから、書き込まれてから消しても
消した後に書き込み失敗しても関係ないじゃん。

**nobodyさん** · 2009/02/15(日) 13:17:53

消す順番はインデックス→データの順番な

**nobodyさん** · 2009/02/15(日) 13:34:19

Unixなら、ファイルが開いた状態であれば、closeするまで内容が保障され、
close後にunlinkが実行される。

一方Windowsはunlinkに失敗した。

**nobodyさん** · 2009/02/15(日) 18:24:40

ファイルロック自体はWindowsの方が優れてるけどな。WindowsのPerlの実装は知らないが。

**nobodyさん** · 2009/02/15(日) 19:10:45

Unixの多くの実装は勧告ロックで、Windowsは強制ロックだからね。

>>984は、一方ロシアは……のネタだから、あまり突っ込ｍ

**nobodyさん** · 2009/02/16(月) 10:10:47

そもそも書き込まれる可能性のあるファイルを削除するってどうなの

**nobodyさん** · 2009/02/16(月) 10:27:36

どうもしないよ

**nobodyさん** · 2009/02/16(月) 11:46:19

立てといた。

Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/

**nobodyさん** · 2009/02/16(月) 12:31:40

ま、RDBMSを使う方が楽だな。

**nobodyさん** · 2009/02/16(月) 13:06:22

数万件で抽出したデータからまた別のデータを導かせない限り、
数万程度までだったら txt ベースの方が全然扱いやすい

**nobodyさん** · 2009/02/16(月) 16:43:42

>>991
主観乙

**nobodyさん** · 2009/02/16(月) 16:49:56

なんか新スレに書き込むのは気が引ける・・・

$title = "*********<title>ホームページ</title>*******";
という変数から「ホームページ」を抜き取るのになにか良い方法はないでしょうか？

現在<title>と</title>でsplitをして取得していますが、パターンマッチを用いて
上手く出来ないでしょうか？

どなたか宜しくお願い致します。

**nobodyさん** · 2009/02/16(月) 16:54:38

>>991
「なるほど」と言って数万個のデータを数万個のファイルに書き落とす初心者が出現

**nobodyさん** · 2009/02/16(月) 17:11:21

>>993
my ($res) = $title =~ m!<title>(.*?)</title>!;

**nobodyさん** · 2009/02/16(月) 18:45:42

my ($res) = $title =~ m!<title>(.*?)</title>!is;

にした方がいいと思う

理由
(１) 必ずしも title となってない。 TITLE ってやってるところもある
(２) 変数に入ってるデータに改行が入ってれば s はあった方がいい

**nobodyさん** · 2009/02/16(月) 19:41:13

>995
>996
お二方有難う御座います。
パターンマッチ結果を変数に入れられるんですね。勉強になりました。

**nobodyさん** · 2009/02/16(月) 20:08:20

my ($res)
↑このカッコの意味が分からないorz

my $res = $title;
$res =~ m!<title>(.*?)</title>!is;

↑動作は同じはずだけど、こうやってました

**nobodyさん** · 2009/02/16(月) 20:13:34

カッコは正直意味無いだろ。
後半は全然違うと思うが。

**nobodyさん** · 2009/02/16(月) 20:18:15

カッコなしだと、$titleには1がはいっておしまいのような気がする

次スレで教えて欲しい

**１００１** · Over 1000

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。