Perlについての質問箱 63箱目
■ このスレッドは過去ログ倉庫に格納されています
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.net/php/）
このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。
"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。
www.perl.org/get.html
Download Latest Stable Source (5.18.2)
▼前スレ
Perlについての質問箱 61箱目
http://toro.2ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.2ch.net/test/read.cgi/tech/1385039352/ >>332
それはCGIとかがquerystringを環境変数へセットしてるだけであって(postは標準入力)
環境変数や標準入力、argsを読む機構はperlに限らずどの言語で備えてるでしょ。
デリミタも指定せずname[]のようなオレオレ仕様で勝手に解釈して予め変数に入れるのを
言語のレイヤーで行うのはphpぐらいしか思いつかない。 いきなりなんの前触れもなかったし、何言ってんだ？と思ったら、PHPのdisりかよ。
知らんがな… 言い訳が苦しくなってくると、最後に「だけ」を付加するPerl厨
窃盗犯が「ちょっと借りただけだろ」と言い訳するのと同じ
犯罪者と同じ思考パターンを有するPerl厨
ちなみに犯罪者と同じ思考パターンを持つヴァカがPerlを選ぶのか
Perlを使ってるうちに犯罪者と同じ思考パターンを持つようになるのかは不明
どちらにせよPerl厨はヴァカで犯罪者予備軍ということに変わりはない
まともな人間はPHPを選ぶ 今時仕事にも趣味にも役に立たないPHP選ぶバカはいないだろ >>334
php以外の該当する言語を一つあげるだけで完全に論破できるチャンスだよ！ はいはい。犯罪者予備軍ね。NGにしときますわ。
やりたいことやりたい人は処理系にこだわりはないのにアホか。
コード書けない中学生がVBよりVCと言ってるのと変わらんわ。 >>340
逆だろ？
PHPが他の言語と一緒だということを証明するために
他の言語でもあるような機能を言う。
PHPは他の言語と同じであることを示すことが、正しい論破の仕方だ。
PHPは「他の言語＋αの機能」であるという事実に対して
それと同じものを出すことで、何を論破することになるのか？ そろそろ邪魔くさくなったから消えてほしい
劣等感のかたまりは迷惑関係なく必死で長所をアピールしはじめるってね
適切なスレでやってくれんかね 嫌なら見なければいいのに
他人にあっちいけとか指示する池沼っているよな。
自己中心的な池沼のお手本。 他プロセスでファイルをopenしているときにそのファイルをrenameしようとすると
renameできないみたいだけどうまくrenameする方法は？ >>346
それだとopenとcloseする間にrenameが割り込むとだめ
そこで自分で方法を考えました
まずディレクトリにaccess_kinshi.datというファイルを作ります
このファイルが存在している間は他プロセスでこのディレクトリにあるファイルは全てアクセスできないものとする
そしてディレクトリ内にあるファイルを全てrenameする
そのあとaccess_kinshi.datファイルを削除すればいいということです 他のプロセスってなに？
どっちもPerlで自分の作った物なら、ファイルロックでも使うと良い。
自動待機してくれる 後方参照で教えていただきたいことがあります。
A 80 90
(空白の部分はタブかスペース)
と書いてあるファイルの80とか90の部分を書き換えたいのです。
perl -pe 's/^([A-Z])(\s+)([0-9]{2})(\s+)([0-9]{2})/$1$2$3$4$5/' file で
マッチした部分を参照できるのはわかっているのですが、この場合$3の「80」を「1」にするには
どのような方法をとればよいでしょうか?
perl -pe 's/^([A-Z])(\s+)([0-9]{2})(\s+)([0-9]{2})/$1$21$4$5/' file とすると
$21と解釈されるようで結果がA 90となってしまいます。 シェルスクリプトと同じで、{} で変数名を明治する。
/${1}${2}1${4}${5}/ >>351
出来ました!!
{}で囲むのは思いつかなかったです。 >>349
他プロセスとは同じプログラムを複数で同時実行したやつです
それとファイルロックだとディレクトリにあるファイル１つ１つにロックしなきゃならないので
ディレクトリにあるファイル全てにアクセス禁止するために
アクセス禁止用ファイルを作りました スクリプトを動かすときは、「動きますように」と昭和する。 自分で考えているというのは大変良いことだと思うけど、聞きたいことがあるなら
環境くらいは書いてくれないと……
それに、使用中のファイルを rename することの何が問題なのかさっぱり解らない。
まず、何をするプログラムなのかを書いた方がいいと思うよ。 なんか書き込こもうとするとエラーが出て書き込めないわ ようするに
てすと１シージーアイ
ＯＰＥＮ（ＩＮ、”あああ．ＤＡＴ”）；
すりーぷ（５）；
ｃＬＯＳＥ（ＩＮ）；
てすと２シージーアイ
リネーム（”あああ．ＤＡＴ”、”ＡＡＡ。ＤＡＴ”）；
これを同時実行してもリネームはできなかったってこと 同時実行って言ったけど先にてすと１の方を起動して５秒以内にてすと２を起動です 他のプロセスが開いているファイルを、更新できるわけないだろ
2つのプロセスで、ファイル共有できるのは、read & read、の組み合わせだけ。
read & write, write & read, write & write は、共有できない >他のプロセスが開いているファイルを、更新できるわけないだろ
何を前提に話してんだ？
更新出来るから、ファイルロックなぞの方法が開発されたんじゃねーの？
$ for i in 1 2 3 4 5 ; do
> perl -le 'open my $f, q{>>}, q{foo.txt} ; print $f q{foo} ; sleep 2' &
> done
$ cat foo.txt
foo
foo
foo
foo
foo >>361
更新 ”できないようにする" から
ロックなんだよ。アホかｗ >>362
ん？
（デフォの状態では）更新出来るから、
（更新出来ないようにするための）ファイルロックなぞの方法が開発されたんじゃねーの？
ってレスだったんだが、、、 更新できるのは、同一プロセス内のマルチスレッドだろ
だから、マルチスレッド・プログラミングは難しい ファイイルロックのモードは２より５のノンブロッキングの方が軽いですか？ >>365
軽いかどうかで決めるんじゃない。
それが必要かどうかで考えろ。
ホント頭が悪いやつは、軽いかどうかの基準しか
持ち合わせてないんだよな。 上の２行は頭いいように見えたが
下の２行でホントに頭が悪い人だと思った。
誹謗癖はやめようね。嫌われるよ。というかすでに嫌われてると思うけど。 ノンブロッキングは、Node.js などが並行処理で、リクエストを受け付ける場合に使う。
こういうのは、プロ中のプロが使うもので、プログラムも順序通りには進まないから、
プログラミングが極めて難しい(イベントドリブン)
初心者は、ブロッキングを使え。
プログラムは一本道で、順序通りに進む >>358
少なくとも Linux では問題なく rename できるよ。
rename できないというのはシステムコールのマニュアルに書いてあるの?
テストのやり方に問題は無かったの? こんなふうに同期させた方がいいと思うんだけど。
https://ideone.com/639PgP このようにflockをネストするのは問題ありますか？
open(IN, "< $datafile");
flock(IN, 1);
open(IN2, "< $datafile2");
flock(IN2, 1);
close(IN2);
close(IN); >>371
windows環境だけどopen中のファイルのrenameはできなかった
例えばtestディレクトリがあって、プロセスAでtestディレクトリにあるファイルのrenameやファイルの作成、
プロセスBでtestディレクトリを削除するとした場合
testディレクトリにファイルが残っているとrmdirが成功しないのでtestディレクトリを削除できない
unlinkでtestディレクトリのファイルを全て削除してからtestディレクトリを削除しようとしても
その間にプロセスAでファイルが作成された場合ディレクトリを削除できない
だからディレクトリそのものをロックしたいっていうこと >>373
そういうことを先に書いてくれないと……
そうか、Windows ではできないのか……
プロセスAの処理が終わるまでプロセスBを待たせておきたいということなら
普通に mkdir でどうでしょう。可搬性も高い排他制御の定番です。 >>373
File::Path -> remove_tree
http://search.cpan.org/~riche/File-Path-2.12/lib/File/Path.pm 何が目的でそのための何をしている状況なのかというのがいまだに理解できないんだけど、
そもそもそんな状況にしないやり方を考えた方がいいのかもしれない。
どうしても排他制御が必要なら例えばデータベースを使うというのは Windows でも出きると思う。
Windows のことは知らないからこれ以上はお役に立てそうに無い。 簡単に言うとディレクトリをmkdirで削除したいけど
削除しようとしている間にディレクトリ内にファイルを作られるとmkdirできなくて削除できないので
ディレクトリ内にファイル作成もディレクトリ内のファイル読み込みも禁止にしたかったってこと 任意のプロセスがアクセスできるディレクトリを削除したいという要求自体が間違っている >>380
bbsディレクトリの中に各掲示板ごとのディレクトリがあって、さらにその中にログファイルや掲示板設定ファイルがある
削除したい掲示板は各掲示板のディレクトリごとに削除するしかないのでどうしても任意のプロセスがアクセスできる
ディレクトリを削除するしかない
test1掲示板の場合
ファイルはbbs/test1/logfile.datとbbs/test1/settei.datがあって
掲示板を削除する場合はまずこの２つのファイルを削除してtest1ディレクトリを削除するということです その掲示板とやらのディレクトリは本当に、自分のプロセスだけでなく任意のプロセスからもアクセスできるのか?
であれば、ディレクトリのパーミッションが間違っている。自分のプロセス以外のアクセスを禁止せよ。
自分のプロセスしかアクセスできない前提であれば、好きなように自分で排他制御を行えばよい。例えば>>375のように。 >>382
普通の掲示板やで
普通掲示板は誰でも観覧と書き込みができるので任意のプロセスからでも読み書きできる
それとディレクトリの削除はブラウザからperlで書いたcgiを起動して削除するので
パーミッションでのオーナーとかの判別はできないんや 掲示板のcgiが動いてるプロセスは掲示板を閲覧しているユーザとは関係なかろうが。
これ以上はperlの話ではなく、そのcgi固有の話だ。
ここでやる話ではない。 my(@aaa);
@aaa = sort {$b <=> $a} @aaa;
このとき$a,$bをmy($a,$b)やlocal($a,$b);と宣言するとエラーになります
$a,$bはどのように宣言すればいいんですか？ aとbはあらかじめ用意された特殊変数。
特殊変数は全部グローバル変数 >>378
他のプロセスに使われる前にディレクトリ名をランダムな名前に変更
するとよい。変更後に rmdir する。 １：投稿ファイルをロックして書き込み
２：投稿数ファイルをロックして書き込み
１の排他ロックが成功して２の排他ロックが失敗してタイムアウトになり書き込みできなかった場合
投稿数が実際の投稿より少なくなりが整合性がとれなくなる
この場合下記のようにまとめてロックするのが普通？
まとめ排他ロック
１の処理
２の処理
ロック解除 >>388
そういう場合はまとめた単位でロックを取ることが多い
あるいはロールバックできるようにするしかないけど、それはたいてい難しい １：投稿ファイルをロック
２：投稿数ファイルをロック
３：投稿ファイルを書き込み
４：投稿数ファイルを書き込み
５：投稿ファイルをアンロック
６：投稿数ファイルをアンロック PostgreSQLのTIMESTAMP形式の文字列を秒数（Perlのtime関数で取得したような状態）に直す関数教えて use DateTime::Format::Pg;
print DateTime::Format::Pg->parse_datetime( '2016-08-21 23:50:01' )->epoch; 実行時間が0.15秒から0.2秒のperlスクリプトは重い部類ですか？ >>390
データとは別にロック中か識別するためだけのロックファイルまたはディレクトリを用意するものなんじゃないの？>>389のように 1:投稿数ファイルをロック
2:投稿数ファイルを書き込み
3:投稿数ファイルをアンロック
4:投稿ファイルをロック
5:投稿ファイルを書き込み
6:投稿ファイルをアンロック
じゃだめなのかな。 それ投稿数と投稿が連動してないやん
ロック
必要な書き込み全部
ロック解除
が普通 それは「普通」というより「手抜き」だね。最初はそれでいいと思うけど。 >>398
普通じゃなくて天才だよ。
完璧な答え。 まあ質問の直後にいきなり答えが書いてある
それを分からないのが混ぜ返してるだけだ
>>388-389 （書き込み時）
１：まとめロックようファイルを作る
２：まとめロック用ファイルを排他ロックする
３：投稿ファイルにを投稿を書き込む
４：投稿数ファイルに投稿数を書き込む
５：まとめロックの解除
（観覧時）
１：まとめロック用ファイルを共有ロックする
２：投稿ファイルを読み込んで表示する
３；投稿数ファイルを読み込んで表示する
４：まとめロックを解除
これが正しい >>393
何のために数字が振ってあるのか分かる？ なんのため？
プロセス間の整合を取るのにプロセス内の順序は全く意味ない数字と思うけど。
うーん、なんのためだろ？教えてくれないかな？ > プロセス内の順序は全く意味ない数字と思うけど。
え？ 順番を入れ替えても同じなると思ってるの？
例えば5 → 1 → 4 → 3 → 2 → 6 の順番で
実行しても同じ結果になると？
ロックの話以前に、あんたが何が言いたいのかわからない んでなんのため？
あと関係ない話しかしてないようだけど、同じになるって情報はどこから？
そしてその話になんの意味があると思い込んでますか？ >>390が書いてあることは正しくて、
この順番通りの処理をすると不整合が起きない。
重要なのは書き込みを行う前に書き込むファイルすべてを
ロックするということ。最初にまとめて行う。
こうすることでロックの間に処理が割り込まれず
正しく書き込むことができる。 ここまで正しい回答が何度も出てるのに、そのあとから間違った回答を自身満々にするのもすごいと思う
ロックは常にプロセス間の整合のみ取るべし ごめん。外部仕様としてはこの場合正しかった。
内部的にはやってはいけないお手本のような無意味なロックがされてて、それで勘違いした。すまんかった。 確かにロックはプロセス間通信の一種で使う技術も同じか
こうゆうのはスクリプトをプログラムと思ってる人と、プログラムの基礎的な部分から学んだ人とでは差が出そうだね windows7で文字化けファイル名を取得するとショートファイルで得られるようですが、
ロングファイルのビットの並びをそのまま得たいです。
指定して得るにはどうすれば良いでしょうか？
ちなみにDOSなどでのコマンドは知っています。 `dir /b *.*`
次スレのテンプレに追加するから コマンドじゃなくてPerlでどうにかしたいのだけど my @file = split(/\n/,`dir /b *.* 2>NUL`);
# あとは夏休みの宿題、な すまん、回答してるつもりだろうけど、頭悪い人に用はないんだ。
わざわざ何度も書いてる様だが、一番最初に(も)言った通りコマンド使うやりかたはできるから。
あと全レス会話の繋がりもなく、堂々と好き勝手なこと書く人間もしんどい。 いや、君の記述能力が頭悪いんだよ。
流行の言葉で言うとコミュ力やプレゼン力がない。
コマンド知ってますなんて言い方じゃ伝わらない。
少しは自分の不徳を省みたらどうか。 再現出来る環境無いんだけどWin32::GetLongPathNameはどうかな >>422
すまないがそれでは得られる文字は同じで、文字化け文字にはショートが適用されます。
おそらくwindowsに対するアプローチを変えないとだめだと思うのです。
>>421
いけたよありがとう。
API叩いてやりくりしてたけど、暫定的にそれを使わせてもらうよありがとう。
windowsは外部的にもさっさとunicode使ってほしいと思う。
>>420
その無駄な4行必要か？なんか書きたいなら頑張って回答書けば？（俺としては書かないで頂きたいけどな) まあとにかく特殊な環境なんだね。もう少し前提条件を書いたほうが早く欲しい回答を得られたと思うよ。
>>413の書き方じゃ>>420に文句を言う筋合いはないよ。 どうでもいいけど特殊な環境じゃなくてwindows標準の仕様かと なぜ化けるのか、と言う話だ
CP932とunicodeが混在してる場合はどうすりゃいいですかって話じゃね ココ参考にして ttp://hirobanex.net/article/2015/03/1425807814
こういう呼び出ししても
$teng->sql_builder->load_plugin('InsertOnDuplicate');
$teng->sql_builder->insert_on_duplicate（略）
Can't locate object method "insert_on_duplicate" via package "Teng::QueryBuilder"
で呼べないんだけどどうしたらいい？ ちなみに
__PACKAGE__->load_plugin('+SQL::Maker::Plugin::InsertOnDuplicate');
でもダメ PODに別パッケージから plugin生やす方法なんて書いてないでしょ マジレスするなら、
別の方法で呼べるか試してみる
何が起こっているのか調べてみる
ってところか。 ■ このスレッドは過去ログ倉庫に格納されています
