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

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

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

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

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

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

過去ログやお勧めサイトは >>2-10
0482nobodyさん2006/05/15(月) 23:31:41ID:???
>>480
print文中の$を、バックスラッシュでクォートする
0483nobodyさん2006/05/15(月) 23:39:28ID:???
シングルクォートのヒアドキュメントでいいじゃん。
0484nobodyさん2006/05/15(月) 23:47:07ID:???
print << 'KENTWEB';
KENT レベルのスクリプトっていいかげん消えてくれないかなぁ。
KENTWEB
0485nobodyさん2006/05/15(月) 23:49:04ID:???
と、妬み丸出しの>>484なのであった
04864802006/05/15(月) 23:51:56ID:FBQXjrwN

print OUT 'if ($ENV{REQUEST_METHOD} ne 'POST'\n || read(STDIN, $post, $ENV{CONTENT_LENGTH})\n';

↑これでもダメですけど？


0487nobodyさん2006/05/15(月) 23:54:51ID:???
print OUT 'if ($ENV{REQUEST_METHOD} ne "POST"\n || read(STDIN, $post, $ENV{CONTENT_LENGTH})\n';

で、何のためにうんこコードを保存してるの？
0488nobodyさん2006/05/15(月) 23:55:17ID:???
だめだ、ばかばっか
04894802006/05/15(月) 23:56:32ID:FBQXjrwN
>>488
すんません、ちょっとだけバカなんです
でも体育と社会は得意なんです
0490nobodyさんNGNG
マ板のスレ荒らしてるのもお前等だろｗ
0491nobodyさん2006/05/16(火) 00:29:36ID:???
GW終わってるっつーの
04924832006/05/16(火) 00:29:55ID:???
>>480
人の話をキケー！

print OUT <<'EOF';
if ($ENV{REQUEST_METHOD} ne 'POST'
|| read(STDIN, $post, $ENV{CONTENT_LENGTH}) != $ENV{CONTENT_LENGTH})
{ $postdata = $ENV{QUERY_STRING};}
EOF

# もう来ないでね。
0493nobodyさん2006/05/16(火) 00:36:08ID:???
>>492
インデント汁。
で、インデントはタブかスペースかで３スレくらい費して議論汁。
04944802006/05/16(火) 00:39:36ID:Neqg1YJy
>>492
'EOF'でオッケーなんですね！
たとえば $baka という元ファイルの変数を別ファイルに代入させたい場合は

print OUT <<'EOF';
if ($ENV{REQUEST_METHOD} ne 'POST'
|| read(STDIN, $post, $ENV{CONTENT_LENGTH}) != $ENV{CONTENT_LENGTH})
{ $postdata = $ENV{QUERY_STRING};}
＜りゃく＞
$aho = $1;
EOF
print OUT "$baka";

print OUT <<'EOF';
$unko = $chinko;
EOF

# { とかってやればいいっすか？; }
0495nobodyさん2006/05/16(火) 00:45:42ID:???
知っているがお前の態度が気に入らない。
04964802006/05/16(火) 03:11:36ID:Neqg1YJy
>>492
うーん、、、途中までいい漢字だったんですけどなぜか途中から上手くいきません
print が絡んでるところで、

$manko = "まんこ";
<略>
print "$manko";　←これを$manko=まんこのまま新しいファイルに持ち越すのは

print OUT <<'AHAN';
print "$manko";
AHAN
じゃだめですよね

それでこの部分だけ
print OUT \"print \"$manko\";
にしてもだめでした＞＜；
えーん＞＜；
0497nobodyさん2006/05/16(火) 05:41:07ID:???
うわー、答えたくねーｗ
0498nobodyさん2006/05/16(火) 06:08:14ID:???
シュワルツ変換でぐぐれと教えてもらった者です。
たいへん参考になりました。
感謝とともにご報告申し上げます。
0499nobodyさん2006/05/16(火) 11:32:02ID:???
>>484＝KENTWEBファン

いちいち固有名詞だすなクソやろう
0500nobodyさん2006/05/16(火) 12:59:36ID:???
掲示板で英語だけのSPAMが多すぎるので
英語だけの投稿はエラーにしたいのですが

・全部半角英数字
または
・全角文字が1文字でも入っている

でマッチさせるには、どう記述すれば良いでしょうか？

よろしくお願いします。
05015002006/05/16(火) 13:01:43ID:???
すみません、紛らわしい書き方しました。

「または」ってのは OR でって事じゃないです。
どっちかの記述の方法が分かれば、判断できるかな
という意味で書きました。
0502nobodyさんNGNG
前者は"."とか入ってたら拒絶されるし
後者の方がええんとちゃう
文字コードによって違うから詳しくは
http://www.kanzaki.com/docs/jcode.html
http://euc.jp/i18n/charcode.ja.html
ここら辺見いや
0503nobodyさん2006/05/16(火) 13:12:50ID:???
>>500-501
アンタみたいな奴らばかりが集まるネ申KENTサポで無限ループされているから覗いてみろ
0504nobodyさん2006/05/16(火) 13:34:13ID:???
ディスクの空き容量を知るにはどうすればいいですか？
0505nobodyさん2006/05/16(火) 13:37:40ID:???
`df`
0506nobodyさん2006/05/16(火) 13:55:34ID:???
>>505
当方 Windows で ＣＧＩ書いてますので、よろしく。
0507nobodyさん2006/05/16(火) 14:04:03ID:???
KENTｻｲｷｮｳ!(^^)
0508nobodyさんNGNG
それが質問者の態度か
Win32-DriveInfoでも使ってろアホ
0509nobodyさん2006/05/16(火) 14:05:50ID:???
当方モジュール入れるなんてマンドクサイことやってられないので、
もっと簡単な方法をよろしく。
0510nobodyさんNGNG
絶対教えてやんねー（#＾ω＾）ﾋﾞｷﾋﾞｷ…
0511nobodyさん2006/05/16(火) 14:10:21ID:???
はい次の質問者どうぞ
0512nobodyさん2006/05/16(火) 14:45:55ID:???
>>506
マイコンピュータをダブルクリックすれば残り容量が出るぞ
0513nobodyさんNGNG
お前優しいな！
0514nobodyさん2006/05/16(火) 15:07:09ID:???
ttp://compact.s56.xrea.com/id/
笑いすぎて腹が痛くなった
0515nobodyさん2006/05/16(火) 17:14:03ID:???
まんこやちんこでも表示される件について
0516nobodyさん2006/05/16(火) 19:06:53ID:???
どんなコード書いてるんだよ
超わろたｗ
0517nobodyさん2006/05/16(火) 19:20:36ID:???
>>500
『鬼畜米英』
『妥当チャーチル』
『欲しがりません勝つまでは』

この３つをスローガンに掲げて掲示板トップに掲載しとく。
効果てきめん。
05185002006/05/16(火) 19:37:15ID:???
>>517
そんなので効果あるわけねーよ、バーカ
0519nobodyさんNGNG
偽者うぜぇ
05205002006/05/16(火) 19:52:21ID:???
偽者じゃありません、本当のことをおしえてください
0521nobodyさんNGNG
Shift_JISの全角だけだったらこんな感じじゃねーの

if($comment =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]/s){ print "Japanese"; }
else{ print "Not Japanese"; }
0522nobodyさん2006/05/16(火) 20:11:57ID:???
>514
その計算機によると、うちは東京なのにアクセスポイントは愛知らしいｗｗｗ
すごいな、うちって専用線だったんだ(*´д`)
0523nobodyさん2006/05/16(火) 20:17:41ID:???
>>522
あの計算機はデタラメ吐くよｗｗｗｗｗｗｗプロバすらもでたらめｗｗｗｗ
本当なのはIPだけｗｗｗｗ
0524nobodyさん2006/05/16(火) 20:32:02ID:???
でもIPさえ分かれば、後は自分で調べられるな。
0525nobodyさん2006/05/16(火) 20:54:29ID:???
>>524
残念”自分”のＩＰしか表示できません
0526nobodyさん2006/05/16(火) 20:54:37ID:???
>>500
>・全部半角英数字
$comment =~ /^[ -~]+$/s; # 全部半角英数字と記号
$comment =~ /[^ -~]/s; # 半角英数字以外がある(日本語かも)
0527nobodyさん2006/05/17(水) 02:57:00ID:???
いまの2chのIDってまだcrypt使ってんの？
05285002006/05/17(水) 05:49:51ID:???
>>526
ありがとうございます
でもこれよりも>>521さんのほうがよさそうなのでけっこうです
0529nobodyさん2006/05/17(水) 06:50:54ID:???
>>528
ありがとうございますと言いながら、それ全然お礼じゃないよな。
慇懃無礼な物言いを直さないと、今後誰もあなたの質問に答えてくれなくなるかもよ。
0530nobodyさん2006/05/17(水) 07:39:40ID:???
m9
0531nobodyさん2006/05/17(水) 07:57:53ID:???
>>527
じゃあなんで1日ごとにかわるんだよ
0532nobodyさん2006/05/17(水) 08:26:42ID:???
>>531
その理屈はおかしい
0533nobodyさん2006/05/17(水) 09:42:06ID:???
>>531
一日ごとに/dev/randomを読み直してるからだと思う。
というか、md5じゃなかったけか。
0534nobodyさんNGNG
>>528
>>526の方が高速だし文字コードに依存しないからいいと思うよ
0535nobodyさん2006/05/17(水) 12:47:45ID:???
crypt(DES)…トリップ
MD5…ID
0536nobodyさん2006/05/17(水) 15:38:06ID:???
>>535
へー…
0537nobodyさん2006/05/17(水) 17:02:26ID:YyZihD9s
cat /etc/passwd　を編集した結果をWEBブラウザに表示させるプログラムを作成しようと考えているのですが、
cat /etc/passwdの結果をperlのプログラムに取り込むにはどのようにしたらよいでしょうか？

どなたか教えてください。
0538nobodyさん2006/05/17(水) 17:20:26ID:???
>>537
ファイルの内容が見たいのなら普通にopenして読み込めばいいんじゃないの
0539nobodyさん2006/05/17(水) 17:34:45ID:???
>>537
Perlはrootから実行されるからopenでOKだお
0540nobodyさん2006/05/17(水) 18:01:01ID:???
>539
なんだそのへたれ回答は・・・
0541nobodyさん2006/05/17(水) 19:33:26ID:???
Perlって危険なんですね
0542nobodyさん2006/05/17(水) 20:00:51ID:???
真に受けるなカス
0543nobodyさん2006/05/18(木) 01:16:03ID:fJu7t3bW
ファイル送信の質問です･･･

ｈｔｍｌからPOSTでデータを送信すると、
$ENV{'REQUEST_METHOD'}　の中には　POSTが入るでしょ？
んで、
ｈｔｍｌからＧＥＴでデータを送信すると、
$ENV{'REQUEST_METHOD'}　の中には　GETが入るでしょ？
それじゃ、
ｈｔｍｌからデータを送信しなかった場合（cgiを呼び出しただけ）は何が入るのですか？？
0544nobodyさん2006/05/18(木) 01:17:38ID:???
実際に試してみればよいのでは？
0545nobodyさん2006/05/18(木) 01:21:45ID:???
>>542
死ね
0546nobodyさん2006/05/18(木) 01:45:58ID:???
>>545
だが断る
0547nobodyさん2006/05/18(木) 09:37:43ID:???
>>543
クライアントがGETでリクエストすればGETだし、
POSTをリクエストすればPOST。

HTTPを学んでください。
0548nobodyさん2006/05/18(木) 10:15:37ID:???
>>547
だから何も指定しなかったら何が入るのかっつー話だろｗ

日本語を学んでください。

普通ディフォルトはGET
0549nobodyさん2006/05/18(木) 11:23:23ID:???
>>487
？
それは単なる実装の話。
0550nobodyさん2006/05/18(木) 11:48:23ID:???
って、元質問を読みなおしたら、HTMLのA要素辺りの話かYo。
このスレに書かれてるから勘違いしてた。
0551nobodyさん2006/05/18(木) 12:35:32ID:???
GETとかPOSTを指定しなければ空
(実際にGET動作でも指定がなければ環境変数に入らない)
0552nobodyさん2006/05/18(木) 13:12:00ID:???
>>543
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print $ENV{'REQUEST_METHOD'};

>>551はうそ
0553nobodyさん2006/05/18(木) 14:39:45ID:???
さすが底辺のwebprog板,>>551のようなクズまで回答者やってんのかｗｗｗ

RFC1616
5.1 Request-Line
Request-Line = Method SP Request-URI SP HTTP-Version CRLF
Methodは必須、省略はできない。
0554nobodyさん2006/05/18(木) 14:48:04ID:???
>>553
底辺と馬鹿にしておいてそんな回答かよｗｗｗ

ブラウザでは指定しない場合はGET。が正解だろ？
0555nobodyさんNGNG
電波・お花畑板でやれ
http://etc3.2ch.net/denpa/
0556nobodyさん2006/05/18(木) 15:02:57ID:???
>>554 == >>548 == ディフォルト君

> 普通ディフォルトはGET
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
ディフォルト
0557nobodyさん2006/05/18(木) 15:10:10ID:tdyLNCZH
Webページで、ボタンを押すと指定のファイルをDLする仕組みを作りたいのですが、
どのような作り方をすればよいですか？
0558nobodyさん2006/05/18(木) 15:19:29ID:???
>>556
必死だな
0559nobodyさんNGNG
>>557
既存のDLカウンタのコードを読んでみるとか
http://www.studyinghttp.net/
ここも参考にしてみるとか
0560nobodyさん2006/05/18(木) 15:25:48ID:???
>>558
お前、普段から「ディフォルト」って言ってんの? ｗｗｗ
0561nobodyさん2006/05/18(木) 15:35:23ID:???
デフォルトだと思ってる？
英語の発音だとディフォルトなんだけど。
っつーかこういうどうでもいいやつ多いなおれみたいな。
05625572006/05/18(木) 15:51:28ID:tdyLNCZH
回答ありがとうございます。
具体的には、
<a href="list.csv">DownLoad</a>
と書いているのですが、list.csvのpermissionを777にしてもInternal Server Errorが出てしまいます。
このエラーの回避をし、ダウンロードを可能にするにはどうしたらよいのでしょう
0563nobodyさん2006/05/18(木) 16:25:09ID:???
>>561
日本語の外来語表記では、「ディフォルト」は「デフォルト」の表記のゆれとして扱われる。
だからどちらも間違いではないが、一般的には「デフォルト」と書く。
0564nobodyさんNGNG
>>562
それサーバーの設定見直した方が…
0565nobodyさん2006/05/18(木) 16:58:36ID:???
default の発音は、以下のページの発音記号に示されている通りであって、

- デフォルト
- ディフォルト

のどちらでもないよね。

http://dictionary.goo.ne.jp/search.php?MT=default&kind=ej&mode=0&base=1&row=0
0566nobodyさん2006/05/18(木) 17:12:48ID:???
>>565
ではなんて表記すればいいの？
0567nobodyさん2006/05/18(木) 17:20:41ID:???
>>565
そのページにおもいっきり
>【コンピュータ】デフォルト, （デフォルト値を）採用する.
と書いてあるんだが…。

しかし、webをウェブじゃない！ウェッブだ！！とか
ホームページじゃない！ウェブサイトだ！！とか言う
香具師って、年逝ってるのが多いよね。

どーでも良いんだよ意味が伝われば(w
0568nobodyさん2006/05/18(木) 17:33:40ID:???
>566
デフォでOK
0569nobodyさん2006/05/18(木) 18:24:57ID:???
デファウルト
0570nobodyさん2006/05/18(木) 19:19:37ID:C+uZ+IY0
訳があり、CGIで

<SELECT NAME="color">
<OPTION value="1">1</OPTION>
<OPTION value="2">2</OPTION>
<OPTION value="3">3</OPTION>
<OPTION value="4">4</OPTION>
<OPTION value="5">5</OPTION>
<OPTION value="6">6</OPTION>
<OPTION value="7">7</OPTION>
<OPTION value="8">8</OPTION>
<OPTION value="9">9</OPTION>
<OPTION value="10">10</OPTION>
</SELECT>

を10個ほど連続で記述しているのですが、正直、長くなりすぎて困っています。
シンプルにできないでしょうか？
0571nobodyさんNGNG
for使えばいいんじゃね
0572nobodyさん2006/05/18(木) 19:35:57ID:???
配列につめて回せばおｋ
0573nobodyさん2006/05/18(木) 19:38:11ID:???
ぷりんと　<OPTION value="$_">$_</OPTION> ふぉー　1..10;
0574nobodyさん2006/05/18(木) 19:38:26ID:C+uZ+IY0
>>571-572
本当に申し訳ない
Perl初めて一週間のオイラにはなんのこっちゃか・・・
0575nobodyさん2006/05/18(木) 19:49:51ID:???
そ　こ　か　ら　か　！
0576nobodyさん2006/05/18(木) 19:51:57ID:???
まず自分でやってみてから質問せい
0577nobodyさん2006/05/18(木) 19:54:08ID:???
for
0578nobodyさん2006/05/18(木) 20:45:47ID:???
１週間なら普通もうforとかforeachとかwhileくらいはとっくにやってると思うが
さぼってんじゃねーぞ
0579nobodyさん2006/05/18(木) 20:54:20ID:???
＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣ ＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣
　＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣
＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣

￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿ ￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿
　￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿
　　￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿￣了广卞冖¬天─Ｅ＝≡ニﾝ､匕＿

　　＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣ ＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣
　＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣
＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣＿匕∠ニ≡＝Ｅ─天¬冖卞广了￣
0580nobodyさん2006/05/18(木) 21:00:15ID:???
>>579
昨日のトリビアの続きか？
0581nobodyさん2006/05/18(木) 21:11:37ID:???
>>579
sugeeeeeeeeeeeeeeeeeeeeeeeeeeeeee!!!!!!!!!
0582nobodyさん2006/05/18(木) 21:32:59ID:???
>>574
print '<SELECT NAME="color">',"\n";
$i=0;
while(1) {
$i=$i+1;
print '<OPTION value="',$i,'">',$i,'</OPTION>',"\n";
if($i==10) { goto DERU; }
}
DERU:
print '</SELECT>',"\n";
■ このスレッドは過去ログ倉庫に格納されています