Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0133nobodyさん
04/07/23 17:17ID:???foreach $temp (@line) { # @lineはログ
$temp =~ s/\s*$//;
@data = split (/\t/, $temp); # タブ区切りなのでタブで分割
if (index ($data[0] . $data[1] . $data[2], $words) > -1) { # 名前,メール,本文 $wordはフォームから受け取った検索ワード
push (@new, $temp);
}
}
このようにして、@newの中身をforeachで書き出せば、指定語句を含むものだけは書き出せました。
これを、検索ワードをスペース区切りで複数指定可能にしてAND検索をできるようにしたいと思っています。
$word =~ s/\x81\x40/\t/g; # スペースで区切って入力されたフォームの検索ワードをタブ区切りにする
@words = split (/\t/, $word); # 検索ワードをタブで区切って配列に入れる
この2行を追加して検索ワードを複数取得したのはいいのですが、indexの第二引数の部分で@wordsの中身を全て含む場合の記述方法が思い浮かびません。
どのような記述方法があるのでしょうか。
0134133
04/07/23 17:43ID:???@words = split (/\t/, $word);
foreach $temp (@line) {
$temp =~ s/\s*$//;
@data = split (/\t/, $temp);
foreach (0 .. $#words) {
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) {
push (@new, $temp);
}
}
}
このように記述してしまうと、検索ワードを複数指定した場合、
「検索ワードを含む記事の数 * 検索ワード数」分の記事が出てしまうのです。
Ex1.
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんだ」という記事がある場合、
検索ワードを「オレオレ ばぁちゃん 車ぶつけて 50万必要」などとすると、同じ記事が4つ@newの中に入ってしまいます。
Ex2.
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんだ」という記事と、
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんです」という記事がある場合、
検索ワードを「オレオレ ばぁちゃん 車ぶつけて 50万必要」などとすると、
「～必要なんだ」という記事が4つ、「～必要なんです」という記事が4つの計8つが@newの中に入ってしまいます。
0135nobodyさん
04/07/23 17:50ID:???0136133
04/07/23 18:00ID:???＞ if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) {
この部分は
if (index ($data[0] . $data[1] . $data[2], $words[$_]) > -1) {
の間違いです。失礼しました。
0137nobodyさん
04/07/23 18:18ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsyn.html#Loop_Control
0138nobodyさん
04/07/23 18:20ID:???そこまで書けるんならそんな難しい事じゃないと思うぞ。
foreachの中でマッチするたんびにpushしてるからそうなるんであって、
flag設定してflagたった時だけpushするとか、
grepで一個でもtrue返したらpushするとか。
方法はいろいろあると思うけど、もうちょっと自分で考えてみれば？
0139nobodyさん
04/07/23 18:43ID:???無駄フラグ作ったり、grepで全検査するよか
LINE: foreach $temp (@line) {
・・・
foreach (0 .. $#words) {
next LINE if index($data[0] . $data[1] . $data[2], $words[$_]) == -1;
}
push (@new, $temp);
}
のがいいのでは？
>>137はそういうことではないかと。
0140nobodyさん
04/07/23 18:52ID:???いろいろ方法はある訳で、
ちょっとは自分で考えたら？
と言いたいわけですわ
0141nobodyさん
04/07/23 19:22ID:???漏れは元質問者じゃねーが、壷に嵌ったときはさらさらコードを書けるが、ドツボに嵌った時は何をやっても書けない。。。
そんな時つい2ちゃんに書きたくなるんだよ。
0142nobodyさん
04/07/23 19:28ID:???それこそ幾通りも方法はあるし、それじゃ
丸投げと同じじゃんよ。
少しは自分で考えてやってみろって、
それでうまく行かないってんならアドバイスのしようもあるけど、
0145126
04/07/23 20:14ID:???0146nobodyさん
04/07/24 03:47ID:???0148nobodyさん
04/07/24 08:46ID:???おーい、そろそろ次の質問をどうぞー。
みんな暇してるゾ。
0149nobodyさん
04/07/24 10:01ID:???\x8e\x9f\x82\xcc
EOT
\x8e\xbf\x96\xe2
EOU
\x82\xc7\x82\xa4\x82\xbc
EOV
0150133
04/07/24 17:26ID:???もう少し色々実験してみます。
0151nobodyさん
04/07/25 04:48ID:???5000文字に一番近い\nごとに区切りたい（4951文字目のあとに\nが来れば、4951文字目まで、とそれから5000文字に一番近い\nまで、という感じです）のですが、
substrを使ったら\nの個数がでてきたり、と全くわけがわからなくなってしまいました。
ご教授願えませんでしょうか。
0152nobodyさん
04/07/25 06:27ID:RBsrNYZOわけがわからないのはお前の質問だ。落ち着いてわかるように書け。
とりあえず突っ込みどころとしては
配列@fooに文字列が入ってるってどういうことよ?
5000文字に一番近い\nっていうが、4999文字目と5001文字目に\nが
あったらどっちが一番近いのか?
一番近いの\nごとというが、一番近いのは1つじゃないのか?
\nがなかったらどうするよ?
0153nobodyさん
04/07/25 06:47ID:???＠＠＠＠＠＠＠\n
＠＠＠\n＠＠＠＠\n
＠＠＠＠＠＠\n
＠＠＠＠＠＠＠＠＠\n
こんな感じに幅を合わせたいんじゃない？
5000文字目から後ろに\nを探して最初に見つかったところで──って感じかなあ。
正規表現は{,5000}みたいに大きな数字は扱えなかったような気がするので、
ループが入るとは思う。
0154nobodyさん
04/07/25 07:00ID:???>153さんのいうような感じで、5000以下のパケットのようなものを作りたいんです。
具体的に言うと、
ページを携帯電話対応に書き換えるスクリプトを作ってるんですが、
ヘッダをとって、body部分を6KB以下に分けたいんです。
ただ、改行で切らないと、タグの途中で切れたりしちゃうので、それを避けるために一番近い（以前に、です）\nを探す、というのも必要だったんです。
0157nobodyさん
04/07/25 09:25ID:???0158nobodyさん
04/07/25 10:03ID:???href="hoge">
とか二行に分かれてたらどうすんだよ。
0161nobodyさん
04/07/25 16:36ID:???二つのCGIがあり、片方はフォームからPOSTで。
もう片方は<a href= でリンクで飛ばしています。
これらを別のCGIで吐き出されるページで使いたいのですが、
片方ずつならちゃんと動作するのに、両方を同時に設置するとどちらもエラーになります。
GETとPOSTは共存できないのですか？
0162nobodyさん
04/07/25 17:12ID:???0164nobodyさん
04/07/25 17:36ID:???んだ。イメージが全然浮かばない。
クライアントからの１リクエストにGETとPOSTを同時に含めることはできない。
URLにGETもどきのパラメータを仕込んでPOSTすることは可能。
・・・って、くらいしか答えられん。
0165nobodyさん
04/07/25 20:19ID:???substr($x, 0, 1+rindex($x, "\n", 4999))
よくわからんが結局こういうことがやりたいのだろうか?
5000文字以内に改行がないときは空文字列になるけど、
いやなら適当に直してね。
0166nobodyさん
04/07/25 22:29ID:???引っ張ってくる画像が閲覧可能であるか、不可であるのかは判別可能でしょうか？
思考錯誤してますがどうにも苦戦中です。
何卒ご指導お願いします
0167nobodyさん
04/07/25 22:33ID:8FggQcGjhttp://～/member.dat のようなファイルをHTMLで読見込むにはどうしたらよいでしょう？
勿論Perlでも構いません
教えてください
それで、CGIを実行出来るかアドレスを打ったのですが、
ファイルのダウンロード
ファイルによっては、コンピューターに問題を起こす可能性があります。
以下のファイル情報に関して疑わしい点がある場合や、発信元が完全に信用で
きない場合は、このファイルを開いたり保存したりしないでください。
ファイルを開くか、ファイルをコンピューターに保存するか選択してください。
と、でてしまい開くを押しても何も起こりません。
どうすればCGIを実行出来るんでしょうか？
すません、わかりました。
ありがとうございました。
0171nobodyさん
04/07/26 00:33ID:???それです。完璧です。有難う御座いました。
0172nobodyさん
04/07/26 01:11ID:???呼び出すと、文字化けしてます。content-typeが問題な気もするんですが、どうしたらいいんでしょうか。
0173172
04/07/26 01:20ID:???0174nobodyさん
04/07/26 05:28ID:???0175133
04/07/26 14:29ID:???突っ込もうとしているﾛｸﾞのﾃﾞｰﾀが配列内に無かった場合のみ、という判定方法で正常に動作しました。
ありがとうございました。
$word =~ s/\x81\x40/\t/g;
@words = split (/\t/, $word);
foreach $temp (@line) {
$temp =~ s/\s*$//;
@data = split (/\t/, $temp);
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) {
if (!grep $temp eq $_, @new) {
push (@new, $temp);
}
}
}
0176133
04/07/26 14:35ID:???ちとタンマ。
0177nobodyさん
04/07/26 15:15ID:???<q cite="http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_tell_whether_an_list_o">
$is_there = grep $_ eq $whatever, @array;
だとか
$is_there = grep /$whatever/, @array;
のようなやり方はしないでください。
これらのやり方は遅く(最初に対象が見つかったとしてもすべての要素を
検査していしまいます)、非効率(同じ理由です)で、バグの可能性を含んで
います ($whatheverに正規表現キャラクターがあったりしたら?)。
</q>
0178133
04/07/26 15:23ID:???grepはNGですか、foreachに書き換えることにします。
ちなみに>>175のｺｰﾄﾞって、これはOR検索になってますね orz
0179133
04/07/26 18:16ID:???$word =~ s/ | /\t/g; # スペースで区切って入力されたフォームの検索ワードをタブ区切りにする
@words = split (/\t/, $word); # 検索ワードをタブで区切って配列に入れる
if ($search eq "and") { # 検索方法がAND形式である場合
foreach $temp (@line) { # 配列の数だけ繰り返す
$temp =~ s/\s*$//; # 行末の改行コードや空白を取り去る
@data = split (/\t/, $temp); # 一行取り込んだ部分を分割して配列に格納する
@check = (); # チェック用配列を初期化
foreach (0 .. $#words) { # 検索ワードの数だけ繰り返す
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) { # 配列から取得した名前、メールアドレス、本文を結合したテキスト内を検索して、検索ワードが存在した場合
push (@check, 1); # チェック用の配列に1を入れる
} else { # 配列から取得した名前、メールアドレス、本文を結合したテキスト内を検索して、検索ワードが存在しない場合
push (@check, 0); # チェック用の配列に0を入れる
}
}
$output_flg = 1; # データ出力用フラグを用意する
foreach (@check) { # 配列の数だけ繰り返す
if (!$_) { # チェック用の配列に0がある場合
$output_flg = 0; # データ出力用フラグを0にする
last; # ループを抜ける
}
}
if ($output_flg) { # データ出力用フラグが立っている場合
push (@new, $temp); # 検索ワードが存在するログの行を新しい配列に格納する
}
}
0180133
04/07/26 18:17ID:???foreach $temp (@line) { # 配列の数だけ繰り返す
$temp =~ s/\s*$//; # 行末の改行コードや空白を取り去る
@data = split (/\t/, $temp); # 一行取り込んだ部分を分割して配列に格納する
foreach (0 .. $#words) { # 検索ワードの数だけ繰り返す
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) { # 配列から取得した名前、メールアドレス、本文を結合したテキスト内を検索して、検索ワードが存在した場合
$exist_flg = 0; # データ存在フラグを用意する
foreach $_ (@new) { # 配列の数だけ繰り返す
if ($_ eq $temp) { # ログから取り込んだ一行が新しい配列内にあるデータと一致する場合
$exist_flg = 1; # データ存在フラグを立てる
last; # ループを抜ける
}
}
if (!$exist_flg) { # データ存在フラグが立っていない場合
push (@new, $temp); # 検索ワードが存在するログの行を新しい配列に格納する
}
}
}
}
}
grepの部分も>>177が提案してくれた方法で書いてみました。
0181nobodyさん
04/07/26 18:21ID:QB5gv79+「DoCoMo 2.0 N900i(c100;TB;W24H12;ser***;icc***) 」 （***はランダムな英数字）
という文字列が入ってるとして、「(」以降を切り捨てて
「DoCoMo 2.0 N900i」だけにするにはどうすればよいのでしょうか？
substrで桁数を指定するしかない？
0183nobodyさん
04/07/26 18:27ID:???0184nobodyさん
04/07/26 19:24ID:84cm3KM0どうでもいいけど無駄多いな
@words = /([^ | ]+)/g;
foreach (@line) {
s/\s+$//;
@data = split(/\t/);
$hit = 0;
foreach $sword (@words) {
$hit++ if index("$data[1]$data[2]$data[6]", $sword) > -1;
}
next if !$hit;
push(@new,$_) if $search ne 'and' or $hit == $#words + 1;
}
じゃだめか？
0185nobodyさん
04/07/26 19:26ID:???こうか
0186181
04/07/26 20:14ID:QB5gv79+携帯からでしか確認できないのと今手元に実機がないので
また失礼します。何度もすいません。
$data = s/.+(.+)//;
でいけますかね？これで「(」と「)」にはさまれた部分を削除できる・・・かな？
0188181
04/07/26 20:47ID:QB5gv79+レスありがとうです。
私はアホなので意味がさっぱりわからないんですが
これそのままコピペしてもいいのかな・・・。
ちょっと拝借して明日動作確認してみますね。
というか>>183さんも今見たらアドバイスくれてたっぽいですね。
こっちも私には難解だけどありがとうです。
0189nobodyさん
04/07/26 23:50ID:???どうでもいいが、and検索時にログに検索対象の文字列の有無を判定する時に、
配列に0やら1やらを突っ込んで後からチェックするってやり方が俺と同じだ。
わからないときはﾌﾘｰのｿｰｽでも拾って参考にしなさい。
0190nobodyさん
04/07/27 00:02ID:???0191133
04/07/27 00:11ID:???>>184-185氏、そのような書き方もあるのですね。
自分はまだ色々と省略されると見直す際にﾜｹわからなくなるので、
まどろっこしくても極力ああいったｿｰｽの書き方をするようにしています。
それらのｿｰｽも参考にして、もう少し改善してみようと思います。
とりあえずは動くので失礼します。
ありがとうございました。
0192nobodyさん
04/07/27 00:23ID:???184-185 は無視しておきましょう。
あと、検索部。
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1)
検索語が跨ぐ場合も考えられますのでご注意の程を。
ex.
$data[1] = '2004/07/27';
$data[2] = 'sage';
$data[6] = 'test test test';
@word = qw|27sa agete|;
0194nobodyさん
04/07/27 02:53ID:tzLxOAtQ関係部分のコーディングを全て修正するのは大変なのですが、
ｃ言語のように、ファイルフォーマットのマクロ定義みたいなことは、ｐｅｒｌでは
できないのでしょうか？
0195nobodyさん
04/07/27 05:16ID:???そういうのは OO 的アプローチで解決する方がスマートだが、
こういうものもある。
http://perldoc.com/perl5.8.4/pod/perlfilter.html
0196nobodyさん
04/07/27 10:11ID:lcTiWytfPerl のバージョンは、Ver 5.8.0 なので、
フリーのＣＧＩを利用して
① ＣＧＩにに、 use utf-8; 行を追加
② ＣＧＩ中の、 jcode.pl を利用している部分を削除
③ 送信用ＨＴＭＬをutf-8 に変更
し、送信テストを試みるのですが、受信したメールが文字化けしてしまいます。
レス頂ければ幸いです。
0199181
04/07/27 11:40ID:5fKcxtBPありがとうでした。あと>>193さんもありがとう。まだ試してないけど
今後のために保存しておきます。皆様感謝感謝～ m(_ _)m
0200nobodyさん
04/07/27 12:14ID:q+Q9Gs/i1111,データ１
1112,データ２
1115,データ５
最大値をとってそれに1を足そうとしたんだけれど
$noに1だけ入ってしまいます。どうも最大値が文字列
扱いされているようです。
どんな感じになおしたらいいだろうか。
while(<IN>){
chomp;
$record{(split(/,/,$_))[0]} = $_;
}
$no = ((((sort keys %record))[-1]));
$no++;
close (IN);
0201nobodyさん
04/07/27 12:40ID:???1116になるので、その意味では直す必要はないよ。
ここに書いてない部分がおかしいか入力ファイルがおかしいか
というあたりだろう。もう一度良く見ろ。
特にwhileループ抜けたあとで%recordがどうなってるか、sortのあと
$no++する前の$noの値はどうなってるか、といったあたりを確認
することをオススメする。
0202nobodyさん
04/07/27 12:41ID:???そうでないならsortは文字列比較がデフォルトなので、<=>を
使った比較を明示しないとおかしくなるよ。
0203nobodyさん
04/07/27 12:48ID:5NNnTCFI最大値取るだけで、意味不明なことやりすぎ。
↓で十分だろ
while(<IN>){
if (m/^(\d+),/) {
$max = $1 if $max < $1;
}
close (IN);
0204nobodyさん
04/07/27 13:20ID:YbDKdELb0206nobodyさん
04/07/27 14:10ID:???@hoge2=( "1", "2", "4", "5" );
foreach(0..@hoge1 -1){
if($hoge1[$_] ne $hoge1[1+$_] ){
push(@hoge3,$hoge1[$_]);
}
}
foreach(0..@hoge2 -1){
foreach$wk(0..@hoge3 -1){
if($hoge3[$wk] eq $_){
push(@hoge4,$_);
}
}
}
結果
@hoge4の中身
"1"
"4"
"5"
質問させて頂きます。
@hoge1、@hoge2の要素を比較して同一だった要素を
@hoge4のように1つだけ取り出す為に上記のようにしてみましたが
効率が悪いような気がします。
もっとスマートに出来る方法はないでしょうか？
0207206
04/07/27 14:21ID:???0208nobodyさん
04/07/27 14:27ID:???foreach (@hoge1) { $h{$_} = 1; }
@hoge4 = grep {$h{$_}} @hoge2;
一例としてはこんなとこか?
0209黒死犬 ◆EgxBlf8nvc
04/07/27 14:30ID:???my $m = 0;
my $n = 0;
while($m <= $#hoge2 and $n <= $#hoge3) {
if($hoge2[$m] < $hoge3[$n]) {
push(@hoge4, $hoge2[$m++]);
} else {
$hoge2[$m] == $hoge3[$n] and $m++;
push(@hoge4, $hoge3[$n++]);
}
}
テストしてないので動作に保証出来ません（単にマージしただけだけど）
Perlだと、組み込みのハッシュ使った方が早いかも
0210nobodyさん
04/07/27 16:02ID:???後はこんなんとか、
@hoge1=( "1", "1", "1", "3", "4", "5", "5" );
@hoge2=( "1", "2", "4", "5" );
print sort keys %{{map{($_ => 1)}@hoge1,@hoge2}};
0212206
04/07/27 17:35ID:???grepを使って何とか出来ないかと思っていたのですが
hashを利用しての真偽判定でしたか。
大変参考になりました。どうもありがとうございました。
0213nobodyさん
04/07/27 17:41ID:???@hoge3みたいに重複した要素を取り除いた結果が欲しかったら
@hoge1 = grep(!$h{$_}++, @hoge1);
0214nobodyさん
04/07/27 17:47ID:???0215nobodyさん
04/07/27 17:53ID:???いるとしたらどんなツールを使っていますか
0216nobodyさん
04/07/27 17:59ID:???あ、そか、勘違い。
すません、じゃこれ
@hoge1=( "1", "1", "1", "3", "4", "5", "5" );
@hoge2=( "1", "2", "4", "5" );
print grep{${{map{($_ => 1)}@hoge1}}{$_}}@hoge2;
0217nobodyさん
04/07/27 18:03ID:???重複した要素を取り除くなら、これ
@hoge1=( "1", "1", "1", "3", "4", "5", "5" );
@hoge2=( "1", "2", "4", "5" );
print grep{!exists ${{map{($_ => 1)}@hoge1}}{$_}}@hoge2;
0219nobodyさん
04/07/27 19:35ID:OzHvZIRFhttp://tech.millto.net/~pngnews/kndh/PngSpec1.2/PNG-CRCAppendix.html
リンク先のアルゴリズムを単純にPerlに書き換えてみたんですが
全然CRC32にならなくお手上げになってしまいました。
原因はどこにあるのでしょうか？
ご教授の程宜しくです。
一応ソース貼っておきます。
テストなんでいきなり文字列渡してsplitして、最後は整形して返してますが。
print &getCRC('string');
sub getCRC {
my ($c, $n) = 0xffffffff;
unless (defined @crcTable) {
for (0..256) {
$crcTable[$_] = $n = $_;
$crcTable[$n] = $crcTable[$n] & 1 ? 0xedb88320 ^ ( $crcTable[$n] >> 1 ): $crcTable[$n] >> 1 for 0..7;
}
}
$c = $crcTable[ ($c ^ $_) & 0xff ] ^ ($c >> 8) for split //, shift;
return sprintf "%08x", $c ^ 0xffffffff;
}
0220219
04/07/27 19:39ID:???0221nobodyさん
04/07/27 19:59ID:???＃ やはり Pure Perl 実装に需要があるのかな…。
以前同じものを作ってたヤツ。動くかどうかは知らん。:p
my @crc = (0..255);
for my $c (@crc) {
$c = $c & 1 ? 0xedb88320 ^ ($c >> 1) : $c >> 1 for 0..7;
}
sub crc {
my $str = pop;
my $len = length $str;
my $pos = 0;
my $crc = 0xffffffff;
# CPU を食うが恐らく省メモリ
$crc = $crc[ ($crc ^ ord(substr $str, $pos++, 1)) & 0xff ] ^ ($crc >> 8)
while $len--;
# メモリを食うが恐らく高速
# $crc = $crc[ ($crc ^ $_) & 0xff ] ^ ($crc >> 8)
# for unpack 'C*', $str;
pack 'N', ~$crc;
}
0222nobodyさん
04/07/27 21:00ID:cIaHUHzzすみません、最大値を取る参考にしようとしていますが、
コードがシンプルすぎて、私のような初心者には
どういう動作をしているのか、わからないので
少し解説していただけないでしょうか？
m/^(\d+),/ この部分がどういう動作をしているのかがまず、わからないのですが。
それからどういう仕組みで$1が出てきて、中に
何が入ってくるのでしょうか？
それから$maxに$1という変数の値を入れた後に
if で$max < $1という条件比較をしてますが、真
だったときの実行内容が省略されていてわかりません。何が省略されているのでしょうか？
0223nobodyさん
04/07/27 21:10ID:AqRc0k7e以前、ここのスレッドで教えて頂いた内容を参考に
open(LOGFILE,">>log.csv");
print LOGFILE "\"あああ\nいいい\"";
close LOGFILE;
と記述し、Excelで開いた場合にもセル内で
改行が行われるようになりました。
ですが、改行して保存されるようにはなったのですが、
-----------
あああ・
いいい
-----------
のように、改行の部分に「・」と言った
不要な文字が表示されてしまいます。
これを、表示させないようにするにはどのようにすれば良いのでしょうか？
0224nobodyさん
04/07/27 21:14ID:???> m/^(\d+),/
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm
> if で$max < $1
http://www5a.biglobe.ne.jp/~n_rieko/perl/6.htm#6-7
0226200
04/07/27 21:48ID:cIaHUHzz$genbadata = 'C:/Program Files/Apache Group/Apache2/cgi-bin/test.dat';# 会場データファイル名
$act = "edit";
###### 会場データの読み込み ######
&lock;
open KAIBA,"$kaibadata" or die &error("会場ファイルが開けません");
@kaiba = <KAIBA>;
my $n;
$n = 0;
foreach $kaiba(@kaiba) {
chomp $kaiba;
($kai_id,$kai_name,$kai_tan,$kai_syoku,$kai_busyo,$kai_tel,$kai_fax) = split(/<>/,$kaiba);
if ($kai_name eq $kaibamei){$act = ""; print "同一の会場名が存在します。<br>";
print "既存会場名・・・$kai_name<br>\n";
print "入力した会場名・・・$kaibamei<br>\n";
print "<center><button onclick=\"history.back()\">戻る</button><br>\n";
&unlock;
}
$kai_tel =~ tr/0-9//cd;
if ($kai_tel eq $kaibatelno){$act = ""; print "同一電話番号の会場がすでに存在します。<br>\n";
print "既存会場電話番号・・・$kai_tel<br>\n";
print "入力電話番号・・・$kaibatel<br>\n";
print "<center><button onclick=\"history.back()\">戻る</button><br>\n";
&unlock;
}
}
}
長いのでいったん切ります。
0227200
04/07/27 21:50ID:cIaHUHzz### 追加会場ID生成
while(<KAIBA>){
chomp;
$record{(split(/<>/,$_))[0]} = $_;
}
$new_kai_id = (((sort keys %record))[-1]);
$new_kai_id++;
close (KAIBA);
ここで、$new_kai_idの中身が1になってます。
0228200
04/07/27 21:51ID:cIaHUHzz###### ロックファイル処理 ######
sub lock {
local($flag) = 0;
foreach (1 .. 5) {
# ロックファイルが存在すれば1秒待つ
if (-e $lockfile){ sleep(1);}
# ロックファイルが存在しなければ生成する
else {
open (LOCK,">$lockfile");
close (LOCK);
# ロックに成功したらフラグを立てループを抜ける
$flag = 1;
last;
}
}
}
### --- ロックファイル処理 END --- ###
###### ロックの解除 ######
sub unlock {
if (-e $lockfile) {unlink($lockfile);}
}
### --- ロックの解除 END --- ###
0230200
04/07/27 21:52ID:cIaHUHzz100001<>○○ホール <>鈴木<>青 <>777<>0552-99-0000 <>0552-99-0000
100002<>○○公園 <>佐藤 <>黄 <>777<>044-999-0000 <>044-999-9999
100003<>○○○第２別館 <>田中 <>白 <>777<>03-9999-0000 <>03-9999-9999
1<>○○駅前広場<>テスト<>テスト<>777<><>
1<>test<>test<>test<>default_bumon<>111<>111
1<>テスト<>テスト<>テスト<>596<>1<>2
このような感じです。
0232219
04/07/27 21:55ID:???どーもです。
返り値を
unpack 'H*', $crc;
でバッチリでした;-)
ありがとです。
>>229
どーもです。
幸せを探してきます。
■ このスレッドは過去ログ倉庫に格納されています