トップページ⇒php
1001コメント328KB

【Perl】初心者コーナーPart10

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。02/02/24 22:18ID:zOj6Yq/3
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。
065263002/03/17 21:54ID:???
>>648
ありがとうございました
うまくいきました
065361502/03/17 23:21ID:???
>647>650
(((((||| ﾟДﾟ;;;)))))ｶﾞﾀｶﾞﾀｶﾞﾀｶﾞﾀ
065464802/03/17 23:40ID:???
>>635
何を恐がっていますか？ｗ
0655nobodyさん02/03/17 23:41ID:???
>>653
過去にデッドロックで酷い目にあったＳＥさんの霊でしょう。
065664802/03/17 23:44ID:???
>>653
あ〜〜〜〜、デッドロックがなにか悪いことだと思ってるのね。
意図しないでデッドロックに陥るのはもちろん問題だけど、
テストとして意図的にデッドロックさせるのは、問題ないよ。
プロセス止めれば、解除されるので安心したまい。
0657nobodyさん02/03/18 02:42ID:3JM+vmYu
perlでディレクトリ以下の全ファイル容量って
調べられますか？
もちろん対象ディレクトリ以下にディレクトリが複数あっても
底の底まで調べる・・・ど？
0658nobodyさん02/03/18 03:29ID:???
>657
できるよ。
ファイルサイズ取得とディレクトリ内ファイル一覧取得を組み合わせるとか，
適当なモジュール使うとか，他のプログラム使うとかで。
0659nobodyさん02/03/18 03:30ID:???
特定のHTMLファイルから4桁の数字だけ得れるプログラムを作ってます。
データを全部配列に入れてからforeachで回して、
4桁の数字を見つけたらその部分をsubstrで取り出す・・と考えているのですが
4桁の数字を見つける処理に手間取っています。
正規表現を上手く使って^(\d{4})$とやろうかなと思っているものの、どう使ったものか・・。

スマートな方法は何か無いものでしょうか。
0660nobodyさん02/03/18 04:00ID:???
>659
m//や//は，リストコンテキストで評価すると()内のリストを返すので，
それを利用するとこんな感じ。

while (<DATA>) {
　my @tmp = /(\d{4})/g;
　push @ary,@tmp;
}
print "@ary";
__DATA__
asdf1234as
d45ad6f54a32451234
af9842s
0661nobodyさん02/03/18 11:37ID:34CtYnSp
おはようございます。凄く初歩的だと思いますが
Perl４ですけど、
@DATA[ $FORM{'ressno'} ]の値を$oldDATAに代入したいんですが
つぎのコードは文法上間違ってますか？

$oldDATA = @DATA[ $FORM{'ressno'} ];

printしてみると@DATA[ $FORM{'ressno'} ]には文字列が入ってるんですが
$oldDATAは空っぽなんです。
本を見るとよさそうに見えるんですが・・・
ココで作業が止まっちゃってるんです。
おしえていただければありがたいのですが。
0662nobodyさん02/03/18 11:43ID:???
>660
()なんて必要ないケド．．．
ループ内でのｍｙ宣言はしないほうがよいのでは？
あと、その正規表現では５桁以上にもマッチしてしまうのでは？

my @array= map{ (/(\D|\b)(\d{4})(\D|\b)/g)[$[+1] } <DATA>;
print "@array\n";
__DATA__
asdf1234as
d45ad6f54a32451234
af9842s
0663nobodyさん02/03/18 11:47ID:???
>>661
$oldDATA = $DATA[ $FORM{'ressno'} ];
じゃない？
066466102/03/18 11:59ID:???
>>663
ありがとうございます。
やってみましたけど残念ながら同じ結果でした。
0665nobodyさん02/03/18 12:09ID:???
もういちど、こんぽんのデータ値を確認しては？
066661502/03/18 12:35ID:???
>661
変数名が間違ってないかもう一度確かめて。

>662
なるほど。
ループ内でmy()はしないほうがいいのか。
ループの前に宣言するか，ループの後でundefするほうがいいのね。
0667たろう02/03/18 12:37ID:eHMudoVK
一回のリクエスト/レスポンスで
クッキーをセットして取得することってできます・・・？
無理かなあ。
それかクッキーがオンかオフが判定できる方法ってありますかねえ。
0668nobodyさん02/03/18 12:46ID:???
>661
代入のタイミングが間違ってないか確認するべきかと。

printで文字列が出るという事は、@DATA[ $FORM{'ressno'} ]には文字列が入っているんだろう。
変数名の間違いという事もないと思われる。
しかし、
$oldDATA = @DATA[ $FORM{'ressno'} ];
この書き方では、@DATA[ $FORM{'ressno'} ]を変数でなく配列として認識してしまう為、その要素でなく要素数が返される。
だから>663の書き方のほうが正しい。
しかし、間違いの書き方でも、要素数の1が$oldDATAに入らないのはおかしい。
だとしたら考えられるのは変数の代入タイミングが間違っているか、変数のスコープの範囲外で判定しようとしてるかどっちかじゃないかと思われる。
0669nobodyさん02/03/18 13:00ID:???
>661
その価値のないソースを見せてみＲＯ！
067066302/03/18 13:18ID:???
>>664
なら、@と$の間違いじゃない(配列に何か入ってる）ということで、
$oldDATA = join(undef,@DATA[ $FORM{'ressno'} ]);
とか。
0671nobodyさん02/03/18 13:23ID:???
>670
６６３をやってダメなのにオマエはアフォか？
067266102/03/18 13:37ID:???
>>668
ありがとうございます。その通りでした。
変数のスコープの範囲外です。
勉強不足で申し訳有りません。

他の皆さんも、ありがとうございました。

0673nobodyさん02/03/18 14:36ID:HCOk+r4Y
色々調べましたが、わからない事があるので質問します。
どうぞよろしくお願いします。
use関数についてなのですが、よく
use lib '/mylib';
というのを目にしますが、これの第二引数'/mylib/';の意味がわかりません。
ご教授いただけないでしょうか？
それともう一つ
use I18N::Japanese;
の”::”の意味は一体なんなのでしょうか？さっぱり意味不明です。
それでは失礼します。
0674nobodyさん02/03/18 14:38ID:HCOk+r4Y
>>673
補足させていただきます。
"::"がパッケージ変数へのアクセスに使われるというのは知っているのですが
use関数で使われる事の意味がわからないのです。
0675nobodyさん02/03/18 14:48ID:???
>>673
モジュールを読み込むディレクトリに'/mylib'を追加しまっせ！
'::'はディレクトリ構造を表します
I18N/Japanese.pm
067667002/03/18 14:57ID:???
>>671
おうよ。
067767302/03/18 15:27ID:HCOk+r4Y
>>675
お答えありがとうございます！
"::"の意味がよくわかりました。一ヶ月くらい悩んでただけに感動ですｗ
'/mylib'は、つまりlibモジュールだけの特別な引数であるという
解釈でよろしいのでしょうか？
0678nobodyさん02/03/18 15:32ID:???
>>673
正直、駱駝本を読む事をオススメする。
067967502/03/18 16:06ID:???
>>673
useの後ろに付くlibはプラグマってやつね。
プラグマはperlの動作を変えるわけ。strictとかutf8とかあるから
自分で調べてみなさい。(プラグマは慣用的に小文字を使う。)
use lib LIST;は
BEGIN { unshift(@INC, LIST) }と同じね。
@INCにはモジュールなどを探すディレクトリが入ってるわけです。
068067302/03/18 16:41ID:BUM18lm5
>>678
はい。わかりました。ただ「駱駝本」が読めないのが難点ですがｗ
今度書泉で探してみますね。
>>679
よーーーーーーーーーーくわかりました！プラグマですか。正直そんな
単語は聞いた事も無かったですね。どうもありがとうございました。
0681nobodyさん02/03/18 16:45ID:???
@INCってinclude?
0682nobodyさん02/03/18 17:19ID:???
>>680
らくだぼん、とよむ。
0683nobodyさん02/03/18 17:31ID:kNBmdvNL
すみません！
煮詰まってしまったので教えて下さい。


受け取るデータ(文字列：長さ制限なし)が1000文字以上だった場合、
文頭、文末それぞれ1文字を削除した状態に加工後、

REMOTE_ADDR,domain,加工後の文字列,文字列を受け取った時間

というようにCSV形式に成形して↑これをファイルに書込んでいます。

文字コードはEUC-JPで、文字列の加工にはsubstrを使っています。
文字列の加工まではうまくいくのですが、ファイルに書込まれたデータを
見ると、文字列の最後と時間の前のカンマが全角ひらがなとして1文字に
なってしまいます。

この文字化けを解消する方法ありませんでしょうか？
ファイルに書込んだ後比較用データとして、後でまた呼び出し
カンマでsplitをかけると、ちゃんと時間と文字列に分割されては
いるようなんですが････
0684nobodyさん02/03/18 17:46ID:???
>>683
EUCなら簡単に出来ますが、１文字削除する行為が意味不明なので
教えてあげない。
ってゆうか、Perlメモ見れば分かるよね。
068568302/03/18 17:48ID:???
一応perlメモ見たんですが(^^;
もう一回逝ってきます。
1文字削除は私にも…上からの命令なのです。
068668302/03/18 17:52ID:???
>>684
ありがとうございました。
見つかりました！
あ、即レスも感謝です。

perlメモ今見てきたらありました。
煮詰まってるとだめですね。。。
0687nobodyさん02/03/18 19:23ID:???
特定のサブルーチン（メソッド）が、継承されても、
常に親クラスのを呼び出すことって出来ますか？
つまり、$obj->method とあった時に、
$objが子クラスのオブジェクトでmethodが子クラスにあった時でも
親クラスのmethodを呼び出すような物です。
それをSUPER::とかじゃなくて、クラス側（モジュール側？）で書きたいのです。
可能であれば、是非方法を御教授下さい。
宜しくお願い致します。
0688nobodyさん02/03/18 20:42ID:???
>>687
？
オブジェクト指向的に妙じゃないか？
0689nobodyさん02/03/18 20:43ID:???
なぜSUPERじゃだめなのか小一時間質問したい。
それともあれか、"virtualではない"メソッドを定義したいってか？
069068702/03/18 22:53ID:???
例えばアクセスメソッドとかがオーバーライドされたら、あれだと思ったので、、
まぁ無理ならいいです。すいませんでした。
0691nobodyさん02/03/19 00:04ID:???
>>690
java でいう final てやつだね。perl5でできるのかなー。
0692nobodyさん02/03/19 01:20ID:???
どなたかわかるかたがいたら教えていただきたいのですが、
CSVデータをうまく分割するコードがあれば是非教えてください。
Perlメモにあるやり方は知っていますが、ほかにもっとうまいやり方が
ありそうでなかなか思い浮かばないので途方に暮れています。
できればワンライナーかシュウォーツ変換のうまいコードがあればありがたいです。
0693nobodyさん02/03/19 01:34ID:???
>>692
もっとうまくってどんなふうに？
0694nobodyさん02/03/19 02:44ID:???
>693
>できればワンライナーかシュウォーツ変換のうまいコードがあれば
ってことですが．．．
0695nobodyさん02/03/19 03:16ID:???
>>694
１行で書いても何も得にならないよ。
そんなことで悩んでないでPerlメモにあるやつを、自分の使いやすいように
アレンジするか、適当なモジュールを導入した方がいいと思う。
但し、格納するデータが汎用でなくカンマやダブルクウォートを含まないのなら
特に加工が必要ないので簡単になるけどね。
バイナリを格納しないのなら、区切りを制御文字に・・・(CSVにならない)

で、結局君はどんな目的で「ワンライナーかシュウォーツ変換のうまいコード」
が必要なわけ？
0696nobodyさん02/03/19 03:37ID:???
>695
すぐに使うわけではなかったのでべつにできないならできないでいいけど、
たったいまこちらである程度いいものができたのでテストを繰り返して
いるところです。
ただ、わたしのライブラリを増やしたかっただけ（自己満足）なのでこれで
５パターンになりつつあります。（テスト結果でバグがなければ）
ただ、Perlメモにあるのはなんか好きになれないというだけのことです。
いま書いたのは、ワンライナーで２次元配列にセットするものでなんとなく
気に入っています。
ということで、この質問は自己解決のためもう忘れてください。
0697nobodyさん02/03/19 09:43ID:???
シュウォーツって初めて見る表現だな。Schwartzだから間違っちゃいないのか…。
0698nobodyさん02/03/19 17:20ID:FUNiZ5qx
Perlでoopってどうなの
皆してる？
流行のソースの記述きぼーん
0699nobodyさん02/03/19 19:08ID:???
>>698
エージェント指向。
0700nobodyさん02/03/19 20:27ID:???
>>698
ユーザー指向。
0701nobodyさん02/03/19 22:01ID:???
>>698
LWPとか*::Parserとその派生クラスとかDBIとかいろいろあるけど、
最も身近なのはTieかな。
0702　02/03/19 23:05ID:???
perl の eq 演算子(文字列比較)なんですが、比較したい変数の先頭文字が
メタキャラクタの場合、比較がうまくいかないのですが、こういうものなのでしょうか？

たとえば下記のような二つの文字列を代入した変数があります。

$ORIG="hello";
$TARGET="$$";

これを比較した場合、等しくなってほしくないのですが、eq で比較すると
等しいという結果になってしまいます。
↓こんな感じ。

if ($ORIG eq $TARGET) {

# この中に入ってしまう

} else {

#本当はこっちに来てほしい
}


変数にメタキャラクタが入っている場合、どのように比較すればいいのでしょうか？
あるいは、変数の最初の文字にメタキャラクタが入っている場合、
うまく比較できないのは perl の仕様なのでしょうか？
0703nobodyさん02/03/19 23:07ID:???
$ORIG = "hello";
$TARGET = '$$'; # シングルクオートで囲ってあるの。

で大丈夫だよー。
0704nobodyさん02/03/19 23:13ID:???
$$はスクリプトを実行しているPerlのプロセスIDだね。
0705nobodyさん02/03/19 23:44ID:???
先生！当方、Windows Meなのですが
Perlを勉強したいと思い、perlの本を買いました。
（すぐわかるPerl、CGI&Perlポケットリファレンス）

とりあえず、最初どうしたらよいのでしょうか？
プログラミングを参考書に習って書いていくにしても
どういう風に進めたらいいか分からなくて．．．
0706nobodyさん02/03/19 23:45ID:???
>>705

買った本に書いてなかったか?
0707nobodyさん02/03/19 23:47ID:???
>>705
ActivePerl落とした？
0708nobodyさん02/03/19 23:50ID:???
>>703-704
それでも等しくなるのはおかしい。

>>702
> うまく比較できないのは perl の仕様なのでしょうか？
なわけねぇだろ。
100%お前のミスだよ。

ifの前に print("$a $b\n") で変数の値を出力してみろ。

0709nobodyさん02/03/19 23:51ID:???
>>705
すぐわかるの巻末を熟読。
071070202/03/20 00:12ID:???
>>703 >>704

レスありがとうございます。
すみません、ちょっと私の書き方がまずかったです。
perl においてシングルクォートでくくると、変数を展開しない、エスケープが使えないというのは承知しているのですが、
今回のケースは、正確には下記のようなケースなのです。

前提：
1.テキストファイルにデータが書かれている
2.テキストファイルには、1行に複数の項目が書かれており、デリミタでくくられている

処理：
1.テキストファイルから1行読み込む
2.splitで分割する(分割した文字列が $TARGET に入る)
3.その文字列を eq で比較する

という感じなので、$TARGET には、普通の ascii 文字列が入ってくるかもしれないし、
$ とか ? で始まる文字列が入ってくるかもしれないのです。

↓コード例==============
$ORIG="hello";

open(DATA, "ファイル名")
while(<DATA>){
　@hoge = split(/,/, $_);
　$TARGET= @hoge[0];
　if ($ORIG eq $TARGET) {
　　# $TARGET の中身の先頭文字が $ などの場合は
　　# この中に入ってしまう
}
:
==============

さぁどうしようかという感じなのですが....
どこかに、「eq では、先頭にメタキャラクタが入っていると比較できない(perlの仕様)」
見たいなことが明文化されていると、ある意味幸せなんだけど...
みなさんこういうときどうされてますか？
0711nobodyさん02/03/20 00:14ID:???
$TARGETをprintしれ。
そうすれば大体わかる。
っつーか全ソース晒せ。
0712nobodyさん02/03/20 00:15ID:???
>>710
709は読んだか？

大体メタキャラクタってなんだよ。"正規表現の"メタキャラクタならまだ解らんでもないが。
脳内定義は止めてくれ。
0713　02/03/20 00:21ID:fhi6exvT
あ〜実験しますね
>>10
>>10-20
>>アボーン
http://
http://ドキュソ

0714　02/03/20 00:22ID:fhi6exvT
う〜む
こういうことになるのかぁ
0715　02/03/20 00:23ID:fhi6exvT
>>1000000
http://DQN
http://DQN.jp
これではどうかな
0716　02/03/20 00:24ID:fhi6exvT
なるほど
ではこれでは
>>DQN
0717　02/03/20 00:25ID:fhi6exvT
>>は数字じゃないとだめなのね
http://は半角文字じゃないとだめなのね
＿φ(￣ー￣ )メモメモ
0718nobodyさん02/03/20 00:26ID:???
>>ID:fhi6exvT
消えろ
0719　02/03/20 00:27ID:fhi6exvT
そだこれはどだ
>>5どきゅん
http://DQNんだ
0720　02/03/20 00:28ID:fhi6exvT
うぃ実験あんがとでした。
>>718
0721nobodyさん02/03/20 00:29ID:???
fhi6exvTよぉ。
たかが２ちゃんねるでもな、おもしれぇところで下らん事やると、
そこは面白くない場所になって寂れるんだよ。

下の方にいくらでも廃墟のスレッドがあるだろ？
そこで、sageでこっそりやるのがテストってモンなんだよ。
0722ﾈﾀ?ﾆﾏｼﾞﾚｽ02/03/20 00:29ID:???
>>710
> どこかに、「eq では、先頭にメタキャラクタが入っていると比較できない(perlの仕様)」
> 見たいなことが明文化されていると、ある意味幸せなんだけど...

僕は不幸だと思います。
0723　02/03/20 00:32ID:fhi6exvT
>>721
あ、sageですればよかったすね
失礼しました。
ところでお聞きしたいんですが２ちゃんねるのレスの改行制限、文字数制限っていくつなんでしょうか？
いま２ちゃんねるのまねＣＧＩつくってまして
0724nobodyさん02/03/20 00:35ID:???
>723
↓とかで。
【スレッド】　２ch型掲示板その４　【フロート式】
http://pc.2ch.net/test/read.cgi/php/1010669197/l50
0725nobodyさん02/03/20 00:52ID:???
荒らしは放置の方向でいこうYO
072670202/03/20 01:06ID:???
>>709 >>711 >>712
レスどうもありがとうございます。(709は 710 を書いた後に気がつきました。)

すみません、結論から言えば私のミスでした。みなさん申し訳ありません。
perl の eq は間違っていませんでした(printしまくってみて、気がついた。)
別のところが問題だったのですが、そこがわかりません。
ソースを貼り付けます。
1 #!/usr/bin/perl
2
3 $ORIG="hello";
4 print "$ORIG\n";
5
6 open (DATA, "dat.txt");
7 while (<DATA>) {
8 chomp;
9
10 @hoge = split(/,/, $_);
11 $AA = @hoge[0];
12 $BB = @hoge[1];
13
14 print "\n";
15 print '$AA>>'."$AA"."<<";
16 print '$BB>>'."$BB"."<<\n";
17
18 if( $ORIG eq $BB) {
19 print "pattern 1\n";
20 } elsif($ORIG =~ /$BB/ ) {
21 print "pattern 2\n";
22 } else {
23 print "pattern 3\n";
24 }
25 }
072770202/03/20 01:06ID:???
hoge.datの内容
----------------
11,bb
22,$$
----------------

実行結果
----------------
$ ./hoge.pl
hello

$AA=11 $BB=bb
pattern 3

$AA=22 $BB=$$
pattern 2
----------------

気になるのは、2行目のデータを読み込んだときに
hello と $$ を比較していて、
部分一致になってしまっている点です。この二つを比較すると
不一致になる(だから pattern 3 が表示される)
はずなのですが、どうして pattern 2 にいってしまうのでしょうか？
0728nobodyさん02/03/20 01:16ID:???
$BB = quotemeta($BB);
072970202/03/20 01:42ID:???
ああっ、直りました!!
quotemeta(); をいれて print してみたところ、
$$ が \$\$ で表示されました。

この quotemeta(); で、今まで問題がなかったところに影響がないかどうか、
テストをしてみます。
(quotemeta されることにより、いままで正常に eq できていたところが
eq できなくなると、それはそれで困るので)

ついでに quotemeta() で、\ が挿入される文字についても調べて見ます。
(正規表現で特別な意味を持つ文字が対象？ だからセミコロンとかは対象にならない？)

728 さん、どうもありがとうございました。
0730nobodyさん02/03/20 09:35ID:???
>>729
とりあえずquotemetaの「meta」が何を意味するのかを勉強しなさい。
どうもeqと正規表現の違いが分かっていないように見える。
0731nobodyさん02/03/20 10:17ID:???
ハッシュを多次元配列の構造体としてついかいたいんだけど

$mesu{ 'manco' }{ 'size' } = '宇宙' ;

見たいな感じで、
合わせて、どっかいいポインター紹介してもらえないすか、
0732nobodyさん02/03/20 10:19ID:???
>>731
どうぞご自由に使ってください。
貴方の邪魔をする者はいません。

「どっかいいポインター」が何の事かは分かりませんが…。
0733nobodyさん02/03/20 10:28ID:???
無理だと思うからキーを<>で区切れば?

あとここの人間下ネタ嫌いみたいだから・・・(笑
0734　02/03/20 10:34ID:fhi6exvT
フォームメールで添付ファイルを送信するやりかたをおしえてください
0735nobodyさん02/03/20 10:59ID:???
>734
7bitにエンコード(←合ってる?)したりかなりめんどくさいからオススメしません。
0736nobodyさん02/03/20 11:02ID:???
>>735
逆に一回BASE64なりなんなりのライブラリを作ったら最強。
0737nobodyさん02/03/20 11:35ID:???
これはどうだろう?
http://member.nifty.ne.jp/hippo2000/perltips/perlmail.htm
073873102/03/20 13:19ID:???
なんかそのままいけたくさい。
>$mesu{ 'manco' }{ 'size' } = '宇宙' ;

>「どっかいいポインター」が何の事かは分かりませんが…。
URLって事で
0739　02/03/20 18:12ID:fhi6exvT
>>734ですが
mimew.plっての発見してできました。
074073502/03/20 19:29ID:???
>739
そらよかったやん。
語学のためにURLきぼんぬ。
0741nobodyさん02/03/20 19:37ID:???
少々板違いなんですが、Windows上でperlを動かすと
コマンドプロンプトらしきものが立ち上がり
そこでperlが動いてるのが見えるんですが
これを見えないようにするやり方ありませんか？
バックグラウンド（？）で動かしたいのです
0742nobodyさん02/03/20 19:40ID:???
>>741
無理。以上。
0743nobodyさん02/03/20 19:41ID:???
コマンドプロンプトから実行せんとどこから実行すんのよ。
ひょっとしてApache か anhttpdのDOS画面のことか?
0744nobodyさん02/03/20 19:46ID:???
>>743
＞anhttpdのDOS画面

むぅ？
　 ПП　
　（゜x゜　）○
0745nobodyさん02/03/20 19:55ID:???
>744
いや，おれのマシンではたまに出てくるのよ。4回に1回ぐらい。
0746nobodyさん02/03/20 20:24ID:???
>>741
perl.exeじゃなくてwperl.exeだったら大丈夫じゃない？
ActivePerlだったら入っているはず。
0747nobodyさん02/03/20 21:22ID:UA5ZBzLD
テキストデータファイルperlで扱うCGIを作る場合、
全部一気に配列に読み込んで扱いますか？？
データソートとかする場合、いちいち読みに行くと遅いかなあと思うけど
サーバに負担かかるだろうし、例えば5Mくらいのデータファイルだったら
普通みなさんどうしますか？
それから、データが後々増えることを考慮する場合どうしますか？
0748nobodyさん02/03/20 21:26ID:???
>>747
前それでもめた。

while(<>)

がベストというのが有識者の意見。
0749nobodyさん02/03/20 21:28ID:???
>748
それは「表示するだけなら」じゃないのか？
0750出来の悪い子02/03/20 21:32ID:K1AeGIQF
質問です
メールをチェックする正規表現がうまく作動しないのですが
どうしたら良いですか？

} elsif ($email =~ /^[^@]+@[^.]+\..+/) {
&Header('Insert Editor');
print "<H5> 　　　 Emailが正しく入っていません<br>";

これだと素通りしてしまいます
とりあえず下記のやり方でごまかしているのですが。

} elsif ($email eq "") {
&Header('Insert Editor');
print "<H5> 　　　 Emailを入力してください<br>";

これじゃチェックにならない(´・ω・`)ｼｮﾎﾞｰﾝ

どう記述すれば良いでしょうか？
0751nobodyさん02/03/20 21:48ID:???
while(<xxx>){ push(@yyy); } ね。
その時散々煽ったおれも全部上に書き換えたよ。(笑

「^」使うとまぎらわしいね。「 !~ メールアドレスの書式」 にしてみろよ。

てきとーで書くけど $email !~ /\w\.-_@\w-_\.\w/ とか。
■ このスレッドは過去ログ倉庫に格納されています