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

**nobodyさん** · 2011/09/09(金) 18:11:49.71

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

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

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

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

お勧めサイトは >>2 以降

前スレ　http://hibari.2ch.net/test/read.cgi/php/1295170172/

**nobodyさん** · 2011/09/12(月) 21:28:34.15

>>9-10
>>1
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/

**nobodyさん** · 2011/09/12(月) 21:37:37.12

余りに遅レスって批判は出来るにせよ、質問に答えてるじゃん

**nobodyさん** · 2011/09/15(木) 00:40:46.86

データベースやってれば
書き込みロックと読み込みロックが
あることぐらい知ってるだろ。

**nobodyさん** · 2011/09/15(木) 12:48:03.24

フォームのPOST情報を送ったあとのページを取得し、HTML::TreeBuilderあたりで
情報を取得しようとしています。
下記だと①はヘッダ？の情報が出てきますが、②は何も出てきません。
どこか間違えているのでしょうか？

my $url = 'http://example.com';

my $formdata = ['id' => '***', 'pass' => '***'];
my $request = POST($url, $formdata);
my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);

print $res->as_string; #①
print $res->content; #②

#my $tree = HTML::TreeBuilder->new;
#$tree->parse($res->content);
#$tree->eof();

**nobodyさん** · 2011/09/15(木) 13:12:03.71

as_string()はHTTP::Responseの全文、つまりheader+body
content()はbodyを返す

example.comを見るならば、Content-Length: 0なんで当然content()は空になる

14 · 2011/09/15(木) 13:39:08.06

>>15
example.comは仮で書いただけなんですが、そのことを書いていませんでした。
失礼しました。

コード的には間違っていないようなので、別の要因を探ってみます。
ありがとうございました。

**nobodyさん** · 2011/09/18(日) 03:39:18.09

すいません、質問です

foreach $data (@isbn){
if(length($data) != 13){
$error_message = "length error";
break;
}
if($data =~ /[^0-9]/){
$error_message = "charactor error";
break;
}
}

$dataに入っている数字が13文字以外の時と、0-9の数字以外の時に
#error_messageにエラーを書き込んでforeachループを抜けるようにしたいのですが、なぜか13文字＆数字だけの時にも両ifともtrueになってしまいます。

先に述べている動作をさせたい時の条件の書き方を教えていただけないでしょうか？

**nobodyさん** · 2011/09/18(日) 03:40:47.27

foreach $data (@isbn){
　　　　if(length($data) != 13){
　　　　　　　　$error_message = "length error";
　　　　　　　　break;
　　　　}
　　　　if($data =~ /[^0-9]/){
　　　　　　　　$error_message = "charactor error";
　　　　　　　　break;
　　　　}
}

見づらいだろうので修正

**nobodyさん** · 2011/09/18(日) 04:16:55.44

例えばどんな@isbn？

**nobodyさん** · 2011/09/18(日) 04:18:05.84

ほんとにすいません、フォームから送ったデータに改行コードが入ってたせいでおかしくなってたようです
失礼しました・・・。

**nobodyさん** · 2011/09/18(日) 04:20:28.78

my $error_message;
for my $data (@isbn){
if (length $data != 13){
$error_message = "length error";
last;
}
if ($data !~ /^\d+$/){
$error_message = "charactor error";
last;
}
}

次から >>1 には「use strict; use warnings; を必ず使う事」とでも書いとけ。

**nobodyさん** · 2011/09/18(日) 06:57:46.48

break は last の誤用だと思われるのだが・・・

ってことで break が自作の関数だったりしなくて、ループから抜けることを意図としてるなら
last としませう。

**nobodyさん** · 2011/09/18(日) 07:08:32.40

% perldoc -f break

break Break out of a "given()" block.

This keyword is enabled by the "switch" feature: see feature
for more information. Alternately, include a "use v5.10" or
later to the current scope.

**nobodyさん** · 2011/09/18(日) 08:49:12.63

>>22
Perl以外のほとんどの言語はcontinueやbreakだから
他の言語を先に知っててPerlにあまり馴染みがないと
最初のうちは間違っちゃったりするよね

Perl / C,JavaScript,PHP,Ruby,Python,etc.
next / continue
last / break

**デフォルトの名無しさん** · 2011/09/18(日) 09:43:41.96

単語の意味を考えると、Perl で採用した next, last の
よさがじわじわと分かる。continue, break だとあいまい
な感じがして、(単語からは)何をしてくれるのか想像しに
くい。

**nobodyさん** · 2011/09/18(日) 10:47:25.20

printlnとか書いてて発狂しないのかな、あっちの言語圏は。

**nobodyさん** · 2011/09/18(日) 12:27:04.36

printlnってperlでいえばsayだよな。

**nobodyさん** · 2011/09/18(日) 12:29:59.21

あっちの言語圏は変数名と被ると駄目なんだっけ？

**nobodyさん** · 2011/09/18(日) 12:36:42.87

>>28
関数名は動詞、変数名は名詞にしましょうねｗ

**nobodyさん** · 2011/09/18(日) 12:47:06.08

形容詞は？

**nobodyさん** · 2011/09/18(日) 15:24:44.69

引数

**nobodyさん** · 2011/09/18(日) 18:47:48.04

はじめまして
現在SQLを勉強するためにPERLを使いMYSQLにつなぐ練習をしています

DBIを使用してデータベースへの接続およびテーブルを作成することはできました。
このデータを更新する為にユーザーから　ユーザーIDおよびパスワードデータを新規ユーザー登録フォームなどから受け取るにはどうしたらいいのか、
またデータベースから受け取ったデータから全体のソートをかけたい全表示したい場合　どうしたらいいのかわからず困っています

かってですがURLのところに?userid=foo&password=fooのようにはできるだけ表示しない方向でよろしくお願いします

**nobodyさん** · 2011/09/18(日) 20:09:22.61

>>32
>>1
http://www.ifdefdebug.com/cgi_introduction/
http://perldoc.jp/docs/modules/CGI-3.49/CGI.pod

依頼されたツールを誰かが作るスレ
http://hibari.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://hibari.2ch.net/test/read.cgi/php/1150508106/
DBの絡んだWEB制作の相場
http://hibari.2ch.net/test/read.cgi/php/1004437935/
手伝ってくれるかた募集
http://hibari.2ch.net/test/read.cgi/php/1083303786/
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/

**nobodyさん** · 2011/09/18(日) 20:29:52.84

>>33
すみません・・・リンクの中を見るとフォームのデータはこれでできそうですね
テンプレを読まず・・・申し訳ない

**nobodyさん** · 2011/09/19(月) 03:55:08.18

すみません、質問です

XML::Simpleを使ってXMLを解析しているのですが、　<Creator Role="イラスト">名前</Creator>　
のような属性（エレメント？）付きの値を取り出すにはどうすればいいのでしょうか？

普通に~~~->{Creator}->{Role}とすると属性の中身？の"イラスト"は取り出せるのですがその先が分かりません・・・。
もしかして::Simpleでは取り出せないのでしょうか？

**nobodyさん** · 2011/09/19(月) 05:24:45.14

失礼、解決しました

~~~{creator}->{content}で中身を取り出すことが出来ました

**nobodyさん** · 2011/09/19(月) 07:45:02.88

再度失礼します

現在Padreで開発しているのですが、なぜかPadre上ではうまく動いているのですが、
サーバーにUPすると500エラーを吐いてしまいます。

確認してみた所、my $ua = LWP::UserAgent->new();が原因でエラーを吐いているようで、
ライブラリ自体はちゃんと所定の場所にあり、パーミッションも他のライブラリと同じ設(705)で問題は無いはず。
そもそも頭のuse LWP::UserAgent;ではエラー吐いてないのでライブラリ自体は読み込めてるようです。

エラーの無い状態で上記のmy $ua = LWP::UserAgent->new();を追記した時点でエラーになるのですが、
これってただnewしただけでも他の物に影響を与える物なのでしょうか？

**nobodyさん** · 2011/09/19(月) 09:21:31.99

>>37
http://perldoc.jp/docs/perl/5.10.1/perlfaq9.pod

**nobodyさん** · 2011/09/19(月) 13:08:32.75

>>38
すいません、そこは既にチェックした後だったのですが一向に解決していません
LWP::UserAgentは止めて、LWP::Simpleを使おうとするも今度はuseした時点でエラー・・・。

use LWP::Simple ();　にして、後でgetすればエラーでないというのも見かけましたが関係なくエラーが。

**nobodyさん** · 2011/09/19(月) 13:24:50.46

エラーの内容を画面に表示すればわかるよ。

**nobodyさん** · 2011/09/19(月) 14:01:11.27

すいません、use worningsだけじゃエラーが出なかったんですね・・・

Can't locate HTTP/Config.pm in @INC
エラー先を見たらUserAgent.pm内の require HTTP::Config;　　これがエラーの原因のようです

**nobodyさん** · 2011/09/19(月) 16:11:08.06

まさかと思ってHTTP::ConfigをDLしてきてユーザー固有のフォルダに入れてみたら動きました
LWP:;UserAgent自体が使うファイルも色々CPANから拾ってきておかなきゃだめだったようです・・・というか外部ソース依存多すぎる

そして私の場合、レンタルスペースを利用している為、XML::Parserのコンパイルとか出来ないんですがこの場合どうしたらいいんでしょうか・・・？

**nobodyさん** · 2011/09/19(月) 16:24:36.58

>>42
> この場合どうしたらいいんでしょうか・・・？
・管理者にインストールしてもらう
・設置先と同じ環境を手元にも構築してコンパイルしたものを持っていく
・設置先で利用できる形にまとめてくれている人を探して一式もらう
・Pure Perl なモジュールのみを使うよう書き換える
・サーバを替える

いずれにしてもスレ違い。

**nobodyさん** · 2011/09/19(月) 16:30:26.87

pure perlな実装で代用すれば良いんじゃね。

**nobodyさん** · 2011/09/19(月) 18:25:25.97

コンパイルもできるレンサバに替えるのがいいとおもふ。

#そして次は「すいません、できないと思ってたけどコンパイルできました」とか書き込まれそうな予感

**nobodyさん** · 2011/09/19(月) 20:13:19.63

すいません、できないと思ったけどコンパイル・・・という冗談は置いといて、
結局　XML::UserAgent　も　XML::Simple　も使わずに済むPurePerlな　XML::TreePP　を使う事にしました。

こういう放置は本当はあまりよくないんでしょうけど、とりあえず完成させたいもので、とりあえず後で再考する事に。
失礼しました。

**nobodyさん** · 2011/09/19(月) 20:32:26.25

>>46
> こういう放置は本当はあまりよくないんでしょうけど、とりあえず完成させたいもので、とりあえず後で再考する事に。

いえいえ、良い選択だと思います。ご健闘を。

**nobodyさん** · 2011/09/19(月) 23:13:46.60

コンパイルができないと諦めるもんじゃない。
たとえshellが使えなくともtelnet.cgiみたいなのを使って
コンパイルすればいいのだ。

サーバーの環境を特定し、それに近い環境で
自宅コンパイルしたものをアップする方法もある。
諦める必要はないぞ！

**nobodyさん** · 2011/09/20(火) 00:23:18.16

初心者です。2ちゃんの統計を出力するスクリプトを作りたくて、色んな場所からつぎはぎして作っていたのですが、問題がでて進めなくなりました。
板の中のスレの内容を表示しようというところまできたんですが、カウンターの i が動いていないような感じで、同じスレ(dat)が何回も表示されてしまいます。
ほかにもツッコミどころがあったら教えてください。
ソースは次のレスです。

**nobodyさん** · 2011/09/20(火) 00:24:28.62

全部は入らないので関わってると思うところだけ抜きました。

use LWP::UserAgent;
use HTTP::Request::Common;

$url = "http://hidar.2ch.net/news4vip/subject.txt";
$durl = "http://hidari.2ch.net/news4vip/dat/";

&getData($url);

$threadlist = $response->content;

while($threadlist =~ m|\n(.*?)\.dat<>|g){
　　　　　　　　push(@dat, $1);
　　　　　　　　}

for ($i=0; $i<=$#dat; $i++){
　　　　　　　　$url = $durl . $dat[i] . ".dat";
　　　　　　　　&getData($url);
　　　　　　　　$content .= $response->content . "\n";
}

print $content;

sub getData
{
　　　　　　　　$ua = LWP::UserAgent->new;
　　　　　　　　$ua->agent('');
　　　　　　　　$request = GET($_[0]);
　　　　　　　　$response = $ua->request($request);
}

**nobodyさん** · 2011/09/20(火) 00:41:47.24

ごめんなさい、>>50です。
$url = "http://hidar.2ch.net/news4vip/subject.txt";
$durl = "http://hidari.2ch.net/news4vip/dat/";

はそれぞれ

$url = "http://hibari.2ch.net/news4vip/subject.txt";
$durl = "http://hibari.2ch.net/news4vip/dat/";

でした。別なURLでテストしてたのをごまかしたので、URLが間違っていたせいじゃないです。
ていうかdatディレクトリがそのまま見られるみたいだからそっちから抽出したほうがよかったかな・・・

**nobodyさん** · 2011/09/20(火) 00:41:59.51

>>50
コードはともかく、とりあえずiはミスタイプで正しくは$iだね

**nobodyさん** · 2011/09/20(火) 00:54:00.21

>>52
できました！
ありがとうございます！！！

**nobodyさん** · 2011/09/20(火) 02:27:48.40

use strict;
use warnings;
この2つは必須!

**nobodyさん** · 2011/09/20(火) 21:27:29.45

他のスレからこちらに誘導していただきましたのでここでも質問させていただきます。

初心者なのですが、どなたか教えてください。
サーバーに最新のapache(onWindowsXP)をインストールし、Activeperl（最新版）
によるcgiで、Win32::OLEをつかって、
サーバー側でAccess起動→マクロを走らせる→Access閉じる
を行いたいのですが、上手くいきません。
同じPERLソースで、AN HTTPD だと上手くいくので、apacheの設定の問題だと思うのですが、
どこをどう設定するのかが分かりません。

**nobodyさん** · 2011/09/20(火) 21:29:54.54

つづきです。すみません。

ちなみにソースは
# Accesオブジェクトを生成、起動
my $access = CreateObject Win32::OLE 'Access.Application' || die "Cannot create Access object\n$!\n";
my $mdb = 'C:/hoge.mdb';
$access -> {'Visible'} = 1;
$access -> OpenCurrentDatabase($mdb);
$access -> DoCmd -> RunMacro('hoge');
$access-> quit();
undef $access;

です。

**nobodyさん** · 2011/09/20(火) 21:30:56.13

>>55-56
>>1
http://perldoc.jp/docs/perl/5.10.1/perlfaq9.pod
Apache～嗜みとして～ Part3
http://hibari.2ch.net/test/read.cgi/php/1043851302/

55 · 2011/09/20(火) 21:33:07.43

つづきです。最後です。すみません。

現象としては、ログにもエラーはなく、サーバー側でタスクマネージャで確認すると
Accessが起動していることまでは確認できるのですが、そのまま止まってしまいます。
タスクマネージャーからAccessを強制終了すると、それ以後のperlスクリプトが処理されるようです。
どなたか同じようなご経験をお持ちの方はおられませんでしょうか。

宜しくお願い致します。

**nobodyさん** · 2011/09/20(火) 21:57:09.80

>>56
my $access = CreateObject Win32::OLE 'Access.Application' || die "Cannot create Access object\n$!\n";
は
my $access = Win32::OLE->CreateObject('Access.Application' || die "Cannot create Access object\n$!\n");
と等価なので CreateObject() が偽を返しても die しない。

http://perldoc.jp/docs/perl/5.14.1/perlop.pod#Operator32Precedence32and32Associativity

>>58
「それ以後」がどのステップを指していて処理自体は期待通りに終わっているのかどうか不明なので
同じ症状かは分からんが、「perl Win32::OLE access」でググれば

http://www.kaimei.org/read/internal/perl_w32
> 私が Win32::OLE から Excel へアクセスするプログラムを書いてみたところ、
> Perl スクリプトからだと問題ないのに CGI からこれを呼び出すと失敗するケースがあった。
> きちんとした原因まで把握できていないのだが、少なくともオープンする Excel ファイルのパスは
> / ではなく \ で区切らないとアプリケーション・オブジェクトの取得に失敗するようである。

という話が出てくる。

**nobodyさん** · 2011/09/21(水) 12:11:47.99

PSGI に対応した WAF では何が使い易いのでしょうか？
それぞれの WAF の特色とか違いとかが分かるサイトとかあるのでしょうか？
ご教示いただければと思います。

**nobodyさん** · 2011/09/21(水) 15:19:36.21

スレッドごとにファイルがあって
それをまとめるスレッドリストファイルがある場合のロックについて

ファイルロック１
スレッドＮファイルへの書き込み
スレッドリストファイルへの書き込み
ファイルロック１の解除

というようにしなければならないので
例えばスレッド１にだれかが書き込んでいる最中は他スレッドでも書き込みができない
ということになる。
ということで間違いないんですか？

それとスレッドを誰かが見るだけの場合でも

ファイルロック１
スレッドＮファイルの読み込み
スレッドリストファイルの読み込み
ファイルロック１の解除
としなければならないので

誰かが任意のスレッドを見ている間はどこのスレッドにも書き込めない

ということでいいんでしょうか？
そうするとロックかかりまくりじゃないんですか？

**nobodyさん** · 2011/09/21(水) 15:57:23.72

それぞれのファイルに対してロックすればいいだろ

**nobodyさん** · 2011/09/21(水) 16:36:39.63

>>62
それぞれのファイルにロックすると
スレッドＮファイルには書き込まれて
スレッドリストファイルにロックがかかるという場合も考えられる
そうするとデータの連動がずれる

**nobodyさん** · 2011/09/21(水) 16:43:12.02

>>61
マルチスレッドプログラミング相談室その8
http://hibari.2ch.net/test/read.cgi/tech/1253521167/

**nobodyさん** · 2011/09/21(水) 19:47:38.85

>>64
スレッドってそのスレッドじゃないと思うんだｗ

**nobodyさん** · 2011/09/21(水) 20:45:57.38

>>61
ロックかかりまくりとはいうけど
実際は各リクエストがケンカしないように順番に処理されていくわけだから特に問題はないだろ。

**nobodyさん** · 2011/09/21(水) 21:52:54.67

DBMSみたいに、まとめ役のプロセスが1つだけ起動して、もちろん複数起動しないようにして、
そいつが全部取り仕切るように動かせばいいんだ。疑似マルチタスクみたいに。

**nobodyさん** · 2011/09/22(木) 00:58:45.67

ロックには排他ロックと共有ロックがあってだな
・・という話ではない、これ？

**nobodyさん** · 2011/09/22(木) 01:17:49.95

シェケナベイベー

**nobodyさん** · 2011/09/22(木) 01:23:50.84

>>68
この件は全部排他
横からだけど>>61の解答は気になる

**nobodyさん** · 2011/09/22(木) 12:59:33.86

教えてください
Perlで2chの特定のキーワードのスレを自動取得するCGIを改造したいのですが、

#板名「@BoadName」にある、スレッド名に「$KeyWord」を含む板の一覧を表示する。
$BoardName[0] = "大規模MMO";
$BoardName[1] = "ネトゲサロン";
$BoardName[2] = "ネットwatch";
$Keyword = "●○";

この条件のところで、大規模MMO板だけでなく、例えば
ニュー速等複数の板を指定するにはどういう風にコードを書き換えれば良いでしょうか？
なるべく簡単な方法を教えてください。

スクリプト
http://aceof.s57.xrea.com/?p=sp

**nobodyさん** · 2011/09/22(木) 13:11:19.13

>>71
正規表現を使えるようにすればいいんじゃないの。

71 · 2011/09/22(木) 13:39:16.30

>>72
…？どうやるのでしょうか？
COBOLは昔習いましたが…
条件のところの
$BoardName[0] = "大規模MMO"; を
Ａ(大規模MMO)　AND　Ｂ(ニュー速)　のような条件にしたいのですが、
parlでの表記が分かりません。
コードを教えてください。

71 · 2011/09/22(木) 13:54:59.74

例えば

$BoardName[0] = "大規模MMO" AND "涙目ニュース";

ではエラーになりますよね？？

**nobodyさん** · 2011/09/22(木) 14:45:57.55

$BoardName[0] = "大規模MMO";
$BoardName[1] = "ネトゲサロン";
$BoardName[2] = "ネットwatch";

$BoardName[3] = "ニュース速報";
$BoardName[4] = "WebProg";

でいいんじゃないかな?
Socket　って使ったことないからわかんないけど BoardName で追ってみると
http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html
↑ここから $BoardName[n] でURL取ってるみたいだし
確認してないけど

71 · 2011/09/22(木) 15:29:52.18

>>75
すみません、基本的に大きな勘違いをしていました

$BoardName[0] = "大規模MMO";　　板名
$BoardName[1] = "ネトゲサロン";　スレット名
$BoardName[2] = "ネットwatch";　？

かと思っていましたが、全部板名で、番号を増やしていけばいいだけですよね＾＾：

で、
$Keyword = "●○";　の所を2～3個指定したいんですが、
複数指定したい場合はどう書けば良いのでしょうか？

$Keyword = "●○" "●▲" "××";

$Keyword = "●○" AND "●▲";
　　でしょうか？
ANDの代替がぐぐっても分かりません・・・
ちなみにスレ一覧のURLは移動してましたので書き換えます。

**nobodyさん** · 2011/09/22(木) 15:44:33.61

>>71-76
【スクリプト改造依頼スレ】(丸投げ) part8
http://hibari.2ch.net/test/read.cgi/php/1314546533/
★三　【スクリプト改造工房 PART 9 】　★三
http://hibari.2ch.net/test/read.cgi/php/1143834740/
金出すから改造してよvol.3
http://hibari.2ch.net/test/read.cgi/php/1162147035/

71 · 2011/09/22(木) 16:01:22.71

>>77
ありがとうございます。
あと、条件を複数指定する場合にどう記述すれば良いかだけ教えていただければ
十分なのですが…。
$Keyword = "●○" "●▲" "××";

$Keyword = "●○" AND "●▲";
　　でしょうか？

それとも　$Keyword = "●○","●▲";
？

**nobodyさん** · 2011/09/22(木) 16:13:15.01

うーん
COBOLをやってたというのがよく伝わってくる思考だｗ

$Keyword は GetData で

if (/$Keyword/){

というふうに正規表現で使われてるから論理演算子は使えないと思われ
$Keyword を @Keyword にしていっぱい入れられるようにして正規表現で | を使うか
if じゃない関数を使うかじゃないかな～

**nobodyさん** · 2011/09/22(木) 18:12:10.54

読み込んで表示だけのページ＝ロックの必要はない

読み込んだデータを更新して書き込むページ＝
ファイルロック１
ファイル読み込みモードでオープン
ファイルを配列に読み込み
ファイルを閉じる

データ更新

ファイル書き込みモードでオープン
更新したデータをファイルに書き込む
ファイルを閉じる
ファイルロック１の解除

これでいいはず
仮に読み込んで表示だけのページを
ファイルロック１
ファイルを読み込みモードでオープン
データを配列に入れる
ファイルを閉じる
ファイルロック１の解除とすると
表示するだけのページを開く間は書き込みができなくなるから
そうすると書き込める隙がなかなかない

**nobodyさん** · 2011/09/22(木) 19:43:11.98

use strict;
use warnings;

my @city = ("東京", "大阪", "名古屋");
delete($city[0]);
print "@city";

こんな簡単なので Use of unitialized value in join or string at *** line 6.　っていう警告が出たんですが、どうしてですか？
それに Use of unitialized ... というエラーしょっちゅう見かけますが、調べてみてもよくわかりませんでした。
教えてくださいm(_ _)m

**nobodyさん** · 2011/09/22(木) 19:52:11.16

delete $city[0]; で undef になった $city[0] を print するのに使ったから

とりあえずexcite翻訳から初めてみたらどうでしょうか

**nobodyさん** · 2011/09/22(木) 20:01:45.61

>>81-82
http://perldoc.jp/docs/perl/5.10.0/perldiag.pod

**nobodyさん** · 2011/09/22(木) 20:15:05.37

>>82-83
ありがとうごさいます。
@city = grep($_ ne "", @city);
で　$city[0] を消しても残ってたので不便な関数だなと思いました。
undef の値を消すような操作をすればいいんですね。

**nobodyさん** · 2011/09/22(木) 20:16:16.72

つshift

**nobodyさん** · 2011/09/22(木) 21:48:02.28

$city[0] = "東京" を削除して詰めちゃってもいい ($city[0] = "大阪" とずれていい) なら
shift @city;
要素をずらさずに $city[0] だけ消したいなら
$city[0] = "";

**nobodyさん** · 2011/09/22(木) 21:53:14.20

あれ、$city[0] = undef;とdelete($city[0]);って同じ？

**nobodyさん** · 2011/09/22(木) 22:07:16.08

>>87
http://perldoc.jp/func/delete
http://perldoc.jp/func/undef

**nobodyさん** · 2011/09/22(木) 23:43:44.90

delete が非推奨とか・・・splice で削除しろとか書いてあるけどさ、
巨大な配列に対して splice すると、すごく遅そう・・・

**nobodyさん** · 2011/09/22(木) 23:56:59.38

>>89
Perl処理系のソースを見ずに言うが、
そのへんはパフォーマンスがガタ落ちにならん程度にはうまいこと処理してるだろうと思う。

**nobodyさん** · 2011/09/23(金) 00:35:13.51

ん？配列の要素に対する delete が非推奨なのは別に問題ないっしょ？
delete $array[$n] は要素を削除するのではなくて、むしろ undef $array[$n] に近いんだから。

**nobodyさん** · 2011/09/23(金) 00:37:24.81

spliceは引数多くて邪魔くさい

**nobodyさん** · 2011/09/23(金) 00:38:06.92

>>89
誤読すんなよ。

（特殊挙動の切り詰めの事を想定してるなら別だが）
splice で対処しろってのは、要素を本当に削除するケースに関してだ。
@arr = 1 .. 5 ; => @arr = qw( 1 2 5 );

delete の代りなら、
splice @arr, 2, 2, (undef) x 2 なんてしなくても
@arr[2,3] = (undef)x2 ;なりの方法があろう。

**nobodyさん** · 2011/09/23(金) 01:21:24.31

８万の配列に長さ１の文字列を入れて、delete、undef、spliceでベンチマーク取ったけど、
spliceが一番遅かったけど大きな速度差は出なかった

**nobodyさん** · 2011/09/23(金) 01:24:44.39

>>94
あと1つか2つ桁増やしてよろしく。

**nobodyさん** · 2011/09/23(金) 07:44:14.40

use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
delete => sub{ my @arr = ARRAY ; delete @arr[ 99999 .. 999999] },
splice => sub{ my @arr = ARRAY ; splice @arr, 99999, 900000, (undef) x 900000 },
slice => sub{ my @arr = ARRAY ; @arr[99999 .. 999999] = (undef) x 900000 }
});
__DATA__
ARRAY => (q{x}) x 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 2.91 usr + 0.15 sys = 3.06 CPU) @ 2.94/s (n=9)
slice: 4 wallclock secs ( 3.17 usr + 0.14 sys = 3.31 CPU) @ 2.72/s (n=9)
splice: 3 wallclock secs ( 3.06 usr + 0.19 sys = 3.25 CPU) @ 3.08/s (n=10)
Rate slice delete splice
slice 2.72/s -- -8% -12%
delete 2.94/s 8% -- -4%
splice 3.08/s 13% 5% --

ARRAY => 1 .. 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 3.12 usr + 0.00 sys = 3.12 CPU) @ 12.82/s (n=40)
slice: 3 wallclock secs ( 3.02 usr + 0.01 sys = 3.03 CPU) @ 6.93/s (n=21)
splice: 3 wallclock secs ( 3.03 usr + 0.07 sys = 3.10 CPU) @ 9.35/s (n=29)
Rate slice splice delete
slice 6.93/s -- -26% -46%
splice 9.35/s 35% -- -27%
delete 12.8/s 85% 37% --

**nobodyさん** · 2011/09/24(土) 11:44:49.89

文字コードで分からないことがあるのでご教授お願いいたします。
(utf-8 でソースを書いています)

utf-8 の半角ア -> EFBDB1
utf-16 の半角ア -> FF71

utf-8 でソースを書いているのだから、print "0xEFBDB1" で半角アが出力されるだろうと思ったら、
print "0xFF71" でないと半角アが表示されませんでした。

**nobodyさん** · 2011/09/24(土) 16:12:39.72

cryptって絶対に復号化できないんですか？
パスワードをこの関数を使って暗号しようと思っていますが
この関数を使う上で欠点や注意点がありましたら教えてもらえませんか？

**nobodyさん** · 2011/09/24(土) 16:30:15.23

>>98
>>1
http://perldoc.jp/func/crypt

**nobodyさん** · 2011/09/24(土) 16:48:02.74

>>97
半角のｲなら、0xFF72です。

**nobodyさん** · 2011/09/24(土) 18:00:52.20

>>97
0xは数値に対してなので、\xだと思いますが、\xは2桁までしか拾わないので、
3桁以上の場合は、{ }を使って\x{123}とする必要があります。

2桁の場合は（\x{00B1}としても2桁と解釈されます）、その値そのもののバイナリ
文字列となります。

print "\xEF\xBD\xB1";

これ↑は、UTF-8として解釈すれば「ｱ」を意味するバイナリ文字列です。
ただし、Perlがこれを文字列処理するときはISO 8859-1という文字コードの3文字
として扱います。

3桁以上の場合は、その値のUnicodeコードポイント（U+FF71）のテキスト文字列となります。
（ Perlは、"\x{FF71}"を「ｱ」という1文字として扱う）

バイナリ文字列（＝バイト文字列）とは、バイト単位で処理される文字列のことです。
テキスト文字列とは、文字単位で処理される文字列のことです。

**nobodyさん** · 2011/09/24(土) 18:01:21.98

>>99
リンクありがとう～とりあえずこれ使ってみることにします

**nobodyさん** · 2011/09/24(土) 19:43:27.75

>>101
ありがとうございます！

**nobodyさん** · 2011/09/26(月) 12:35:58.38

トリップを生成する仕組みなんですが、

if (length $handle_pass >= 12)
{
my $mark = substr($handle_pass, 0, 1);
if ($mark eq '#' || $mark eq '$')
{
if ($handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|)
{
$GB->{TRIPSTRING} = substr(crypt(pack('H*', $1), "$2.."), -10);
}

文字列１２バイト以上で、先頭が#または$の場合、
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|を行なって
cryptによって生成していると思います。

しかし、$GB->{TRIPSTRING}や$1や$2をprintすると何も表示されません。
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|では何を行なっているのですか？
教えてください。

**nobodyさん** · 2011/09/26(月) 12:55:07.21

>>104
関係ないけど、これ $ から始まる場合何もしてないよね

◆??? · 2011/09/26(月) 13:01:10.88

>>104
##0123456789abcdefxx 形式のトリップキーかどうかのチェックだろ

>>105
>>104は書いてないけど実際はelseがある
2chでは今のところ単に予約としてとってあるだけらしいから???になるだけだけど

**104** · 2011/09/26(月) 14:03:37.14

>>105-106
ご回答ありがとうございます。
もう一度正規表現を調べますので、
その後、質問させてください。

**104** · 2011/09/26(月) 17:00:08.24

先頭が#で始まり16進数文字が16個連続し、
末尾は./0-9A-Za-zのいずれかが0個以上2個以下連続する。

ですよね？

#0123456789abcdefxxは真
#0123456789abcdefxxxは偽
#0123456789abcdefは真

#0123456789abcdefあ　が偽なのは、なぜでしょうか？

また、[[:xdigit:]]の[]が二重でくくられている意味を教えてください。

**104** · 2011/09/26(月) 17:01:58.51

すみません、書きこんで気づきましたが、

#0123456789abcdefも偽ではないのか？と思います。

**nobodyさん** · 2011/09/26(月) 18:06:25.07

あは [a-zA-Z0-9] かどうか
f の後ろに続く判断が ? なのか + なのかで意味合いが変わってくるかと。

トリップキーの規格をもっかい調べてみればよいかと。