【Perl上級者コーナーPart01】

**nobodyさん** · 02/06/22 19:21

勃っちゃた

**nobodyさん** · 03/09/21 23:19

sub function}

{

**nobodyさん** · 03/09/22 00:03

なんとなくこれで良さそう。

$str = join('&', map { my $key = $_; map { join('=', $key, $_) } $query->param($_) } $query->param);

**nobodyさん** · 03/09/22 00:04

>>319
そのとおりです。どうもありがとうございました。
それでは後は初心者スレに行きます。ご迷惑をおかけしました。

**nobodyさん** · 03/09/22 00:12

>>317はPerl6を先取りしているのですか？

**nobodyさん** · 03/09/24 23:37

すんまそん。
初心者スレで大分前に質問(詳しくは:http://pc2.2ch.net/test/read.cgi/php/1063562491/13)したのだが、
Perlで組み込み関数のリファレンスを取得するには、
どうしたらいいのでしょうか？

**nobodyさん** · 03/09/25 00:03

>>324
perldoc -f funcname

**nobodyさん** · 03/09/25 01:54

そのリファレンスかよ！

**nobodyさん** · 03/09/25 18:59

取れないくさいよ。。というわけで、

$symlink = sub { symlink(@_) };

**324** · 03/09/26 01:14

>>327
組み込み関数は、演算子に近い扱いなんですかね。
リファレンスが取れると、似たような関数のスイッチに便利なんだけどなぁ。

ありがのん御座いました。

**nobodyさん** · 03/09/26 01:49

オブジェクト指向ならadapterパターン使って解決(大嘘。

**nobodyさん** · 03/09/26 08:06

times関数について聞きたいのだが、
・実行中のプロセスが消費したユーザCPU時間
・実行中のプロセスが消費したシステムCPU時間
この２つの戻り値の意味と違いを説明できる人いないかな？

**nobodyさん** · 03/09/26 10:20

>>330
http://search.luky.org/fol.2000/msg00144.html

**(*∠＿*) ダカラドーシタ** · 03/09/27 17:45

■日本人プログラマーよ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

**nobodyさん** · 03/09/27 21:02

スレ違いだったらすいません！

自作のHTTPクライアントを2chのdat落ちにも対応させたいんですが、
そのことについて解説されたページのアドレスを忘れてしまいました・・・
そのページをご存知の方（分かるかな・・・）、アドレス教えてもらえませんか？
ｸﾞｸﾞっても見つかりませんでした・・・

**nobodyさん** · 03/09/27 21:28

>>333
http://www.monazilla.org/document/index.html

**nobodyさん** · 03/09/27 22:06

どこのどなたか存じませんが、ありがとうございます！

てか、こんな有名所だったのか・・・。
個人のサイトだったかと勘違いしてました。

**nobodyさん** · 03/09/28 19:03

せめてお名前だけでも・・・

**nobodyさん** · 03/09/28 19:15

徳岡伸○と申します。

**nobodyさん** · 03/10/09 18:33

誰。

**nobodyさん** · 03/10/10 10:46

↓

**nobodyさん** · 03/10/10 15:20

お、俺かよ！

**nobodyさん** · 03/10/17 18:22

↑

**nobodyさん** · 03/10/17 19:34

誰。

**nobodyさん** · 03/10/17 19:39

上級者って言うか低脳が集うスレだな

**nobodyさん** · 03/10/17 19:40

勃っちゃた

**nobodyさん** · 03/10/17 19:48

逝っちゃった

**nobodyさん** · 03/10/17 20:16

しごいて・・・

**nobodyさん** · 03/10/17 21:48

>>346
腕立て100回！腹筋100回！そこっ！休むなあーっ！！

**nobodyさん** · 03/10/19 00:32

イク・・・

**nobodyさん** · 03/10/26 13:08

リプスってどうよ

**nobodyさん** · 03/12/08 19:42

**nobodyさん** · 03/12/08 19:53

CANONのプリンターのページ記述言語？

**nobodyさん** · 03/12/08 20:14

http://japan.pinkserver.com/mariko/7254.html

**nobodyさん** · 03/12/17 18:59

age

**ActivePerl** · 03/12/18 16:35

NTサーバ、IIS、ActivePerl5.6にて、メール送信するプログラムを作成しています。
(SMTP: Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
モジュールNet::SMTPを使用して、CGIのメール送信フォームで入力されたものを送信
するようになっています。

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

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

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

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

どなたか、解決方法をご存知でしたら、ご教授ください。よろしくお願いします!!

**nobodyさん** · 03/12/18 17:11

> 送信に失敗してしまいます。
失敗の仕方もロクに書かずに助言を求める馬鹿がいるスレはここですか？

**nobodyさん** · 03/12/18 17:15

>>354
funny user@domain 間違い
"funny user"@domain 正しい, 推奨
<"funny user"@domain> OK

**nobodyさん** · 03/12/21 14:48

というか，ダブルクォートしてて@hogeが展開されてるってｵﾁでないか？

**nobodyさん** · 03/12/21 17:33

>>357
>メールアドレスが裸の状態だと、正しく送信されます。

**nobodyさん** · 03/12/21 19:02

つーか、あれが上級者の質問なのか？

**nobodyさん** · 03/12/21 19:20

ttp://res9.7777.net/CGI-BBS/server/mail/20030925151017.shtml

>>354は「ＣＧＩ習熟度：pro」だそうだｗ

**nobodyさん** · 03/12/21 22:39

proどこ行ったの～？ｗ

**nobodyさん** · 03/12/23 00:07

Telnetでサーバーに接続して
Perlプログラムを実行する際に
フォームデータを引数として与えて
実行する方法を誰か教えてもらえないでしょうか？

教えてもらったんですけど使い方
忘れちゃいました

**nobodyさん** · 03/12/23 00:08

・・・。

**nobodyさん** · 03/12/23 00:10

>>362
マルチすんなボケ！

**nobodyさん** · 03/12/23 21:20

>>362
２ちゃんねるにはつわものは
いないんですか？
いると思ったのにがっかりだ。
明日、教えてくれたシステム部長
にもう一度聞くから良いよ

**nobodyさん** · 03/12/24 00:37

>>365
マルチすんなっつってんだろ。
ルールを守らない奴になんで親切にしなきゃならんのよ。
マジで自分のことしか考えてないDQNだな。

**nobodyさん** · 03/12/24 14:06

>>365
お前本当にどうしようもないクズだな。
まず2ch（だけではないが）のルールを守れやｳﾞｫｹ。

**nobodyさん** · 03/12/24 16:33

システム部長もこのスレ見てるyo

**nobodyさん** · 03/12/24 20:16

>>367
お前ぶっ飛ばすぞ！！！
顔が見えないからっていい気になりやがって。

**nobodyさん** · 03/12/24 22:48

>>369
お前、上級者にむかってその態度はなんだ！！！
童貞のくせにいい気になりやがって。

**nobodyさん** · 03/12/25 22:51

>>370
童貞ではありません。

**nobodyさん** · 03/12/26 01:29

>>369
最初にいい気になってるのはどう見てもおまえなんだがな。
自分が質問者としてのルールを守っているかどうか、少しは考えたのか？

**nobodyさん** · 04/01/13 19:31

『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.

何故なんでしょうか？
（そもそもファイルハンドラの定義がよく分からないのですが。ポインタ？）

**hjg** · 04/01/13 20:01

perldoc -q filehandle して

"How can I use a filehandle indirectly?"

**hjg** · 04/01/13 20:03

perldoc Symbol も良い

**nobodyさん** · 04/01/13 20:22

>>373
わかる人がいないんじゃなく最近既出の質問
過去ログ嫁

**nobodyさん** · 04/01/13 20:30

>>376
失礼しました。探してみます。

**hjg** · 04/01/13 21:55

>>377
英語読めんか。
洲万買ったな。

**nobodyさん** · 04/01/16 01:28

みんなのPerlソースのコメントアウトレイアウト見てみたいかも。
どんなコメントを書けば見やすいのか研究中。

とりあえず、

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

とか、

#>>>>> 処理名

とか書いてる。
一応それなりに目立つし、全部 # で書くとｳｻﾞｲから

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

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

みんなはどうだ？ﾁｪｷﾗ

**nobodyさん** · 04/01/16 01:50

行コメント以外ならPODで書いてるよ。See perldoc perldoc, perldoc perlpod ...

**nobodyさん** · 04/01/16 01:58

######################################################
## ■以下サブルーチン■
######################################################

**nobodyさん** · 04/01/16 02:00

##====================================================##
## ■以下サブルーチン■
##====================================================##

**ヽ(´ー`)ノ** · 04/01/16 11:53

>>379
POD 使えば？
コメント使った書き方って、見にくいし、他の人のコードと統一性が取れない。
整形するの面倒だし、マニュアルも別に書かないといかん。
じゃあメリットがあるかっていうと特別あるわけじゃない。デメリットだけ。
まともなエディタを使えば、POD のところだけ色も変わるから見栄えを気にする必要もない。
あと俺の主観だけども、出来の悪い CGI のコード見てるようで、醜い(シャレじゃなく)。

すでにあるモノを再発明することないよ。更に良いものが作れるのなら話は別だけど。

**nobodyさん** · 04/01/16 17:05

大規模なコメント（ドキュメント）なんかは
そりゃPODにこしたことはない罠。

ちょっとしたコメントにセンスを光らせたい罠
別に誰が見るわけでもないんだけどさ。

**nobodyさん** · 04/01/16 19:51

ちょっとしたコメントに大袈裟な装飾は不要。
罫線くらいにしておいた方がいいんじゃない？

**nobodyさん** · 04/01/17 20:40

#::::::::::::::: さぶるーちん :::::::::::::::#

**nobodyさん** · 04/01/17 22:55

#
# こめんと
#

シンプルな方がよし。かも？

**nobodyさん** · 04/01/18 01:51

>>381,382
■を使うと見やすいな。

#■ コメント１
print ...

#■ コメント2
print ...

**nobodyさん** · 04/01/18 15:50

統一的にどうするかというより、
#**************************#
#. 大見出　　　　　　　****#
#**************************#

#--------------------------#
#..中見出　　　　　　　----#
#--------------------------#

#--------------------------#
#... 小見出

# その他

　のように、階層に応じて分けるのがいい。ちなみに、「#.」、
「#..」、「#...」の部分は、テキストエディタに「アウトライン」
機能があれば、その見出し行の識別文字列に設定するとよい。

**nobodyさん** · 04/01/20 01:24

上級者のみなさん質問させてください！
ソフトバンクより発売のCGI/Perlハンドブックという本で
http://up.atnifty.com/upload/file/20040120011644_.txt
こういったアンケート収集スクリプトがあるのですが
これを実行してもアンケートが追加されません。
どこが間違ってるのでしょうか？

**nobodyさん** · 04/01/20 01:29

>>390
ﾏﾙﾁﾎﾟｽﾄﾊｹｰﾝ

**nobodyさん** · 04/01/20 07:53

>>386-389
そういう書き方するとＰＯＤに比べて何かメリットは？

>>387 は楽だって点でメリットがあるけど、他のは…。

**nobodyさん** · 04/02/05 22:45

>>392

メリット：見やすくなる（色分けしてるエディタだと更に
デメリット：めんどい。

>>387は後でソース見て苦労するタイプだ

**nobodyさん** · 04/02/05 23:08

>>393
POD も色分けされるじゃん。

**nobodyさん** · 04/02/07 10:43

出力されたHTMLの一行目が改行になってしまう仕様はどうにかならないか。（英文FAQ翻訳風）

**nobodyさん** · 04/03/13 22:04

POD色分けされるエディタって何がある?(WINで)

**nobodyさん** · 04/04/03 08:00

gvim

**nobodyさん** · 04/05/09 21:27

あげじゃあげじゃ

ぺー · 04/05/11 08:07

これと同じ改造するにはどしたらいいんですか神様。

http://ouroboros.game-host.org/index.html

**nobodyさん** · 04/05/12 16:29

同じ改造で満足するのかと小一時間(ry
小言で400get.

**nobodyさん** · 04/06/08 12:32

PerlでPGP暗号化したメールを送ったことのある方おりますか？
gnupg等のコマンドを使って暗号化したものを、
sendmailで送るイメージでいるんですが、
この辺をやってくれるモジュールとかってあるんですかね？

**nobodyさん** · 04/06/08 21:16

>>388
なるほど！
そういえば、携帯ﾍﾟｰｼﾞつくるときによくつかってたけど、ｺﾒﾝﾄで使うのは思いつかなんだ。
らりあとう！！

**388** · 04/06/08 22:17

>>402
どういたまして。
ちなみに今は
タブと■を組み合わせて見やすくしてる。

>>401
メールを受け取る人が一定なら、
その人のマシンで公開鍵と秘密鍵を作って、
その公開鍵を使ってサーバで暗号化する必要がある？？
あんま詳しくないから興味あるかも。

**nobodyさん** · 04/06/08 23:34

>401
ttp://search.cpan.org/

**きのこる先生** ◆FmKame.i.E · 04/06/10 07:13

**nobodyさん** · 2005/11/13(日) 21:07:49

えらく長寿だなぁ、このスレ・・・勃って（ｗから三年半、前レス>>405からも一年半経ってる。

**nobodyさん** · 2005/11/14(月) 23:07:11

pod使ってサブルーチンごとにコメントを挟むと間延びした感じになってなんか嫌だったんだけど･･･
=の前後に空白行がないとpodparserでXHTML化したときにうまく読んでくれないし。

どうよ？

**nobodyさん** · 2005/12/06(火) 03:38:10

0１と最初からスレタイしたら伸びないというのを実践してるな

**nobodyさん** · 2005/12/28(水) 12:54:03

ttp://www002.upp.so-net.ne.jp/wing-net/support/

ここのMulti Wing BBSをDLして設定してうｐまで
終わったんですが、メインのwingmulti.cgiにアクセスして
設定したパスワードを入力しても、パスワードエラーと出ます。

何度設定しなおしてもパスワードエラーに引っかかるんですが
これって単なるバグでしょうか？

分かる方いたら、試してもらえませんか？

**nobodyさん** · 2005/12/28(水) 12:57:36

>>409
もちろんお前はPerl上級者なんだろうな

**nobodyさん** · 2005/12/28(水) 13:02:41

>>410
初級レベルです＾＾；
上級者の方じゃないと分からないと思ったので、すいません。

**nobodyさん** · 2005/12/28(水) 14:52:10

質問するスレじゃねぇ

**nobodyさん** · 2006/02/05(日) 07:47:15

DBICどうすか。
0.5から::Schemaに移行とかなんとか。

**nobodyさん** · 2006/10/08(日) 01:37:17

wikipediaにはトリップ生成は

$tripkey = "#istrip";
$tripkey = substr($tripkey,1,);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = '◆'.$trip;
print "$trip";

って書かれてるが

マルチバイト文字をcryptに入れるとエラーになるんだが。

**414** · 2006/10/08(日) 23:31:27

どうすればいい？
Perl5.8.8だからなのか？
誰か教えてくれねーか？

**nobodyさん** · 2006/10/08(日) 23:54:05

>>414-415
ここは上級者スレ。その程度を自分で解決出来ない奴は立ち入り禁止。

**414** · 2006/10/09(月) 00:08:25

工ｴｴｪｪ(´ﾟдﾟ｀)ｪｪｴｴ工ｗ

**414** · 2006/10/09(月) 00:09:17

UTF8で書いてる所為かも。
SJISに変換して入れてみるか。

**414** ◆SQ2Wyjdi7M · 2006/10/09(月) 00:13:33

うまくいったっぽいｗ