トップページ⇒php
626コメント198KB

【Perl上級者コーナーPart01】

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/06/22 19:21ID:V3u7Ppd0
勃っちゃた
0285nobodyさん03/06/22 23:57ID:???
>>284
駄質問を堂々とこんなスレでする君がいる限り1000も夢ではないぞ
0286nobodyさん03/06/23 00:46ID:???
馬鹿だからやっぱり出て行かないな。
0287nobodyさん03/06/23 07:29ID:???
>>284
バカすげー。
試すと言う言葉の意味を知らん。
0288nobodyさん03/06/23 07:54ID:???
パイプじゃだめなのか・・・?
0289nobodyさん03/06/23 13:20ID:???
禁煙パイポのほうがいいだろ
0290nobodyさん03/06/23 22:24ID:???
いっその事、こっちはこういう馬鹿や、シンタックスエラーもとれないウルトラ初心者の
隔離スレにしたらどうだ?
0291本7 ◆uPD9aFm9hI 03/06/24 02:43ID:???
PHPでいいよもう
0292nobodyさん03/06/24 17:25ID:???
>>291
うわ…ここにもいるよ。キモッ
0293nobodyさん03/06/24 22:41ID:???
(゚Д゚;≡゚д゚;)な、何がいるの?
0294nobodyさん03/06/25 08:36ID:???
>>293をさらしあげ
0295名無しさん@Emacs03/06/25 12:39ID:???
>>284

>これでいい場合、$aに受け取るサイズに限度は無いのでしょうか?
>数kByteから数MByteまで受け取る可能性があるんですが・・・

どういう経緯でこういう発想に至ったのかを教えてくれ……
0296nobodyさん03/06/25 21:45ID:???
>>284
Perlの仕様を知っていればそもそもそんなアフォな質問は出ない。
これはつまり、貴様が初心者以下であることを物語っている。
よって、そんな貴様が上級者コーナーにいること自体が間違い。
0297nobodyさん03/06/26 19:46ID:???
>>284
system使うのにlist形式ではなく一文で書いてshに渡してる時点でヘタレ。
``すら知らない時点で(ry
openの使い方(open(FH,"$prog|"))を知らな(ry

>>295
そもそも何でこいつはsystemで起動したプログラムの出力を
取れると思ったのか、俺も興味ある。
0298nobodyさん03/06/26 22:45ID:???
馬鹿だから
0299nobodyさん03/06/26 23:11ID:???
案外、本7だったりしてなw
0300nobodyさん03/06/26 23:19ID:???
>>299
アリエール漂白剤プラス。

300下t
0301nobodyさん03/06/29 14:18ID:???
このスレ、いらねんじゃねぇ。
0302山崎 渉03/07/15 11:11ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
0303山崎 渉03/08/02 02:40ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
0304ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:25ID:???
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ
0305山崎 渉03/08/15 22:52ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン
0306nobodyさん03/08/19 00:03ID:9nwA90nB
で、>>101は解決したのかね?
もう随分前の話だが。
0307nobodyさん03/08/19 12:40ID:???
>>306
ファイルアップロードが上級者向けの話題とは思えんなぁ。
0308nobodyさん03/09/21 15:41ID:dsdmTr9D
ここに書き込む資格があるか疑問ですが……。

名前付きの引数でサブルーチンに配列を渡そうとしているのですがうまくいきません。

呼び出し側は
hoge = subsub(ItemCode=>1, ItemText=>'hogehoge', \@ItemValue);

受取側は
sub subsub()
{
my %args = (
ItemName=>0,
ItemText=>'',
ItemValue=>undef,
@_, );

としています。これで@$ItemValueとか$ItemValue->[0]という形で配列を使いたいのですが、配列の内容が取り出せません。
呼び出し側のItemValueには配列が入っていること、subsub側の引数には(正しいかどうかはともかく)リファレンスは代入されていることは
確認しましたが、これ以降どうしたらいいかわかりません。

何かご存知の方がいらっしゃればアドバイスをお願いいたします
030930803/09/21 15:42ID:dsdmTr9D
……書き込んで解りました。
呼び出し側に引数名書いてない(T_T)
031030803/09/21 15:43ID:dsdmTr9D
……と思ったら、今書いてあるコードにはちゃんと書いてありました(^^;

呼び出し側を
hoge = subsub(ItemCode=>1, ItemText=>'hogehoge', ItemValue=>\@ItemValue);
と訂正してください。
031130803/09/21 16:00ID:dsdmTr9D
>>310
後半も意味不明でしたね。受取側では
@$args{ItemValue}とか$args{ItemValue}->[0]という形で使えれば、に訂正してください。

ちなみにプロトタイプ宣言を試して見たのですが、やはりダメでした。
sub subsub($$\@)としても、$args{ItemValue}は空の配列のままです。
join(',',@_)ってして「ARRAY(0x833b5e4)」とか出てくるのは、一応リファレンスは入っているのですよね?
0312nobodyさん03/09/21 16:15ID:???
>hoge = subsub(ItemCode=>1, ItemText=>'hogehoge', ItemValue=>\@ItemValue);
これなら
$args{'ItemValue'}->[0]
でできない?
0313nobodyさん03/09/21 16:22ID:???
一度、@ItemValueの中身を確認した方がいいかも。
煮詰まったときはお茶かコーヒーで一服どーぞ。
031430803/09/21 16:38ID:dsdmTr9D
解りました。引数まわりはあれでOKでした。

受け取った後、foreachで内容をチェックしていたのですが、
foreach @$args{ItemValue}では(エラーにはならないけど)×だったのです。
こういう使い方をするには
foreach @{ $args{ItemValue} }と書かなければならないのですね。


>312
>313
アドバイス、ありがとうございました
0315nobodyさん03/09/21 20:51ID:dsdmTr9D
何度も申し訳ありません(^^;

CGI::new()で得たCGIハンドルから、postで与えられたパラメータを全て、名前毎に値を取り出すことは出来るのでしょうか?
……要するに、postで来たデータをgetのクエリー文字列に直したいのです(^^;

ただ、数が多いのとcheckBoxがらみで同じ名前で複数の値があるものがあるので、どうしたものかと考えているところです。
もしご経験のある方がおられましたらアドバイスをお願いします。
0316nobodyさん03/09/21 21:26ID:OKDMwSn3
http://jbbs.shitaraba.com/computer/8727/
史上最大よ!!!
100%来なさい!!!!
0317nobodyさん03/09/21 22:19ID:???
>>315
既に存在するキーならば、\tを付け加えてその値を付加してみるとか。
if (!defined %hash{$key}) { %hash{$key} .= "\t$value" ; }
みたいな。

1 つ 1 つの値を取り出すときには、split(/\t/,%hash{$key});
みたいな。
みたいな。
みたいな。
0318nobodyさん03/09/21 22:27ID:???
結局ここは初心者コーナーということ?
0319nobodyさん03/09/21 22:29ID:???
>>315
my $query = new CGI;
...
foreach($query->param){
print $_, " = ", join(',', $query->param($_)), "<br />\n";
}

こういうこと?
POST->GETへ直したいの意味がよく分からないけど。。

それから、質問はなるべくこちらへ。
Perl コーディング初心者質問コーナー Part28
http://pc2.2ch.net/test/read.cgi/php/1063562491/
0320nobodyさん03/09/21 23:19ID:???
sub function}

{
0321nobodyさん03/09/22 00:03ID:???
なんとなくこれで良さそう。

$str = join('&', map { my $key = $_; map { join('=', $key, $_) } $query->param($_) } $query->param);
0322nobodyさん03/09/22 00:04ID:iyIOOC/l
>>319
そのとおりです。どうもありがとうございました。
それでは後は初心者スレに行きます。ご迷惑をおかけしました。
0323nobodyさん03/09/22 00:12ID:???
>>317はPerl6を先取りしているのですか?
0324nobodyさん03/09/24 23:37ID:4Zy0i8Kg
すんまそん。
初心者スレで大分前に質問(詳しくは:http://pc2.2ch.net/test/read.cgi/php/1063562491/13)したのだが、
Perlで組み込み関数のリファレンスを取得するには、
どうしたらいいのでしょうか?
0325nobodyさん03/09/25 00:03ID:???
>>324
perldoc -f funcname
0326nobodyさん03/09/25 01:54ID:???
そのリファレンスかよ!
0327nobodyさん03/09/25 18:59ID:???
取れないくさいよ。。というわけで、

$symlink = sub { symlink(@_) };
032832403/09/26 01:14ID:???
>>327
組み込み関数は、演算子に近い扱いなんですかね。
リファレンスが取れると、似たような関数のスイッチに便利なんだけどなぁ。

ありがのん御座いました。
0329nobodyさん03/09/26 01:49ID:???
オブジェクト指向ならadapterパターン使って解決(大嘘。
0330nobodyさん03/09/26 08:06ID:???
times関数について聞きたいのだが、
・実行中のプロセスが消費したユーザCPU時間
・実行中のプロセスが消費したシステムCPU時間
この2つの戻り値の意味と違いを説明できる人いないかな?
0331nobodyさん03/09/26 10:20ID:???
>>330
http://search.luky.org/fol.2000/msg00144.html
0332(*∠_*) ダカラドーシタ03/09/27 17:45ID:???
■日本人プログラマーよGoogleを攻略せよ 2003年09月24日 CNET Japan - 梅田望夫・英語で読むITトレンド: http://blog.cnetnetworks.jp/umeda/archives/000697.html

Google Code Jamというプログラミングコンテスト(CNET Japan速報記事「米グーグル:「プログラミングコンテスト出場者を求む」」をご参照)が10月から11月にかけて開かれる。
参加資格は18歳以上(世界中の誰でも)。予選はオンラインで、決勝(トップ25人)はシリコンバレーのGoogle本社で行なわれる。
腕自慢の日本人プログラマーたちには、この機会にぜひその実力を発揮してほしい。

Google Code Jamのファイナリストといえば、これから腕一本でプロとして生きていきたい若い人にとっての大きな勲章になる(中途半端な学歴なんかよりうんと価値がある)。
ファイナリストに残る日本人がいれば、日本人プログラマーの実力が世界でもトップレベルにあるという事実を、広くアピールできるだろう。
さて、コンテストの仕組みとスケジュールであるが、

参加者全員から500人にふるい落とす「Qualification Rounds」、
500人を250人に絞る「Online Elimination Rounds 1」、
250人から25人に落とす「Online Elimination Rounds 2」。
ここまではすべてオンラインなので、自宅から参加できる。
そして、ファイナリスト25人はGoogle本社での「Onsite Championship Round」に進むことができる。

★google code jam 公式サイト(excite翻訳) http://www.excite.co.jp/world/url/body?wb_url=http%3A%2F%2Fwww.topcoder.com%2Fpl%2F%3F%26module%3DStatic%26d1%3Dgoogle%26d2%3Dgoogle_overview&wb_lp=ENJA&wb_dis=2

関連スレ
【IT】Google、人材採用兼ねたプログラミングコンテスト http://book.2ch.net/test/read.cgi/bizplus/1063972616/
Google、人材採用兼ねたプログラミングコンテスト    http://pc.2ch.net/test/read.cgi/prog/1063960893
0333nobodyさん03/09/27 21:02ID:???
スレ違いだったらすいません!

自作のHTTPクライアントを2chのdat落ちにも対応させたいんですが、
そのことについて解説されたページのアドレスを忘れてしまいました・・・
そのページをご存知の方(分かるかな・・・)、アドレス教えてもらえませんか?
ググっても見つかりませんでした・・・
0334nobodyさん03/09/27 21:28ID:???
>>333
http://www.monazilla.org/document/index.html
0335nobodyさん03/09/27 22:06ID:???
どこのどなたか存じませんが、ありがとうございます!

てか、こんな有名所だったのか・・・。
個人のサイトだったかと勘違いしてました。
0336nobodyさん03/09/28 19:03ID:???
せめてお名前だけでも・・・
0337nobodyさん03/09/28 19:15ID:???
徳岡伸○と申します。
0338nobodyさん03/10/09 18:33ID:???
誰。
0339nobodyさん03/10/10 10:46ID:???
↓
0340nobodyさん03/10/10 15:20ID:???
お、俺かよ!
0341nobodyさん03/10/17 18:22ID:???
↑
0342nobodyさん03/10/17 19:34ID:???
誰。
0343nobodyさん03/10/17 19:39ID:???
上級者って言うか低脳が集うスレだな
0344nobodyさん03/10/17 19:40ID:???
勃っちゃた
0345nobodyさん03/10/17 19:48ID:???
逝っちゃった
0346nobodyさん03/10/17 20:16ID:???
しごいて・・・
0347nobodyさん03/10/17 21:48ID:???
>>346
腕立て100回!腹筋100回!そこっ!休むなあーっ!!
0348nobodyさん03/10/19 00:32ID:???
イク・・・
0349nobodyさん03/10/26 13:08ID:???
リプス ってどうよ
0350nobodyさん03/12/08 19:42ID:???
--
0351nobodyさん03/12/08 19:53ID:???
CANONのプリンターのページ記述言語?
0352nobodyさん03/12/08 20:14ID:vvyCyc4J
http://japan.pinkserver.com/mariko/7254.html
0353nobodyさん03/12/17 18:59ID:???
age
0354ActivePerl03/12/18 16:35ID:pwpA9WDo
NTサーバ、IIS、ActivePerl5.6にて、メール送信するプログラムを作成しています。
(SMTP: Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
モジュールNet::SMTPを使用して、CGIのメール送信フォームで入力されたものを送信
するようになっています。

そこで、問題なのですが、
メールのFrom:に、"氏名 <[email protected]>"というような形式を使用すると、
送信に失敗してしまいます。メールアドレスが裸の状態だと、正しく送信されます。

文字のエンコード方法がいけないのかと思い、"Name <[email protected]>"という
ように、ASCIIのみにしても送信に失敗してしまいます。

Fromに設定できる、メールアドレスのドメインが限定されているかもしれないので、
メールアドレスをサーバのドメインに合わせましたが、それでもだめでした。

また、To:に複数の送信者を設定(カンマ区切り)した場合も、同様な問題が発生しました。

どなたか、解決方法をご存知でしたら、ご教授ください。よろしくお願いします!!
0355nobodyさん03/12/18 17:11ID:???
> 送信に失敗してしまいます。
失敗の仕方もロクに書かずに助言を求める馬鹿がいるスレはここですか?
0356nobodyさん03/12/18 17:15ID:???
>>354
funny user@domain 間違い
"funny user"@domain 正しい, 推奨
<"funny user"@domain> OK
0357nobodyさん03/12/21 14:48ID:???
というか,ダブルクォートしてて@hogeが展開されてるってオチでないか?
0358nobodyさん03/12/21 17:33ID:???
>>357
>メールアドレスが裸の状態だと、正しく送信されます。
0359nobodyさん03/12/21 19:02ID:???
つーか、あれが上級者の質問なのか?
0360nobodyさん03/12/21 19:20ID:???
ttp://res9.7777.net/CGI-BBS/server/mail/20030925151017.shtml

>>354は「CGI習熟度:pro」だそうだw
0361nobodyさん03/12/21 22:39ID:2JyNmFzn
proどこ行ったの〜?w
0362nobodyさん03/12/23 00:07ID:yNpUOjfE
Telnetでサーバーに接続して
Perlプログラムを実行する際に
フォームデータを引数として与えて
実行する方法を誰か教えてもらえないでしょうか?

教えてもらったんですけど使い方
忘れちゃいました
0363nobodyさん03/12/23 00:08ID:???
・・・。
0364nobodyさん03/12/23 00:10ID:???
>>362
マルチすんなボケ!
0365nobodyさん03/12/23 21:20ID:B/ouqWjS
>>362
2ちゃんねるにはつわものは
いないんですか?
いると思ったのにがっかりだ。
明日、教えてくれたシステム部長
にもう一度聞くから良いよ
0366nobodyさん03/12/24 00:37ID:???
>>365
マルチすんなっつってんだろ。
ルールを守らない奴になんで親切にしなきゃならんのよ。
マジで自分のことしか考えてないDQNだな。
0367nobodyさん03/12/24 14:06ID:???
>>365
お前本当にどうしようもないクズだな。
まず2ch(だけではないが)のルールを守れやヴォケ。
0368nobodyさん03/12/24 16:33ID:???
システム部長もこのスレ見てるyo
0369nobodyさん03/12/24 20:16ID:sC5vpZJY
>>367
お前ぶっ飛ばすぞ!!!
顔が見えないからっていい気になりやがって。
0370nobodyさん03/12/24 22:48ID:???
>>369
お前、上級者にむかってその態度はなんだ!!!
童貞のくせにいい気になりやがって。
0371nobodyさん03/12/25 22:51ID:GW3KvJ+k
>>370
童貞ではありません。
0372nobodyさん03/12/26 01:29ID:???
>>369
最初にいい気になってるのはどう見てもおまえなんだがな。
自分が質問者としてのルールを守っているかどうか、少しは考えたのか?
0373nobodyさん04/01/13 19:31ID:hDqA/G+I
『Perl コーディング初心者質問コーナー Part31 』でも質問したのですが、
分かる方がいらっしゃらないようなので、ここでもお願いします。もう誰もいない?


ファイルハンドラを変数で持つことは可能でしょうか?
my $p;
open($p, "test");
こんな感じで。
-----------------------------------------------
my $p="a"; としてからopenすると何故か動くのですが、今度は、use strict
の場合に、

#!/usr/bin/perl -w
use strict;
my $p="a";
open($p, "test");

こうすると、以下のように怒られます(実行ファイルは./aです)。
Can't use string ("a") as a symbol ref while "strict refs" in use at ./a line 4.

何故なんでしょうか?
(そもそもファイルハンドラの定義がよく分からないのですが。ポインタ?)
0374hjg04/01/13 20:01ID:DzsVlZbM
perldoc -q filehandle して

"How can I use a filehandle indirectly?"

0375hjg04/01/13 20:03ID:DzsVlZbM
perldoc Symbol も良い
0376nobodyさん04/01/13 20:22ID:???
>>373
わかる人がいないんじゃなく最近既出の質問
過去ログ嫁
0377nobodyさん04/01/13 20:30ID:hDqA/G+I
>>376
失礼しました。探してみます。
0378hjg04/01/13 21:55ID:BCJlfFc6
>>377
英語読めんか。
洲万買ったな。
0379nobodyさん04/01/16 01:28ID:???
みんなのPerlソースのコメントアウトレイアウト見てみたいかも。
どんなコメントを書けば見やすいのか研究中。

とりあえず、

#==========#
# 処理名 #
#==========#

とか、

#>>>>> 処理名

とか書いてる。
一応それなりに目立つし、全部 # で書くとウザイから

###########
# 処理名 #
###########

こんなんとか。
見にくい。。。

みんなはどうだ?チェキラ
0380nobodyさん04/01/16 01:50ID:???
行コメント以外ならPODで書いてるよ。See perldoc perldoc, perldoc perlpod ...
0381nobodyさん04/01/16 01:58ID:???
######################################################
## ■以下サブルーチン■
######################################################
0382nobodyさん04/01/16 02:00ID:???
##====================================================##
## ■以下サブルーチン■
##====================================================##
0383ヽ(´ー`)ノ04/01/16 11:53ID:???
>>379
POD 使えば?
コメント使った書き方って、見にくいし、他の人のコードと統一性が取れない。
整形するの面倒だし、マニュアルも別に書かないといかん。
じゃあメリットがあるかっていうと特別あるわけじゃない。デメリットだけ。
まともなエディタを使えば、POD のところだけ色も変わるから見栄えを気にする必要もない。
あと俺の主観だけども、出来の悪い CGI のコード見てるようで、醜い(シャレじゃなく)。

すでにあるモノを再発明することないよ。更に良いものが作れるのなら話は別だけど。
0384nobodyさん04/01/16 17:05ID:???
大規模なコメント(ドキュメント)なんかは
そりゃPODにこしたことはない罠。

ちょっとしたコメントにセンスを光らせたい罠
別に誰が見るわけでもないんだけどさ。
0385nobodyさん04/01/16 19:51ID:???
ちょっとしたコメントに大袈裟な装飾は不要。
罫線くらいにしておいた方がいいんじゃない?
■ このスレッドは過去ログ倉庫に格納されています