- 1 名前：デフォルトの名無しさん [2012/01/18(水) 02:58:16.13 ]
- CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: hibari.2ch.net/php/ )
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。
www.perl.org/get.html
● 2011/10/30 現在の最新版: 5.14.2
▼ 前スレ
Perlについての質問箱 49箱目
toro.2ch.net/test/read.cgi/tech/1319953460/
リンク集は >>2-3辺り
Perl 日本語処理の基礎の基礎 >>4辺り
- 549 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 20:03:35.82 ]
- 小学生のさんすうレヴェルだろ
プログラミング以前の問題だ
- 550 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 20:12:32.51 ]
- 20:11:15 を 20:12:00 に切り上げたいのか？
まさか、お前。。。釣りじゃないよな？
- 551 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 20:15:23.95 ]
- >>544
君は、utf8フラグまで戻って出直してください。
- 552 名前：デフォルトの名無しさん [2012/02/11(土) 21:24:59.13 ]
- >>548
失せろゴミ
ここはPerlの質問スレであって
幼稚園児並の知能しかない低能に手取り足取り教える場所じゃねぇんだよ
- 553 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:31:39.83 ]
- ｗ
- 554 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:37:48.24 ]
- ＞分単位とか
「とか」って言ってる辺りで察してやれよ、頭が遅れてるんだろ。
- 555 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:40:18.52 ]
- >>548
my $time = time;
$time = $time - ($time % 60) + 60;
お前ら、更年期障害ですか。
- 556 名前：デフォルトの名無しさん [2012/02/11(土) 21:43:40.50 ]
- >>548=ゴミクズ
- 557 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:44:48.79 ]
- >>555
更年期障害はオマエだよ
その時間とやらの書式なにも考えてねーだｒｋｓ
- 558 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:47:50.11 ]
- >>557
秒数から加工する知恵がでないお前が頭悪いだろ。
- 559 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:53:48.33 ]
- >>558
どこにも秒数なんて書いてねーだろ
お前には別世界でも見えてんのかアホ
- 560 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:55:28.93 ]
- >>559
お前プログラムした事あるの？
あそこから希望の書式に加工できないの？
答えれないのなら質問以外でレスするなクズ
- 561 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:56:54.21 ]
- >>555
元々00秒の値でやってみなｗ
- 562 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 21:58:35.86 ]
- >>560
だからお前はどこの異次元のぞいてんだ
希望の書式 とか何かカッコイイ単語並べて悦にドハマりしてんじゃーよｗｗｗ
そのクソ書式がどこにあんだよ
- 563 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:01:02.38 ]
- >>561
my $s = (time % 60);
my $time = time - $s + (($s > 0) ? 60 : 0);
これでよろしいか？
例出して答えろよ。
>>562
お前は黙ってろ
- 564 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:04:19.02 ]
- >>563
> 例出して答えろよ。
恥かいたからって八つ当たりかえ？
- 565 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:08:06.12 ]
- >>564
何言ってんだ？
「こうだろうがハゲ」とでもいいながら
正しい式書けって言ってんだ。
質問スレで質問でも回答でもない糞レスを増やすな
- 566 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:10:50.26 ]
- >>565
分からない時には逆ギレするように小学校で習ったのか、坊主？
- 567 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:11:36.37 ]
- >>563
> my $s = (time % 60);
また恥を増やすつもりか
それともオレのおなかをよじれさせるつもりかよｗｗｗｗｗ
はたまた引っ掛けとか釣りかよｗｗｗｗ
＄＄＄＄＄＄＄＄＄＄＄＄
- 568 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:12:57.50 ]
- >>566
う〜ん？
ちょっと言ってる意味が分からない
>>567
さっぱり、お前の言ってる意味がわからん。
大丈夫か？
- 569 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:18:56.85 ]
- time + 60 で秒を使わずに 00 にして十分かと
my($year,$month,$day,$hour,$min) = (localtime(time + 60))[5,4,3,2,1];
my $tatoeba = sprintf('%04d-%02d-%02d %02d:%02d:00', 1900+$year,$month+1,$hour,$min);
こんな感じ。釣りなのは分かってるけどね。
- 570 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:20:32.13 ]
- $day が抜けてたｗごめんね
- 571 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:21:02.74 ]
- バグ入りコードを晒した>>555が必死で火消し中ｗ
だがもう涙で画面が見えないｗ
- 572 名前：デフォルトの名無しさん [2012/02/11(土) 22:23:49.16 ]
- 原因は>>548
この程度も分からない池沼ってコピペでしかプログラム組めなくね？
何でこの板にいんの？
- 573 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:24:52.04 ]
- でもこんなことも他人に聞く時代になったんだね。
未来にはどんな質問がされることやら。
- 574 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:27:25.11 ]
- >>569
それだと00秒の時にも繰り上げてしまうのがよくないって、さっき突っ込まれたけど。
それと、標準のlocaltimeは、Time::Pieceが無いのならしょうがないけど、
使えるならTime::Piece使う方が綺麗で簡単だしモダンなんだそうだ。
my $tp = Time::Piece::localtime($time);
print $tp->hms
>>571
どうした？
どこが間違ってるんだ、カッコ付いてるのが気に入らなかったか？
- 575 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:32:14.47 ]
- > カッコ付いてるのが気に入らなかったか？
こりゃ思った以上に低レベルだわ
頓珍漢にも程がある
- 576 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:33:49.32 ]
- >>574
>それだと00秒の時にも繰り上げてしまうのがよくないって、さっき突っ込まれたけど。
そんなこと気にしない。
なぜなら 00 秒のときに実時間的には小数点以下の値があるから。
548に聞いてみ。問題ないっていうに決まってるぞ。
- 577 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:35:27.72 ]
- だいたい、そんなこといってる間に1秒たつだろｗ
- 578 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:37:11.91 ]
- >>575
はいはい、低レベル低レベル。
>>576
俺もそう思うけどｗ
でも指摘されたから修正したけど。
まぁ>>548の質問の内容には十分満たしてるだろ。
- 579 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:44:15.09 ]
- time + 60 # 分で切り上げ
time + 60*60 # 時間で切り上げ
time + 60*60*24 # 日で切り上げ
my($year,$month,$day,$hour,$min) = (localtime(...))[5,4,3,2,1] # 分単位で取得
my($year,$month,$day,$hour) = (localtime(...))[5,4,3,2] # 時間単位で取得
my($year,$month,$day) = (localtime(...))[5,4,3] # 日単位で取得
こういうの、モダンのやり方だと解法が見えてこないよね。
- 580 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:45:41.47 ]
- 440 : 名無しさん＠お腹いっぱい。 : 2011/07/04(月) 00:00:00.00 ID:lVHU+IzZ0
誰だよ実質的に小数点以下の値がある とか穂剤てるｱﾌｫは
そういうバグ野郎はさっさと寝ろよ
- 581 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:47:03.44 ]
- >>579
うん？
>>563 と >>574 の方法でできる
- 582 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:47:22.68 ]
- ここは、自分の都合に合わせて問題を勝手に変えてしまう
ゆとりPGが楽しく集う場所みたいだなｗ
- 583 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:48:05.37 ]
- 覚えたてで使ってみたくてしょうがないんだろな、オブジェクト指向。
気持は分かる。
- 584 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:50:50.26 ]
- >>582-583
一人事じゃなくちゃんとアンカーつけようねー
- 585 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:51:55.43 ]
- 学校のパールはPerl4かもしれないしね
- 586 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:54:52.28 ]
- >時間を分単位とかで切り上げしたいのですが
>『どうやったら』いいのでしょうか
プロセスを質問しているようなので、回答もプロセスがよろしいかと。
- 587 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:55:09.67 ]
- >>585
そんなバカなｗ
そんな学校辞めてOKだろｗ
万が一そうだったり、Perl4で強いたげられているんだ！だったら、
まぁその環境にあった良い感じでｗ
- 588 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:57:00.34 ]
- そこは 強いられているんだ！！！ だろ
- 589 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 22:59:43.60 ]
- >>588
J( 'ｰ`)し ごめんね。おかあさんはじめて「強いられているんだ」使ったから、ごめんね。
- 590 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:00:01.84 ]
- しいたけたいらげている？
- 591 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:01:39.30 ]
- そもそも元の質問がPerl特有のものじゃなかったしな
- 592 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:01:52.39 ]
- おれなら秒単位で出力して、読むときに分単位で切り上げるけどな、キリッ
- 593 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:04:04.92 ]
- バカガキ>>548に踊らされるアホ住人
- 594 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:04:45.12 ]
- 小学生の頃だったら、迷わずrootで1分進めとくオレだけどなｗ
- 595 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:04:46.67 ]
- バッカでぇーーッす！！！
- 596 名前：デフォルトの名無しさん mailto:sage [2012/02/11(土) 23:52:09.04 ]
- >>585>>587
ねーよｗｗ
そんな環境あったら抗議多発するし
今時4のみ対応のテキストなんてどうやって用意すんだよｗｗｗ
- 597 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 00:34:36.40 ]
- ($year,$month,$day,$hour,$min) = (localtime(time + 59))[5,4,3,2,1];
$time = sprintf("%04d-%02d-%02d %02d:%02d:00",1900+$year,%month+1,$day,$hour,$min);
でいけそうです。ありがとうございました。
- 598 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 01:16:03.00 ]
- 義務教育で全生徒が対象なので情報処理の基礎を教えるのが目的です。高度な機能は必要ありません。例えば分の切り上げのようなもので十分です。テキストは教師がプリントを作っています。Perl4を使うことに対して抗議されるほどそもそも授業数がありません。
- 599 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 01:22:04.97 ]
- 中間の変数を使わない方法は
- 600 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 01:25:43.38 ]
- 義務教育だから「こそ」せめてPerlなら5以上にしとけと思う俺は異端なのか？
- 601 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 01:25:47.49 ]
- >>598
だったらPerlじゃなくてBASICでもLOGOでも使ってれば？
- 602 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 02:01:11.84 ]
- それではjcode.plなどの
実践技術を学べないだろう
- 603 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 02:42:57.16 ]
- 今でもjcode.pl使ってるヤツは、おばか以外の何者でもない。
- 604 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 02:51:07.37 ]
- お前KENTさんを侮辱するのか？
- 605 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 02:58:12.61 ]
- >>604
正直あの人のスクリプトは、もう古い。
有名だからって、あれを見習っちゃいけない。
- 606 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 03:03:20.23 ]
- このスレに質問してくる人の9割がKENT本読んでんじゃね？て感じのコードだしなぁ…
- 607 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 06:15:03.40 ]
- >>597
$time = int(($time + 59) / 60) * 60;
- 608 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 12:48:02.97 ]
- KENTのPerlスクリプトが
通用したのは2000年ぐらいまでだろうね。
今では、高校生がPerlでこんなのを作ってみましたって
感じにしか見えない。
- 609 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 13:06:30.46 ]
- プログラムなんか簡単そうに見えた方がいいだろ
難解なものを有り難がっているうちはビギナー
- 610 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 13:13:01.61 ]
- と言う奴が便利なモジュールを使うべきところで全部自分で一から書こうとする
そしてそのスタイルを回りに強要する
- 611 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 14:01:33.05 ]
- KENTのコードは、今となっては
モジュールでやればいいものを
自分で実装してるからな。
使えない。
- 612 名前：デフォルトの名無しさん [2012/02/12(日) 14:15:42.36 ]
- 俺の頭の中のPerlも2000年頃で止まってるわ
最近の日本語の文字コード変換のトレンドって何？
俺未だにjcode.pm使ってる
DB使うには今でもDBIやDBDモジュール？
use CGI;とか今でも使う？
- 613 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 14:26:33.39 ]
- >>612
＞最近の日本語の文字コード変換のトレンドって何？
Encode
＞DB使うには今でもDBIやDBDモジュール？
基本はそれ、あとはDBIx::*とか、らしい
＞use CGI;とか今でも使う？
まあスタンダードだからね
あとはFastCGIとPlackお勧め
- 614 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 14:27:47.26 ]
- 自分でやれる程度のものなら別にいいだろ
モジュールを使うのは、自分でやってたら何日かかるか判らないような規模のものだ
好奇心で作ってみるには時間が無駄過ぎる
- 615 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 14:34:27.06 ]
- モジュールなら、ただ「使い方を覚える」だけでいい。
だが、それに頼り切って頭が腐った奴には
授業で習うレベルの古典的な>>607すら理解できない。
- 616 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 15:05:39.00 ]
- >>614
まだ目先のことしか見れてないね。
基本的にこんな感じで選ぶよ。
・標準モジュールは使う
・よく使われてるモジュールは使う
・コードがシンプルになるなら使う
簡単に作れるような内容でもテストまで含めたりすると、
殆どの場合モジュールを使ったほうが速いしね。
逆にモジュールを使わないと判断するのは、そのモジュールがもうメンテされてない。
バグが多い。世の中で誰も使ってない。オーバースペック。こんな所かな。
- 617 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 15:12:39.05 ]
- > 世の中で誰も使ってない。オーバースペック。
ようするに「わたしにはそのコード理解でkましぇーーーん！！」
だろ
先例主義のｱﾌｫかよｗ
- 618 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 15:26:25.77 ]
- >>617
なんでそう思ったの？
- 619 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 15:42:41.39 ]
- 他人のモジュールを使ってバグで悩むのは、作者の想定外のことをするからだ
想定しない作者が悪いというよりも、道具の使い道を把握できない利用者の責任
一度フリーソフトとか作って公開してみるといいよ
何でそんなことに使おうと思ったんだ、みたいな苦情が来るから
- 620 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 15:46:39.08 ]
- >>619
抽象すぎて説得力がない。
- 621 名前：デフォルトの名無しさん [2012/02/12(日) 15:57:58.27 ]
- >>613
サンクス！
- 622 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 17:43:13.51 ]
- >>619
いや、それは作者のデバッグ力なさすぎな作者の責任だろ。普通に考えて。
想定外の使い方されないようエラーチェックするんだろ？
半角数字入力を期待する処理をする時、
半角数字以外の文字が入力されたらエラーと処理せず、
そのまま放置し不具合出たまま期待と違う処理を続行するような状態を、
「半角数字って書いてんのに、それ以外入力するお前が悪いから知らね」とでも言うのか？
例え日曜プログラマーだったとしても、プログラム作る人間の風上にも置けんな。
- 623 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:11:39.10 ]
- sub funk1 {
print "argv: @_\n";
}
$funk2 = &funk1;
print $funk2("foo bar");
これを実行すると
argv:
とだけ出力されて何故引数が表示されないのか考えました。
何故print $funk2("foo bar");でコンパイルエラーが出ないのでしょうか？ (use strictすると出ますが）
$変数名に()をつけて呼び出す記法は無いと思うのですが。
- 624 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:34:31.22 ]
- Bareword
- 625 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:40:59.78 ]
- >>623
なぜ変数名に()を付けてエラーとならないかってのは答えれないけど、
argv: とだけ表示されて、なぜ引数が出力されないかって所は、かなり酷い状態だ・・・・
ちなみに、
sub funk1 {
print "argv: @_\n";
}
$funk2 = \&funk1;
$funk2->("foo bar");
こうすればいいんだけど、もっと基礎をちゃんと勉強しろ
- 626 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:43:59.84 ]
- リファレンスも知らないバカ
- 627 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:45:30.99 ]
- またスパルタ教師ぶりたい連中が湧いてきたな
>>625なんか最後の一言で台無し
- 628 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:46:34.88 ]
- モダンPerlってうっかり車輪の再発明になってしまったモジュールのステマだろ？
- 629 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:48:45.01 ]
- >>627
普通にそういう状態だから。
答えを示さず煽るだけは嫌いだけど、
この質問はなかなか酷い。
2chで質問してイヤな思いするなら別で質問するんだな。
- 630 名前：623 mailto:sage [2012/02/12(日) 18:53:17.29 ]
- すみません。純粋に疑問点だけを載せればよかったですね。
何故argvしか表示されないのかの理由はわかっています。
- 631 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:55:25.58 ]
- use strict知ってるのにリファレンス知らない奴なんてそうそういねーだろ
- 632 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:56:17.49 ]
- 現に居てるじゃねーか
- 633 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:58:25.45 ]
- >>623
↓出力する内容
print $funk2("foo bar");
↑ファイルハンドル
print $funk2 'foo bar';と等価。
- 634 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 18:58:33.88 ]
- >>632は>>623を「リファレンスも知らない初心者」と決め付けたかったわけだな
残念、本当の初心者ならuse strictすら使えんよ
- 635 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:03:16.88 ]
- >>634
知らなかった事、間違ってた事を全力でフォローするな。
知らない事、間違った事を認めれないガキか。
「間違ってましたー、勉強してきまー」くらいで終わらんのか・・最近のガキは・・・
- 636 名前：デフォルトの名無しさん [2012/02/12(日) 19:04:52.68 ]
- >>630 ← で、何でこのゴミは何なの？
- 637 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:06:00.24 ]
- >>635
＞「間違ってましたー、勉強してきまー」くらいで終わらんのか・・最近のガキは・・・
本当にそう言ったとしてもお前らがネチネチと終わらせないわけだが
- 638 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:06:14.98 ]
- 623って頭悪そうPerl関連の本とか5冊も持ってないんじゃね。
- 639 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:08:02.35 ]
- >>637
それで終わってあとは二度とスレ見なければいい話だろ
>>623みたいなマジキチは2chを便利なオンライン講座と勘違いしてるわけだし
- 640 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:08:45.12 ]
- >>637
誰かが言ってたけど、2chなんて便所の落書きと同じだ。
その中に有益な情報が紛れてるのを見付け出して利用する。
後はポイだ、ポイ。
- 641 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:08:47.46 ]
- >>634
perl -e 'my $a="STDERR";print $a("aaaaa");' >/dev/null
aaaaa
おお、ほんとだ。納得しました。
- 642 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:09:46.47 ]
- 間違えた、>>641は>>633宛。
- 643 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:10:34.50 ]
- まともな精神構造してたら他人に質問するのにこんな態度はとらんよ。
親がキチガイなんだろう。
まともにガキ1匹教育できないクズが性欲にまかせてガキ作ったのがこの結果。
>>623の親は社会のお荷物。
- 644 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:10:44.26 ]
- >>638>>639
なに必死になってんの…
- 645 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:12:09.43 ]
- >>643
まともな精神構造なら、もし真摯に質問してきても偉そうな態度で答えたりしない
- 646 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:13:51.93 ]
- >>641
出力先がSTDERRだから表示されるけど、
なぜ一々標準出力を /dev/null へ捨ててるのかが意味不明。
笑えるほど何か、いちいちツッコミ所があるな
- 647 名前：623 mailto:sage [2012/02/12(日) 19:14:04.54 ]
- 何か勘違いされていそうですが、僕の書き込みは>>623と>>630だけです。
荒れるような質問をしてすみません。＞スレ住人
>>633
あー、なるほどそう解釈されたわけですか。
use strict;
sub funk1 {
print "argv: @_\n";
}
open(my $fh, ">test.txt");
print $fh("foo", "bar");
で上手く動きました。ファイルハンドルとして捉えられていたのですね。
$fh("foo", "bar")は関数呼び出しに見えますが、その辺をうまく解釈してくれようとしていたのですね。
ありがとうございました。
- 648 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:15:29.32 ]
- >>646
STDOUTへの出力じゃないことを強調したかったんで…
- 649 名前：デフォルトの名無しさん mailto:sage [2012/02/12(日) 19:17:39.91 ]
- >>647
こちらこそ申し訳ないです
老婆心ながら、コードの可読性的に$fhと()の間は空けた方が良いですね
|
 |
