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/ 1:投稿ファイルをロック 2:投稿数ファイルをロック 3:投稿ファイルを書き込み 4:投稿数ファイルを書き込み 5:投稿ファイルをアンロック 6:投稿数ファイルをアンロック 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 (書き込み時) 1:まとめロックようファイルを作る 2:まとめロック用ファイルを排他ロックする 3:投稿ファイルにを投稿を書き込む 4:投稿数ファイルに投稿数を書き込む 5:まとめロックの解除 (観覧時) 1:まとめロック用ファイルを共有ロックする 2:投稿ファイルを読み込んで表示する 3;投稿数ファイルを読み込んで表示する 4:まとめロックを解除 これが正しい >>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生やす方法なんて書いてないでしょ マジレスするなら、 別の方法で呼べるか試してみる 何が起こっているのか調べてみる ってところか。 はっきりしてるのはhirobanexのとおりに書いてもエラーで動かない事 それも $teng->->execute なんていうタイポレベルの話じゃなく 根本的にどこか間違ってるけど、どこだかわからんということ $teng->sql_builder ってSQL::Makerを継承した状態でnewされてるんじゃないの? Teng::QueryBuilder = SQL::Maker だから これで動くんじゃないの? $teng->sql_builder->load_plugin('InsertOnDuplicate'); $teng->sql_builder->insert_on_duplicate(略) $teng->sql_builderでTeng::QueryBuilderのオブジェクトが帰ってくる これはほぼSQL::Makerを継承しただけなのでSQL::Maker::load_pluginを読むとどうやらクラスメソッドとして書かれている 実際SQL::MakerのPODにも継承したクラスでクラスメソッドとして呼び出す例が書かれている つまり $teng->sql_builder->load_plugin('foo') という書き方はオブジェクトから呼び出してるので間違い(おそらくTeng::QueryBuilder=HASH(0x000000)みたいなところに生えてる) Teng::QueryBuilder->load_plugin('foo') とするか ref($teng->sql_builder)->load_plugin('foo') とするか もしくはブログの例にもある通り独自のQueryBuilderクラスを用意するか >>429 この__PACKAGE__はどこに書いたんや?__PACKAGE__の意味わかってる? もう、馬鹿過ぎて哀れだ。実際にやりたいことは *SQL::Maker::insert_on_duplicate = \&SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate; ってことでしょ? もうこれでいいでしょ。POD すら読まないんじゃ助けようがないよ。 ごめん、言い過ぎた。とりあえず、正解が分らない段階で俺ならどうするかを書くよ。 まず、何をしているのかを POD で確認する。 POD では load_plugin についてはクラスメソッドとして使う例だけが書かれている。 ここで「おかしい」と思わなければならない。 オブジェクトメソッドとして使えないとは書かれていないのでソースコードを読む。 %INC を見ればソースコードの場所は分かる。 load_plugin は予想以上にシンプルだった。これで解決。 解決しなかった場合。 まず、SQL::Maker::Plugin::InsertOnDuplicate を明示的に use する。それで間違いなく呼べる。 SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate( $teng->sql_builder) あるいは $teng->sql_builder->SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate 好きな方でいい。これでうまくいくなら load_plugin で何かが間違っている。 デバッガを使うか、load_plugin を差し替えて動作を詳しく調べる。 Tengを使うのかどうか自分で選べるのなら、自分が理解していないものを使わないという選択肢がある。 他の人が選んでしかも使わなければならないという状況なら、選んだ人にどう使うのかを聞くといい。 多分ブログ書いた人やその人に教えた人はTeng本体と混ざって勘違いしたんだろうな Teng自体はインスタンスからもロードできるから この記事、オレオレメモだって自分で書いてるからわざわざつっこむのも野暮だけどOR検索の例もちょっとひどい。 どうしてこうなった? Windows の Strawberry Perl で、「Parallel::ForkManager」は使えますか? ---------------------------------------- use LWP::Simple; use Parallel::ForkManager; ... @links=( ["http://www.foo.bar/rulez.data" ;,"rulez_data.txt"], ["http://new.host/more_data.doc" ;,"more_data.doc"], ... ); ... # 最大30プロセスで並列的にダウンロードを行います my $pm = new Parallel::ForkManager(30); foreach my $linkarray (@links) { $pm->start and next; # forkさせます my ($link,$fn) = @$linkarray; warn "Cannot get $fn from $link" if getstore($link,$fn) != RC_OK; $pm->finish; # 子プロセスをexitします } $pm->wait_all_children; ---------------------------------------- の様なスクリプトで、数万ファイルをダウンロードしようとすると、 child process '-*****' disappeared. A call to `waitpid` outside of Parallel::ForkManager might have reaped it. のエラーを出しながら、メモリを全消費・開放を何度か繰り返した後に、 最終的には、「Out of memory!」で異常終了します。 Cygwin の Perl では、「Cannot get $fn from $link」エラーを出しまくりますが、 メモリを全消費する事はありません(異常終了もしません)。 windowsのForkは、表面上は同じように動作する仕様になっているが、 実際にプロセスやスレッド、CPUの動作が期待通りになってるかと言うとそれは違う。 ほとんどの場合が、unixとの互換性を保つための見せかけ。 if($hoge=~/(\d+)$hoge3$/){$hoge2=$1} これの意味は $hoge3が数字のみなら$hogeに代入し、$hoge2にも代入するという意味でしょうか? >>443 「WindowsのFork」の意味は分かりませんが(Windows用PerlのFork?)、 Cygwin の perl は、 C:\cygwin64\bin\bash --login -i -c "perl ... 等としなくても、Windows から直接起動出来るので、 あのスプリクトで直接起動しても、メモリエラーは出ませんでした。 Cygwin の perl を、Strawberry Perl の代わりに、、、と思ったら、 いきなり chomp が、CR+LF を削除してくれなかった。 >>444 perldoc.jp からのコピペです。 >>445 if ( 文字列 =~ /パターン/ ) もし「文字列」の中に「パターン」が含まれていれば、 if ( $hoge =~ /(\d+)$hoge3$/ ) { $hoge2 = $1 } もし「 $hoge 」の中に「 \d+$hoge3$ 」が含まれていれば、「 $hoge2 」に「 \d+ 」を代入 >>446 ありがとうございます。 他言語の底辺SEなので助かりました。 普段それを読む文化にない人がいきなり読めたら逆にすごいと思う PerlってPerlが分かる人だけの言語 Perl on Bash on Ubuntu on Windows10 での、 モジュールのインストールで、無駄に苦労した。 解決法: Config.pm の修正 Windows10 のコマンドプロンプトでも、 エスケープシーケンスが使えるらしい。 PROMPT $E[96m$T$E[3D $E[93m$P$G$E[37m$E[1C 懐かし C:\> prompt $e[1;36m[$d$s$t$h$h$h] $e[1;33m%USERNAME%@%COMPUTERNAME% $e[37m$p$_$g$s ビット演算を多用したいんだけど、変数のサイズを指定したい。longとか。 とりあえず、16bitと32bitと64bitの整数が欲しい。 あと数値と文字が勝手に切り替わらないようにしたい。 ビット演算してるブロックだけでいいんで。 あと環境の保証も欲しい。どのマシンでどのbitのPerlとか関係なく。 俺が32bitのビット演算って言えばそれはもう絶対32nit演算。 もちろん不当に遅くなる方法は許さない。 vec かな。それでも不満なら perlfaq3 を読んで C で書け。 実際に何をして、その結果何が問題だったの? そのくらいは書いてくれないと…… >>457 xsと言うのがあるが、一時的に値が複製されて良いなら標準入出力(メモリ渡し)のほうが絶対に楽だと思うのだ。 ま、perl使ってるなら複製されたメモリのほうが元のデータより圧倒的に小さいはずだが ビット演算したいなら普通にすればいいよ。 ◯ビット変数がほしいといわれても、それは適切にマスクすればいいだけだし。 ◯ビット変数のように振る舞うものがほしいということなら、Perl は C よりも期待に応えられると思うよ。 まずは C と同じ書き方をして速度を計ってみてよ。話はそれからだ。 もう連休終わっちゃうんだけど結局何をしたかったのかな。 その日のうちに解決したんじゃね? 木曜日の相手になに言ってんだか しかし普通の言語やったあとにPerlやると異常なほど即座に短く書き終えるからなにか書き忘れてるんじゃないかと不安になる。 正しく動くと分かると異常なほど楽で嬉しくなるし、C++とかが馬鹿らしくなる。 そして実行速度計ると結局全部納得してため息。 stat($file_path);でファイルを作成したtimeは atime,mtime,ctimeのどれなの? >>468 http://perldoc.jp/func/stat > 8 atime 紀元から、最後にアクセスされた時刻までの秒数 > 9 mtime 紀元から、最後に修正(modify)された時刻までの秒数 > 10 ctime 紀元から、inode 変更(change)された時刻までの秒数 (*) > 明らかに、ctime のフィールドは移植性がありません。 > 特に、これから「作成時刻」を想定することは出来ません http://perldoc.jp/docs/perl/perlport.pod#Files32and32Filesystems > ファイルシステムはアクセスタイムスタンプや変更タイムスタンプに > 対応していないかもしれません (つまり移植性のあるタイムスタンプは > 変更タイムスタンプだけです); またタイムスタンプは 1 秒単位では > ないかもしれません (例えば、FAT ファイルシステムは時刻の単位は > 2 秒単位です)。 >「inode 変更タイムスタンプ」 (-C ファイルテスト) は (Unix 以外では) > 実際には「作成タイムスタンプ」かもしれません。 Perlのオブジェクト指向読んだばっかりで理解が曖昧なんだけど、 これだと、オブジェクトがオブジェクトなのか関数なのかって呼び出し側で決める事にならない? コンストラクタもメソッドも。 ついでに、インスタンスのカプセル化どうこうも、呼び出し側の権利? みたいに見えたのですが。 >>471 ありがとう 以下みたいな感じの記述は使っても問題ない? あと穴があった場合も教えて欲しい。 (複数回に分けて書くので途中で書けなくなるかも) use utf8; use strict; use warnings; #ただの実験 # 1: メソッドとインスタンスをカプセル化する。 # 2: クロージャを、あたかもオブジェクト指向と同じ記法で呼び出せるようにする。(クロージャとオブジェクト指向の同一視) # 3: クロージャをクロージャのまま使いたければそうできるようにした。そもそもクロージャのほうが速いので。 { package Class; sub new{ my $class = $_[0] eq __PACKAGE__ ? shift : undef ; #オブジェクトとして呼び出されたかどうか my $self = { Name => shift, }; my $method = { NameGet => sub{ $self->{Name} }, NameSet => sub{ $self->{Name} = shift; }, }; return $method if(!$class); # 普通の関数(クロージャ)として呼ばれた場合 return bless $method, $class; # オブジェクトとして呼ばれた場合 } sub AUTOLOAD { our $AUTOLOAD; my $method = shift; ref($method) eq __PACKAGE__ or return("error"); my @load = split '::', $AUTOLOAD; my $load = $load[-1]; $method->{$load}->(@_); } } { package test; my $c = Class::new("Closure"); #クロージャとして呼び出すと、一般的なクロージャと同じように使える。 print $c->{NameGet}->() . "\n"; my $o = Class->new("Object"); #オブジェクト指向として呼び出すと、オブジェクト指向と同じように使える。(中身はクロージャ) print $o->NameGet() . "\n"; print Class::NameGet(); #関数のように呼ぶとエラー } __END__ 以上です オブジェクト指向=カプセル化ではないし、perl5でももう少しスマートなカプセル化のやり方もあるが筋が悪いからおすすめはしない perl6はオブジェクト指向に関してはかなりマシだけど、そもそも速度気にするならperlは向かない perl5じゃないとダメなら規約などで上手く付き合うしかない ちなみにそのコードだとまともに継承できないね やりかたがあると言うのなら、提示して欲しいのだけど。(ただの俺は知ってるぞ自慢?) 事前に試しましたが、継承はできましたよー。 複数クラスを書くと長くなるので書きませんが、 まったく同じように別のクラスを書いて、ベースにしたいクラスを呼び出して更新すれば とりあえずインスタンスもメソッドは継承されるですね。 あと穴は一つ発見しました。 これは後出しにしようかな。 スーパーコンピューターのアプリケーションしか作ったことがないのですが、 そんな私でも作れるでしょうか? スパコンのSIMDやMPIの方が楽だから 無理しなくていい 2つのテキストファイルを比較し、一致した文字列を取り出したいんですが、教えていただけませんか 一致した文字列を穴なく完璧に厳格に定義して示して下さい。 そしてそれが出来ればプログラミングの8割は終了しています。 diff 系かなあ。CPAN で検索してみるといいよ。 Perl使うまでもないような cat fileA fileB | sort | uniq -d いやいや、一致した「行」とは言ってないから。何を望んでいるのかを確認しないと。 単語だと形態素解析が必要になるけどこいつにそんな課題出さないだろう my $input = []; CSVファイルを一行づつ配列にして多元配列にした後 for (my $i=0; $i<$#$input; $i++) {print Dumper($input->[$i]),"\n";} で全データ出力するのですが、その後(?)関数内で同じく for (my $i=0; $i<$#$input; $i++) {print Dumper($input->[$i]),"\n";} とすると、1行目の内容が、$#$inputの数だけ繰り返し表示されます。 関数内でも全データを出力したいのですが、どうしたらよいでしょうか。 どなたか教えてください。よろしくお願いします。 1回ずつループしながら、デバッグして、使っている変数を見れば? 変数のwatch 機能、あるだろ? ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.1 2024/04/28 Walang Kapalit ★ | Donguri System Team 5ちゃんねる