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

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/01/18(水) 02:17:46ID:???
Perlのコーディングで困ってる人のスレです。

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10
0249nobodyさん2006/01/27(金) 14:04:36ID:???
同じじゃない？
0250nobodyさん2006/01/27(金) 15:34:07ID:???
そんな差を気にするくらいならPerlを使うべきではない
0251nobodyさん2006/01/27(金) 15:41:22ID:???
ベンチも取れんのかお前はー!
0252nobodyさん2006/01/27(金) 15:44:22ID:???
公園にいけばたいていあるのにな。
0253nobodyさん2006/01/27(金) 15:48:33ID:???
>>248
気になるなら自分で調べるなりさー…
100万回くらい繰り返さないと差なんて出ねーよ。

Benchmark: timing 1000000 iterations of not_equal, unless...
　not_equal: 0 wallclock secs ( 0.20 usr + 0.00 sys = 0.20 CPU) @ 4950495.05/s (n=1000000)
　(warning: too few iterations for a reliable count)
　unless: 2 wallclock secs ( 0.27 usr + 0.00 sys = 0.27 CPU) @ 3759398.50/s (n=1000000)
　(warning: too few iterations for a reliable count)
0254nobodyさん2006/01/28(土) 00:39:19ID:???
>>253
お前いいﾔﾂだな
0255nobodyさん2006/01/28(土) 05:56:33ID:ZADCbzDw
$aに文字[abc]が入っていた場合、 $a1 = hoge;
$bに文字[def]が入っていた場合、 $a1 = hogehoge;
みたいにすることはできますでしょうか？
0256nobodyさん2006/01/28(土) 06:54:55ID:???
if($a eq 'abc'){
　　$a1 = ''hoge;
}
if($b eq 'def'){
　　$a1 = ''hogehoge;
}
もし $b の 処理のとき $a1 に何かが入っていない場合であるなら
if(!$a1 && ($b eq 'def')){
で
0257nobodyさん2006/01/28(土) 06:55:30ID:???
ごめ
$a1 に代入する文字列が '' の外に出ちゃってるｗ
02582562006/01/28(土) 07:08:29ID:ZADCbzDw
>>257さん
ありがとうございます
でもこれとはちょっと違うんです
説明下手ですみません

$a = [email protected]だとして
[@xx.xx]の場合、$a1 = @hoge.ne.jp;を代入
$a = [email protected]だとして
[@yy.yy]の場合、$a1 = @hogehoge.ne.jp;を代入

みたいな感じで代入したいんです。
これは可能でしょうか？
何どもすみません
0259nobodyさん2006/01/28(土) 07:15:16ID:???
my($user, $host) = split(/\@/, $mailaddress);
my($newhost);

if($host eq 'abcdefg.ne.jp'){
　　$newhost = 'hoge.ne.jp';
}elsif($host eq 'vwxyz.co.jp'){
　　$newhost = 'hogehoge.ne.jp';
}else{
　　$newhost = 'heogehogehoge.or.jp';
}
02602562006/01/28(土) 07:18:06ID:ZADCbzDw
分かりやすく書きますmm
もし$aが文字列[abc]を含んでいたら
$a1 = hoge;
#　$a = "abc123"; だとしてもこの処理を行う
もし$aが文字列[def]を含んでいたら
$a1 = hogehoge;
# $a = "def123"; だとしてもこの処理を行う
0261nobodyさん2006/01/28(土) 07:23:22ID:???
ほんとそれが「判別したいこと」のすべて？
そうと信じて最後に・・・

my($mailaddress, $newhost);

if($mailaddress =~ /abc/i){
　　$newhost = 'hoge.ne.jp';
}elsif($mailaddress =~ /def/i){
　　$newhost = 'hogehoge.ne.jp';
}else{
　　$newhost = 'heogehogehoge.or.jp';
}
0262nobodyさん2006/01/28(土) 07:27:19ID:???
>>260
index("abc", $a);
で次の条件はなんだ
"Abc"の場合も含むとかか
0263nobodyさん2006/01/28(土) 07:35:30ID:???
いくら例だとしても $1 とか $b は使うべきではないと思うんだけど・・・
これが sort に関してだったら返事してないｗ


>262
面倒だから正規表現でやったお
0264nobodyさん2006/01/28(土) 07:37:21ID:???
$1 じゃねぇや $a ね
0265nobodyさん2006/01/28(土) 07:38:02ID:???
今気が付いたんだけど、名前欄の数字違いますからｗ
02662552006/01/28(土) 07:45:20ID:ZADCbzDw
皆さん朝っぱらからご迷惑おかけしますmm
どれもできませんでした(^^;
>>261さん、わかりにくいくてすみません

アドレスをフォームで送ってもらい、そのアドレス欄
$mailに docomoの文字が入っていた場合、
$mailto = [email protected]
$mailに ezの文字が入っていた場合、
$mailto = [email protected]
みたいな文字列を返したいんです
わかりにくいですかね(^^;
0267nobodyさん2006/01/28(土) 07:59:12ID:???
暇なので反応ｗ

my($user, $host) = split(/\@/, $mail);

if($host =~ /docomo\.ne\.jp$/i){
　　# DoCoMo の場合の処理

}elsif{$host =~ /ezweb\.ne\.jp$/){
　　# au の場合の処理

}elsif{$host =~ /[dhtcrknsq]\.vodafone\.ne\.jp$/i){
　　# vodafone の場合の処理

}else{
　　# どれにも一致しない場合
}
0268nobodyさん2006/01/28(土) 08:00:51ID:???
訂正


my($user, $host) = split(/\@/, $mail);

if($host =~ /^docomo\.ne\.jp$/i){
　　# DoCoMo の場合の処理

}elsif{$host =~ /^ezweb\.ne\.jp$/){
　　# au の場合の処理

}elsif{$host =~ /^[dhtcrknsq]\.vodafone\.ne\.jp$/i){
　　# vodafone の場合の処理

}else{
　　# どれにも一致しない場合
}
0269nobodyさん2006/01/28(土) 08:09:12ID:???
冗長
0270nobodyさん2006/01/28(土) 08:21:36ID:Tyr9AIOh
>>268間違ってるよ
知ったかすんな(^ω^)
0271nobodyさん2006/01/28(土) 08:25:12ID:???
例も示せない奴m9（＾Д＾）
0272nobodyさん2006/01/28(土) 08:26:52ID:???
間違い指摘じゃなくてお手本プリーズ
0273nobodyさん2006/01/28(土) 08:28:37ID:???
>269-270
>272
02742552006/01/28(土) 08:29:15ID:ZADCbzDw
>>270さん
もし分かるようでしたら教えてください
お願いします
0275nobodyさん2006/01/28(土) 08:35:41ID:???
>255=274
>270は突付いてみただけで何も書けない人なので待つだけ無駄だよん(^ω^)
02762552006/01/28(土) 08:43:35ID:ZADCbzDw
>>275さん
そうでしたか
皆様ありがとうございました
できなかったんですが
これを参考にsplit(よくわかんない)から勉強しなおしてきます
どうもありがとう
0277nobodyさん2006/01/28(土) 08:46:09ID:???
splitしなくても
/\@docomo\.ne\.jp$/i
とかでもOKです。
0278nobodyさん2006/01/28(土) 08:53:28ID:ZADCbzDw
require 'cgi-lib.pl';
&ReadParse(*in);
って数字以外扱えないとかありますか？
0279nobodyさん2006/01/28(土) 08:54:03ID:???
主語述語をハッキリと
0280nobodyさん2006/01/28(土) 09:14:12ID:ZADCbzDw
#こんな感じで書いてます

#!/usr/bin/perl
require 'cgi-lib.pl';

&ReadParse(*in);
my $acc = $in{'a'};
my $url = $in{'u'};

if($url = ~/ne\.jp$/i){
$st = "31";
}else{
$st = "23";
}
$ge = $st*$acc;
print <<"EOM";
content-type:text/html\n
<html><head><title>hoger</title></head><body>\n
<a href="$url">$url</a><br>
答えは$geです。<br>
</body></html>
EOM
exit;
0281nobodyさん2006/01/28(土) 09:16:38ID:???
おまえ日本語読めてますか〜？
主語述語どころかさっきよりも日本語変になってんじゃんけ
0282nobodyさん2006/01/28(土) 09:23:48ID:ZADCbzDw
>>281さん
すいません
言葉ではうまくいえないので
スクリプトさらしたほうがいいかと思って…
0283nobodyさん2006/01/28(土) 09:25:17ID:???
こんな風に書いててこんなエラーが出てます
どこか間違えてますでしょうか？

ソース開始



エラー内容開始



って書くのが普通じゃないかなと
0284nobodyさん2006/01/28(土) 09:29:23ID:ZADCbzDw
>>283さん
フォローありがとうございます
エラーは
<a href="$url">$url</a>が正しく表示されない(31となる)
どんなURLでもすべて["31"]が返ってくる
です
一応動作はします
0285nobodyさん2006/01/28(土) 09:31:49ID:???
そりゃそうだ
=~ ne\.jp$/i は「文字列の最後が ne.jp で終わっていれば」って意味だから
日本の大概のプロバイダのメールアドレスは一致するだろう
0286nobodyさん2006/01/28(土) 13:28:07ID:Tyr9AIOh
でも
0287nobodyさん2006/01/28(土) 13:40:33ID:???
>>280
前も見たな、こんなの
＞ if($url = ~/ne\.jp$/i){
正規表現マッチは =~ であって = ~ は意味が違う
0288nobodyさん2006/01/28(土) 13:59:03ID:ZADCbzDw
>>287さん
ありがとうございます！
それが原因でしたm(_ _)m
でもこれって最後の文字が[ne.jp]だったらってことですよね？
文の途中に入ってても処理してくれるようにはできないんですか？
しつこいようですがお願いいたします
0289nobodyさん2006/01/28(土) 14:05:22ID:???
正規表現でググればわかるんじゃないかなー
0290nobodyさん2006/01/28(土) 17:23:41ID:ZADCbzDw
>>289さん
正規表現マッチかなり便利そうですね
まだPerlかじりかけでして、
初歩的な質問ばかりしてご迷惑かけたことお詫びします＞＜
これ見てやってみようと思います
0291nobodyさん2006/01/28(土) 17:52:35ID:???
他サーバーにあるHTMLファイルを読み込みたいと思っています。
LWPやHTTP:Liteというモジュールを使う方法をがあるようですが
これらが一般的でしょうか？
プロバイダのサーバにはインストールされていないようなので
他にも方法があれば教えてください。
0292nobodyさん2006/01/28(土) 18:32:38ID:???
>>291
だうそして、例えば Lib というディレクトリにおいて、
use lib "./Lib";
とやれば普通に require したり use したりできるようになるはずだべ。
0293nobodyさん2006/01/28(土) 18:34:53ID:kB13KdYy
すいません。教えて下さい。
クッキーをセットするサブルーチンで、
print "Content-type: text/html; charset=Shift_JIS\n";
print "set-Cookie: $COOKIE_NAME=$value; expires=$date\n\n";
と出力していて、うまくセットされていたのですが、このサブルーチン
より先に別のサブルーチンを呼び出すよう変更した途端、クッキーがセ
ットされなくなりました。その先に呼び出すサブルーチンその中に
print "Content-type: text/html; charset=Shift_JIS\n";
があるためと思われますが、クッキーセットのサブルーチンの
print "Content-type: text/html; charset=Shift_JIS\n";
を削ってもうまくセットされません。どうしてでしょうか？
0294nobodyさん2006/01/28(土) 18:43:16ID:???
予想：ブラウザに set-Cookie: $COOKIE_NAME=$value; expires=$date が表示されてる
02952932006/01/28(土) 18:54:28ID:HCtuTUwq
>>294
はい。その通りです。どうしたら良いでしょうか？
0296nobodyさん2006/01/28(土) 19:01:01ID:???
>>292
できました！
てっきりインストールしないと使えないものかと思ってました。
レスありがとうございました。
0297nobodyさん2006/01/28(土) 19:08:44ID:???
>>295
＞print "Content-type: text/html; charset=Shift_JIS\n";
お前、この文の意味わかってるか？
02982932006/01/28(土) 19:43:54ID:3C15B2MW
>>297
すいません。分かりません。教えて下さい。
0299nobodyさん2006/01/28(土) 19:46:18ID:???
>>293のIDが全て違うから、もうこの話は終わりにしよう
03002932006/01/28(土) 21:21:54ID:wIuX5Wpl
すいません。そういう体質なもので仕方がないのです。
どなたか引き続き教えて下さい。
0301nobodyさん2006/01/28(土) 21:24:40ID:???
ここはPerlのコーディングスレでCGIスレではないんだが。
0302nobodyさん2006/01/28(土) 21:25:11ID:???
>>300
オライリーの「CGIプログラミング」15分でいいから立ち読みしてこい。
0303nobodyさん2006/01/28(土) 22:56:49ID:???
perl で例えばファイルをコピーする場合に、
何％終了のようなメッセージをどうしたら出力できますか？
0304nobodyさん2006/01/28(土) 23:19:15ID:???
ActiveXとかFlashとか使わないと無理
0305nobodyさん2006/01/28(土) 23:23:24ID:???
いや、ファイルをコピーの状況にもよるだろ。
CGIスレじゃないし、ローカル上のやりとりだと仮定すればできる。
具体性に欠ける質問には答える気0だけどな。
0306nobodyさん2006/01/28(土) 23:25:39ID:???
>>303
stat関数でファイルサイズを求めておき、read,writeのループをしながら読んだ・書いたバイト
数を累積していき、時々%を計算してprintすれば良いんじゃない?
0307nobodyさん2006/01/29(日) 02:18:43ID:???
1レスポンスしか投げれないからなぁ。
Ajaxからめたら強引にできそうだけど。
0308nobodyさん2006/01/29(日) 02:24:18ID:???
俺だったら FTP 開けるなｗ
0309nobodyさん2006/01/29(日) 09:20:15ID:???
ネットワーク越しにコピーするとは誰も言ってないのに...
Ajaxとか... FTPとか...
キミ達の妄想力には呆れるばかりだよ。
0310nobodyさん2006/01/29(日) 10:29:17ID:???
友達がいないんだからしかたねーじゃん。
0311nobodyさん2006/01/29(日) 11:05:56ID:???
>>303がどちらとも取れる質問なんだから、
どう答えても問題なし。

明確な回答が欲しければ､明確な質問をすること。
03123092006/01/29(日) 11:15:29ID:???
俺が質問者だと思い込むキミの妄想力には呆れるばかりだよ。
0313nobodyさん2006/01/29(日) 11:18:07ID:???
>>312
あんた誰？
03143092006/01/29(日) 11:58:10ID:???
俺は309だよ。
0315nobodyさん2006/01/29(日) 12:05:03ID:???
じゃあどうでも良いな。
03163092006/01/29(日) 12:48:06ID:???
騙り本気でｳｻﾞいんだけど
03173092006/01/29(日) 13:08:17ID:???
>>316
そうか? 俺はお前に騙られても別にウザくないぞ。
0318nobodyさん2006/01/29(日) 13:09:37ID:???
最初にあおったのは309だと思う
(ﾟ∀ﾟ)ﾉ
03193092006/01/29(日) 13:14:28ID:???
>>312
>>314
>>316
>>317
はいはいわろすわろす
03203092006/01/29(日) 13:18:43ID:???
>>318
煽ったのは俺だが、騙ったのは別の誰かだ。
煽ってないとは一回も発言してない。

まさかとは思うが「騙る」を「あおる」と読んでる?
0321nobodyさん2006/01/29(日) 13:20:01ID:???
ここはPerlという言語だけではなく日本語という言語の勉強も行うスレですね
0322nobodyさん2006/01/29(日) 13:42:07ID:???
煽るから騙られることにさえ気づけない>>309が居るスレはここですか？
0323nobodyさん2006/01/29(日) 14:40:08ID:???
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
0324nobodyさん2006/01/29(日) 16:53:38ID:???
while (<STDIN>) {
chomp;
last if $_;
}
で入力待ちしているときに、
カウンタダウンを表示させたいとすれば、どういった方法を取ればいいのでしょうか？
0325nobodyさん2006/01/29(日) 16:59:54ID:???
そもそも last if $_; なんかやると、何か受け取るだけでループを抜けるのでは？
0326nobodyさん2006/01/29(日) 17:00:47ID:???
仮に last if $_; が last if !$_; であったとして、
0 とだけ書いた行が出て来るとループ抜けるですね。
0327nobodyさんNGNG
ｶｳﾝﾄﾀﾞｳﾝて何
0328nobodyさん2006/01/29(日) 18:21:45ID:???
sleepで1秒ごとに文字を表示しながら、
キー入力を受け付けたいのです。
0329nobodyさん2006/01/29(日) 18:27:58ID:???
意味不明です。
具体的に描写してください
0330nobodyさん2006/01/29(日) 18:43:57ID:???
あ・・・ここWebProgだった。ム板じゃない。吊ってきますorz
0331nobodyさん2006/01/29(日) 19:00:16ID:???
>>293

どうみても、print "set-Cookie: $COOKIE_NAME=$value; expires=$date\n";
print "Content-type: text/html; charset=Shift_JIS\n\n";　です。
本当にありがとうございました；
03323092006/01/29(日) 20:25:54ID:rcECZvhl
ここは騙ることで報復したと思えるお子様が住み着いているスレでしたか。
ム板でバカにされてるのもうなずける。
0333nobodyさん2006/01/29(日) 20:30:23ID:???
332 309 New! 2006/01/29(日) 20:25:54 ID:rcECZvhl
ここは騙ることで報復したと思えるお子様が住み着いているスレでしたか。
ム板でバカにされてるのもうなずける。
0334ム板 Perl スレ住人2006/01/29(日) 21:02:27ID:???
>>309
お前もこっちくんな
0335nobodyさん2006/01/29(日) 21:24:18ID:???
>>328
ああそういう意味ね
適当にforkなりthreadなり使え
03363092006/01/29(日) 21:25:22ID:???
> ム板 Perl スレ住人
最底辺を自慢してどうしたいんだよ。
0337nobodyさん2006/01/29(日) 23:13:56ID:???
粘着うざいな
0338nobodyさん2006/01/29(日) 23:31:23ID:???
顔が真っ赤なお子様がいると聞いて飛んできました
0339nobodyさん2006/01/30(月) 01:58:26ID:???
>>335
ありがとうございます。一つ挑戦してみます。
0340nobodyさん2006/01/30(月) 02:45:37ID:???
>>338
底辺PGは見栄張るなよ。
0341nobodyさん2006/01/30(月) 13:40:11ID:???
質問カモン
0342nobodyさん2006/01/30(月) 14:41:41ID:???
いくら待っても質問してこないから逝く
0343nobodyさん2006/01/30(月) 22:51:00ID:???
>>263
$a や $b を使った場合に、
実際に不具合が起こるケースにはどういうケースがあるでしょうか？
「これこれこういうことが起こりうるから使っちゃダメ」
みたいな具体例があれば教えていただきたく。
0344nobodyさん2006/01/30(月) 23:20:27ID:???
>>343
ヒント与えられてるんだから、調べろよｗ
0345nobodyさん2006/01/31(火) 00:05:32ID:???
WWW::Mechanizeって、対象ページはEUCのページしか無理なんでしょうか？
サンプルを見る限り、どれもEUCで書かれたページしか対象になってないので・・。
ShiftJIS対応のサンプルとかあれば、参考になるのでありがたいんですけど・・。
Encode.pm使ってコード変換とかしたらなんとかなります？
0346nobodyさん2006/01/31(火) 00:23:07ID:???
>>345
意味分からん。
データを取得するのに文字コードなぞ関係あるか。
0347nobodyさん2006/01/31(火) 00:28:18ID:???
昔からこのスレってこんなレベルだっけ？

#!/usr/bin/perl

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get( "http://www.excite.co.jp" );

print "Content-type: text/html\n\n";
print $mech->content;
exit;
0348nobodyさん2006/01/31(火) 01:15:51ID:???
print "Content-type: text/html; charset=Shift_JIS\n\n";
■ このスレッドは過去ログ倉庫に格納されています