トップページ⇒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を見よう。
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/ とか。
0752nobodyさん02/03/20 21:50ID:???
>751
てきとーに書きすぎた。
$Mail =~ /^[\w\-\.]+\@[\w\-]+\.[\w\-\.]+$/i でどう？
0753出来の悪い子02/03/20 21:57ID:???
>>752
駄目でした。
うーん　頭冷やしてきます。

0754nobodyさん02/03/20 22:00ID:???
「$email !~ /^[\w\-\.]+\@[\w\-]+\.[\w\-\.]+$/i」にしてる？
0755nobodyおっさん02/03/20 22:32ID:???
>752==754
メールユーザID文字数は何文字でもいいの？
. （ピリオド）が２つ続いてもマッチするのでは？
最後に . （ピリオド）がきてもマッチするのでは？
i オプションの意味は？
0756nobodyさん02/03/20 22:38ID:???
>755
ならアンタが早く説明してやれよ。
どうせ初心者の相手する気なんてまったく無くて解答者に茶々入れるだけにここいるんだろけど。
0757nobodyさん02/03/20 22:40ID:???
>>747
1MB超えた辺りから、自前のエンジンより
DB_FileのBTREEとかXS拡張DBDを使うDBIが検索やソートは高速になってくるよ。
0758nobodyさん02/03/20 22:56ID:???
if($email !~ (?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"[^\\\x80-\xff\n\015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*")(?:\.(?:[^(\04
0)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"[^\\\x80-\xff\n\015"]*(?:\\[^\x80-\xff][^\\\x80-\xff\n\015"]*)*"))*@(?:[^(\0
40)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:\.(?:[^(\040)<>@,;:".\\\
[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\]))*){ &err("mailerrer"); }
0759nobodyおっさん02/03/20 23:23ID:???
>756
生半可な知識だったら書かないほうがいいということを言いたかっただけ。
できもしないのに嘘をはずかしげもなく語るほうがよっぽど迷惑なのでは？
0760nobodyさん02/03/20 23:27ID:???
>>759
じゃあおまえが絶対な解答で答えてあげてくださいよ。
0761nobodyさん02/03/20 23:29ID:???
>>759
自分が出来ないのに人を非難するのは筋違いかと。
0762nobodyさん02/03/20 23:30ID:???
>759
生半可な知識でも書いてみるのはいいことだよ。
そこからより効率のいい正しい方法の話し合いがされて、間違いを書いた方も正しいやり方を覚えられる。
初心者は自分の知りたかった事が議論によって導き出され、より理解力が深まる。
答えだけ出されるよりよっぽど勉強になるよ。
0763nobodyさん02/03/20 23:36ID:???
ドットが2つ続くかどうかなんてチェックしてたら
とても簡潔なコードにはならんよ。

それならモジュール使って送信テストまでするよ。
0764nobodyさん02/03/20 23:41ID:UA5ZBzLD
>>748,>>749,>>757
遅れましたが、ありがとう！
なんかDBの知識もなく、また頼まれ仕事で納期もないので
取りあえずタブ区切りテキスト＋自前エンジンでやるしかないんですが、
やはり動作速度を犠牲にしたほうがいいのかな。
サーバに負担かけたら怒られますかね。ド素人ですまんです。
0765nobodyおっさん02/03/20 23:53ID:???
>763
>ドットが2つ続くかどうかなんてチェックしてたら
>とても簡潔なコードにはならんよ。
なぜそういいきれる？　その根拠はなんなの？
やらないうちから決め付けるのはやめたほうがいいと思う。
0766nobodyさん02/03/21 00:09ID:???
メアドチェックならperlメモにあったよね？
ていうか>>758にある。。
0767nobodyさん02/03/21 00:29ID:???
>>764
5MBをいちいちメモリ上に展開するのはやめたほうがいいと思われ。
0768nobodyさん02/03/21 00:30ID:???
>nobodyおっさん
場に出てきたモノにカウンターかます以外のこともやってみれっての。
0769nobodyさん02/03/21 00:33ID:???
>>764
2-3年前のサーバと、今のサーバでは、CPUやメモリやHDDの回転数なんて言った
処理系のスペックは比較にならないくらいあがってるよ。
だから無茶な処理して良いと言うことではないけど、ね。
問題は、先方がコーディングする人間に支払っているコストと、与えている開発日数、
そして、要求している仕様ですべて決まると思うよ。
0770nobodyおっさん02/03/21 00:49ID:???
>768
７６１に非難するのは筋違い とありますが、わたしがはじめに書いたいくつかの
疑問点は非難しようというのではなくて助言のつもりで書いただけです。
この助言を書いた途端にどなたかがいきなりつっかかってきた上に非難される
のはこちらも困ります。

７６０に絶対な解答をとありますが、メールアドレスには[]付きのIPアドレス
を含むなどの予想外の形態のもの等もありますので不可能といっていいでしょう。
「Perlメモ」にも非常に長い正規表現が書かれていますが、これも絶対ではない
と書かれています。特殊な形態はマッチさせない条件でなら簡単に書けると思う
のですが、絶対な解答ということなので遠慮しておきます。
0771nobodyさん02/03/21 00:52ID:???
>770
初心者スレではそういう説明が重要だよ。
それがわからない人が多いんだから。
なにかを否定する場合はきちんと説明もつけましょうね。
そうすればみんながハッピーになれる。
0772nobodyさん02/03/21 01:51ID:KirJ6q/U
>>767
やはりそうですよね。過去レス随時削除するような掲示板くらいしか
作ったことなかったもので、そんなでかいのは検討も付かなかったのです。
>>769
おっしゃる通りです。俺みたいな素人に安く頼むんだから我慢しろという
姿勢で行きます。ただ、コストはそうですが、開発日数の方はちゃんとした
DBシステム覚えた方が早くて楽チンのような予感もするので、次の仕事が入るまでに
覚えることにします。

ありがとうございました。
0773nobodyさん02/03/21 02:15ID:???
>>750
正規表現はそれで合ってるよ。（意図したいことは分かる。）
漏れも、簡単なチェックならそう書く。

んで、>>751の指摘の要点は
} elsif ($email =~ /^[^@]+@[^.]+\..+/) {
じゃなくて、
} elsif ($email =~ /^[^@]+@[^.]+\..+/) {
ってしろってことだけど、これでダメだったの？

print "<H5>[$email]は不正なメールアドレスです</H5><br>";
に書き換えてみて、うまく行かない時の表示ｷﾎﾞﾝ。
077477302/03/21 02:17ID:???
>>773
ミスった。
「} elsif ($email =~ /^[^@]+@[^.]+\..+/) {
じゃなくて
} elsif ($email !~ /^[^@]+@[^.]+\..+/) {
ってしろってことだけど、これでダメだったの？ 」
でした。
0775nobodyおっさん02/03/21 02:40ID:???
>774
また責められそうですが、助言として書いておきます。
７６２さんも「議論によって導き出され、より理解力が深まる」という認識ですので。

ユーザIDにドットを含んでいてもマッチします。
アットマークの後にアットマークがきてもマッチします。
末尾は何にでもマッチします。
077677402/03/21 03:43ID:???
>>775
もちろん承知。助言さんきゅ。

ということで、いい加減な文字をemail欄に書いて書き込もうとする奴を
排除する目的じゃなくて、正しいメールアドレスしか受けつけないように
したいという目的の場合は、正規表現を改良するのもいいかも>>750
0777nobodyおっさん02/03/21 04:00ID:???
メールアドレスのパターンにマッチさせるには、まずメールアドレスの基本形式
を知ることからはじめたほうがいいと思う。（特殊形式は除く前提で）

ということで、まずはメールアドレスのかんたんな構成を書いておきます。

[メールユーザID]@[メールサーバドメイン名]
077877402/03/21 04:15ID:???
>>777
あう？
0779nobodyおっさん02/03/21 04:23ID:???
[メールユーザID] についてはほとんどのメールサーバがUnix系ということ
を考えると、だいたい文字数は４〜１０が妥当な線ダロウ。
文字の種類としてはなんといっても[@.]の２種類は含まないということで
[^@.]が考えられる訳だが、普通は[a-zA-Z0-9_-]あたりが使われる場合がほとんど
ということからエスケープシーケンスを使って表すと[\w-]と考えられる。
0780nobodyおっさん02/03/21 04:33ID:???
[メールユーザID] の文字数の点で補足ダガ、以前に３文字（３バイト）というの
を見たことあるから余裕をもって３〜１５と考えるのもいいネー。
つまり前段から /^[\w-]{3,15}@ の部分までは正規表現は決まったことになる。
0781nobodyおっさん02/03/21 05:12ID:???
っと、チョットごたくを並べ過ぎたようなので今日はここで終わりとしよう。
７６２さんが言うようにいきなり最後まで書いてしまうのはチョットですぎた
行為というものです。考える余地を与えることも勉強になるものです。

それはそうとして、「正規表現道場」っていつのまにかなくなったのかナ？
あればそっちにメアドの正規表現ぐらいのってるだろうに。閑古鳥が鳴いてた
ようだから無理もないかー。
0782nobodyさん02/03/21 05:26ID:???
>781
まだいきてるみたい。
http://pc.2ch.net/test/read.cgi/php/996105815/l50
0783nobodyおっさん02/03/21 05:38ID:???
>782
電球
0784nobodyさん02/03/21 07:03ID:???
WindowsでPerlを使う方法を、猿でも厨房でも
わかりやすく記載しているサイトってありますか？
ActivePerl入れてもなんか上手くいかなくて．．．
0785親切紳02/03/21 07:18ID:???
>>784
インストールはできたんだね。
じゃあ、コマンドプロンプト開いて
perl test.pl
とか入力すればtest.plが実行されるよ。
0786nobodyさん02/03/21 07:29ID:???
>nobodyオッサン
大口叩いてもその解答じゃ結局>>754より役に立たんな。(藁
>>763の言うとおりそれならモジュール使ってついでに送信テストまでするほうが速い。
まともに解答する気ないんなら解答者につっかかるなや。迷惑。

>>784
http://www5a.biglobe.ne.jp/~n_rieko/
0787nobodyさん02/03/21 07:46ID:p3ZJIC7X
Perlメモ メールアドレスの正規表現
http://www.din.or.jp/~ohzaki/perl.htm#Mail
0788nobodyさん02/03/21 09:40ID:???
>770
＞この助言を書いた途端にどなたかがいきなりつっかかってきた上に非難されるのはこちらも困ります。

>生半可な知識だったら書かないほうがいいということを言いたかっただけ。
>できもしないのに嘘をはずかしげもなく語るほうがよっぽど迷惑なのでは？

がホンネなんだろ？(藁
0789nobodyさん02/03/21 09:42ID:???
>779
[\w-]は[\w\-]じゃなくていいの？
0790nobodyさん02/03/21 10:14ID:???
>>779
>生半可な知識だったら書かないほうがいいということを言いたかっただけ。
>できもしないのに嘘をはずかしげもなく語るほうがよっぽど迷惑なのでは？
んな事書くんだったら、http://www.puni.net/~mimori/rfc/rfc2822.txt
でも見てからスペック決めろよ。
0791nobodyさん02/03/21 11:40ID:???
あっ ohzaki氏の「Perlメモ メールアドレスの正規表現」にバグ発見。
local-part = dot-atom / quoted-string / obs-local-part
だから
$word = qq<(?:$atom|$quoted_str)>;
$local_part = qq<$word$X(?:$Period$X$word$X)*>;
では駄目。
0792nobodyさん02/03/21 12:03ID:???
すごい初心者で悪いんですけど、
PerlってCGI以外で何かに使います？
0793nobodyさん02/03/21 12:07ID:???
ハッシュアクセスでさ、
$_{manco}
と、するべきか、
$_{'manco'}
どっちだ？
0794nobodyさん02/03/21 12:14ID:???
>>792
MakeFile とか、シェルスクリプト書くの面倒なときとか、
テキスト処理とか。
0795nobodyさん02/03/21 12:14ID:???
>>792
元々レポート作成言語。
そのため文字列操作が異様に発展。
CGI使いからはマイナーだがレポートのテンプレートを指定する機能も。

と、言うか、

Perlってレポート作成以外で何に使います？
ＣＧＩとかです。

が正しい。
0796nobodyさん02/03/21 12:15ID:???
>>793
アフォか。囲め。
0797nobodyさん02/03/21 12:15ID:???
>792
自分がよく作るのはなんちゃらコンバータとかかなぁ。
HTMLから，ある規則に従ってリンク抜き出したりとか。

>793
どっちも変わらないみたいなので，私は短い前者を使う。
0798nobodyさん02/03/21 12:19ID:???
>792
レポート処理とか。
おれはチャットログの整理とかもしてる。
複数のログから特定のキーワードを探したりするときも手軽で便利。
0799nobodyさん02/03/21 12:23ID:???
>793
2バイト文字列指定してる場合は囲んだほうがいいよ。多分ね。
0800nobodyさん02/03/21 12:29ID:???
>799
自己レス。
推測だが変数名に使えない文字の場合は囲まないとエラーが出る。
ただし変数名に使える文字なら不要。

例。$ENV{HTTP_HOST} と$Rom{"坂田＠アホ"}。
0801nobodyさん02/03/21 13:51ID:???
>>793
>>800見たいなエラーがでる場合ってのが存在するから囲め。
統一性が無いとウザイから。
0802nobodyさん02/03/21 14:09ID:???
こういう事したい。

sub manco
{
　print "sage\n" ;
}

$a = manco ;
$a() ;

なんか解決ないすかね？
0803nobodyさん02/03/21 14:15ID:???
>802
意味ねー(w
おとなしく&manco;しろ。
0804nobodyさん02/03/21 14:33ID:???
テーブルジャンプしたいの、

$a[ i ]() ;

こんな感じで
0805nobodyさん02/03/21 14:34ID:???
>802
リファレンス使ってこんな感じかな
$a = \&manco ;
&$a() ;
0806nobodyさん02/03/21 14:36ID:???
>802
$a = "print";
&{$a};
sub print {
print qq(<hr>ok!<hr>);
}
とりあえずこれで動いた。

>803
if elsif文を並べてサブルーチンに飛ばすような時とかに便利かも。
0807nobodyさん02/03/21 14:53ID:???
>>806
if elsifを並べるのはあんまり良くないでしょ。
ハッシュに入れたサブルーチン名（もしくはリファレンス）
をコールするってことでどうかね＞適用例
080879202/03/21 14:53ID:???
>>794>>795>>797>>798
回答ありがとうございました。
レポート処理のソース書いて、実行はMS-DOSからやるんですか？
CGIしか作ったことないんで、少し気になります。
0809nobodyさん02/03/21 15:00ID:???
>>808
昔は、MS-DOSからやってた。
最近はUNIXからが便利なので、そっちでやってる。
0810nobodyさん02/03/21 15:01ID:???
$a[ 0 ] = \&manco ;
$b = $a[ 0 ] ;
&$b() ;

これ、いいね、
でも、

$a[ 0 ] = \&manco ;
&$a[ 0 ]() ;

これだと駄目ね
0811nobodyさん02/03/21 15:03ID:???
>>803
&manco;
なんて、レスキューやKENTみたいなことやってんじゃねーよ。
それじゃ、プロトタイプのチェックしねーだろ。

>>806
man perlref
man perldub
組み込み関数とユーザサブルーチンの区別つけれ。

ユーザ定義ハンドラを許すようなオブジェクトなら必須。
0812nobodyさん02/03/21 15:03ID:???
>807
そうだろね。LUTみたいな考え方だね。

>808
CGI以外の用途に使うなら「Perlを始めよう」というソフトがおすすめ。
ソースを書いて直接実行したりできる。
081380302/03/21 15:05ID:???
>811
詳しく解説きぼん。
081479202/03/21 15:07ID:???
>>809>>812
ありがとうございました。
参考になりました。

このへんの住人かなりスキルが高いですね。
0815nobodyさん02/03/21 15:10ID:???
>814
皮肉にしか聞こえん・・・
0816nobodyさん02/03/21 15:51ID:???
>>808
元々はUNIXさんの言語。
0817nobodyさん02/03/21 15:59ID:???
>>803
どこでエラーになるか確かめれ。
固いコードを書きたいんだったらプロトタイプ使え。
sub manco($)
{
print "$_[0]\n";
}

&manco();
manco();
0818nobodyさん02/03/21 16:35ID:7Dyo1H3n
htmlについての質問なのですが、
フレームで上と下に分割して下のフレーム内にdocファイルへのリンクを張ったのですが、
docファイルへのリンクをクリックするとフリーズして強制終了してしまうのですが
どうすれば正しく表示できるのでしょうか。
ちなみにOSはxp proです。
0819nobodyさん02/03/21 16:37ID:???
>818
Web製作板かWin板で聞くべし。
Perlと関係ないじゃない。
0820123402/03/21 16:41ID:???
正規表現についてききたいんですがここじゃだめですか？
「>>1」と「>>1-100」を両方かけるやりかたがしりたいんですが
082181802/03/21 16:43ID:7Dyo1H3n
すいませんはやとちりました。
0822nobodyさん02/03/21 16:50ID:???
>>(\d\-)*(\d+)
0823やっぱり02/03/21 16:51ID:???
>>(\d\+-)?(\d+)
0824間違えた02/03/21 16:51ID:???
>>(\d+\-)?(\d+)
0825123402/03/21 16:54ID:???
できますた>>824さんありがとうごだいます
0826nobodyさん02/03/21 18:10ID:TYcdRNHS
質問っす。
cgiで、同じディレクトリにある他のファイルのパーミッションを変更したいんだけど、
chmodを使ってもなぜか変更できないです。
　chmod 0777,"./abc.dat";
こんな風にしてるんですが、何かやり方がいけないの？
0827nobodyさん02/03/21 18:25ID:???
>826
>>24-37とかは関係ないかな？
0828nobodyさん02/03/21 20:00ID:???
>>826
っていうかcgiの実行ユーザが問題。
0829nobodyさん02/03/21 21:22ID:???
>>810
今更ですまんが。
$a[ 0 ] = \&manco ;
$a[ 0 ]->() ;
で行くでしょ。
0830nobodyさん02/03/21 21:58ID:???
あのさ、
$manco->{'kuri'}=1;
$manco->{'torisu'}=1;
print Dumper($manco);
ってすると、

$VAR1 = {
　　'kuri' => 1,
　　'torisu' => 1
};

こんな感じで表示されんだけど、
$VAR1ってなるんだけど、
これに、名前付けられないの？
■ このスレッドは過去ログ倉庫に格納されています