Perlについての質問箱 50箱目

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辺り 830 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 01:40:11.33 ] >>829 @argvの中に数字の0とか空文字が入る場合、前者だとそこで止まっちゃう。 あとイテレータに最後のundefがあるとは限らないよ。 831 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 02:12:06.81 ] >>828 正面向きのヒヨコみたい 832 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 01:19:58.30 ] >>830 ほんとですね、ありがとうございます 833 名前：デフォルトの名無しさん [2012/02/24(金) 13:13:11.47 ] うるさいゴミ 834 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 14:08:16.64 ] >>833 なるほど、自分がついて行けない話の時はそうなるのか 産廃並みの脳味噌だなｗ 835 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 21:56:49.58 ] perl -E '@a = <STDIN>; eval "@a"' これをもっと短くすることをお願いできないでしょうか？ 836 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 22:34:19.63 ] >>835 何がしたいのそれ echo 'print "foo";' | perl 837 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 23:17:25.64 ] 選択中のテキストに対してシェルコマンドを実行する事が出来るアプリ(Meadow)を使って perl -pel "s/hoge/ほげ/" というような感じのことをしてみたのですが perlスクリプト書いて選択して実行してみたいなと思ったところです。perl だけでは動きませんでした。 今はこうやってます。(少し短くなった) perl -e "$/=undeff; eval <>" 838 名前：デフォルトの名無しさん mailto:sage [2012/02/24(金) 23:56:04.53 ] パッパッパパッパぁ〜Perlライス 839 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 00:14:16.96 ] >>837 俺はvimしか使わんからEmacsの流儀は知らんけど、なんかやり方ありそうよ。 maruta.be/intfloat_staff/46 vimなら行選択して":!perl"でもしてやればカレントバッファに結果が出る。 840 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 00:23:42.23 ] >>839 Linux上ではperlだけで動くので多分WindowsとMeadowのせいなんだと思います。 わざわざ調べてくださってありがとうございます！ 841 名前：デフォルトの名無しさん [2012/02/25(土) 19:21:23.07 ] 文字列を8もじずつ分割して配列にしたいんだけど どうしたらかっこういいですか？ 842 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 19:36:19.69 ] そのかっこいい方法は、 最速ですか？ 843 名前：デフォルトの名無しさん [2012/02/25(土) 19:56:46.61 ] >>841ゴミは書き込みするなって 844 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:05:36.52 ] >>842 格好いい＝最速、最速＝格好いい 昔から決まってんだろ 845 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:08:55.00 ] 最速の方法は、 文字へのポインタを8づつ増加させながら 配列に加えていく方法だろうね。 846 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:19:58.87 ] my @div = $str =~ /.{1,8}/g ; これ以上短くできンの？ 847 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 20:54:05.67 ] できたよ。 関数作ればコードも短く 意味もわかりやすくなる。 my @div = splitn($str,8); 848 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 21:25:21.82 ] >>847 それってホントに動作の意味が分かりやすくなんの？ 関数のホントの意味知らないと、動作が絶対に分からないような作りになってね？ 分かりやすいってのはウソで、実はそれ、説明性が低いだろ。 849 名前：デフォルトの名無しさん mailto:sage [2012/02/25(土) 21:36:22.83 ] my @div = unpack('(A8)*', $str); 850 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 05:45:04.09 ] >>849 　　　　　　　　　　　　　　　　 ,r=''""ﾞﾞﾞli, 　　　　　　_,､r=＝===､､,,_ ,r!'　　　...::;il! 　　　　 ,r!'ﾞﾞ4　　　　　　 ｀'ヾ;､,　..::::;r!'ﾞ 　　　 ,i{ﾞ‐'_,,_　　　　　　　　　:l}..::;r!ﾞ .　　,r!'ﾞ4 4-ｰ‐‐==､;;;:....　　 :;l!:;rﾞ 　,rｼﾞ　　　　　　　 　 ｀~''=;;:;il!::'li . illﾞ　　....　　　　　　　　　.:;ll::::　ﾞli ..il'　　 ' ' '‐‐===､;;;;;;;:.... .;;il!::　 ,il! ..ll　　　　　　　　　　｀"ﾞ''l{:::　,,;r'ﾞ ..'l!　　　　　　　. . . . . . ::l}::;rll(, 　'i,　　' ' -===＝＝‐ー《:::il::ﾞヾ;､ 　 ﾞi､　　　　　　 　　 　 ::li:il::　　ﾞ'＼ 　　ﾞli､　　　　　　..........,,ノ;i!:....　　　 ｀' ､ 　∧__∧ 　　　`'=､:::::;;､:､==＝''シﾞﾞ'＝=-､､,,,__　｀'（・∀・　） 　　　　 ｀~''''＝=＝''"ﾞ4　　　　　　　 ~`''ｰ（　　　）) 　　　　　　　　　　　　　　　　　　　　　　　　　u~u　 good job 851 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 12:34:25.82 ] perlのマニュアルでわかりやすいのってある？ 省略したときに$_とか$@を使うのか 引数の中身を破壊するのかしないのか 戻り値が$_とか$@に入るのか ってのがいつもわからない 852 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 12:57:09.78 ] 以下のsub.plは単体で呼び出すとうまく動くのですが、main.plから呼び出すと ｜$ perl sub.pl を実行します ｜"\x{0436}" does not map to cp932. "\x{042c}" does not map to cp932. "\x{00b5}" does not map to cp932. ... となってしまいます。何故化けてしまうのでしょうか？ やりたかったこと（標準出力を一時的に切り替えたい）はselectを使うことで解決したのですが、 以下がうまく行かない理由が分からず、分かる方がいらしたら教えていただきたいです。 両ファイルともutf-8で保存しています。windows環境です。 #### main.pl #### use strict; use utf8; use Encode; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; my $command = "perl sub.pl"; print "> $command を実行します\n"; print decode("cp932", `$command`); ### sub.pl #### use strict; use utf8; binmode STDIN, ":encoding(cp932)"; binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">:encoding(cp932)", "./test.txt" || die "ファイルが開けません: $!"; print "testです"; close STDOUT; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; # この行を消すと、main.plの実行は上手くいくのですが、単体実行でwide character in print 化けます。 print "生成しました\n"; 853 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 13:33:21.59 ] printfで文字列に全角文字が混じった時に、 全角は2文字分の幅として認識させるにはどうすれば ぐぐると、やたら面倒そうなのとか、根本から変えちゃうようなのしか見つからない 854 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 13:55:58.80 ] >>853 罫線問題もあるので、極めて難しい超難問ですお 855 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:23:31.52 ] じゃあ、罫線は無視で 856 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:26:05.67 ] 罫線問題って呼び方は聞いたことないけど、「曖昧な文字幅」の扱いのことだよね。 Winユーザでもギリシャ文字が場合によって半角だったり全角だったりなんてのは見たことあると思うけど。 857 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:34:36.92 ] ハングルは半角か全角か 858 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 14:51:51.24 ] こんなのでよくね？ use utf8; sub count { my $str = shift; my @chars = split(//,$str); my $kigou = quotemeta("!@#$%^&*()_+|~-=\`[]{};:'\",./<>?"); my $count = 0; for (@chars) { $count += /[a-zA-Z0-9]|$kigou/ ? 1 : 2; } return $count; } print count("1234ほげほげ"); # =>12 859 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:16:54.51 ] >>852 俺の環境(Ubuntu)では文字化けしなかった。 cp932の所は環境に合わせるためにutf-8に書き換えたがな。 ってか、ちゃんと文字のencodeとdecodeを理解するべきだろ・・・ 魔法のおまじないのように「binmode STDERR, ":encoding(cp932)";」こういうの使わない方がいいと俺は思うけど。 860 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:19:44.17 ] decode('cp932', sprintf("%-10s", encode('cp932', $str) ) ); 結局、こんなんにしました 861 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:23:22.06 ] >>860 なんとひどい・・・ 無駄なオーバーヘッドかかりまくり・・・ センスの欠片も感じられない、もっと本読めマジで本読め 862 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:36:02.70 ] >>861 我流でやってきたので・・ おすすめの本があれば教えて下さい。 863 名前：デフォルトの名無しさん [2012/02/26(日) 15:45:40.64 ] >>862 自分で探せゴミクズ そうやってすぐ他人にきくからゴミみたいなコード書くんだろ ゴミコードをネットで晒して恥ずかしくないとか頭の中どうなってんだこの基地害 864 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:51:42.39 ] お前がどんなにゴミだクズだと罵ったところで、>>862は人として最低限のプライドもないから無駄だよ。 865 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 15:51:51.45 ] バイナリでいいやん 866 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:04:46.11 ] >>862 俺が読んでた本は、もう随分古い本だからな・・・ 同じ本を薦めても情報が古過ぎる、新しい情報はネットから得てるし amazonで適当に探して評価読んで良さそうなのを一冊見つければいいんじゃないか？ 867 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:19:33.07 ] ネットからは得られないぞ 入門の情報はネットで十分だけど、ノウハウ的なものは金を出さないと得られない 868 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:27:51.02 ] 応急の策としてなら>>860は別にそれほど悪くない。 速度的にもutf8のまま真面目にFULLWIDTH/HALFWIDTHを判定していくよりは速いぐらいかもしれない。 869 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 16:56:03.34 ] 漏れが一切無いというのが安心できるな シフトJISの時と全く同じ動作を得たいなら、シフトJISにするしかない 870 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:03:42.35 ] 入力も出力もシフトJISなら処理もシフトJISで行ったほうがいいでしょ utf8に変換する必要性ないでしょ 871 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:07:44.22 ] クソ性器表現のため処理はｕｔｆだろふざけんなｋｓ 872 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:09:37.67 ] もう頭痛くなってきたｗ いい感じにひどいですね 873 名前：デフォルトの名無しさん [2012/02/26(日) 17:31:21.20 ] うるさいゴミ 874 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:37:25.00 ] >>852 ### sub.pl #### use strict; use utf8; binmode STDIN, ":encoding(cp932)"; # binmode STDOUT, ":encoding(cp932)"; binmode STDERR, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">", "./test.txt" || die "ファイルが開けません: $!"; binmode STDOUT, ":encoding(cp932)"; print "testです"; close STDOUT; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; print "生成しました\n"; 875 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 17:52:22.23 ] ピログラムも知らないど素人向けでもないのにマルチバイト文字でメッセージ出す奴は基地害 876 名前：874 mailto:sage [2012/02/26(日) 18:01:58.62 ] それと多分、 open STDOUT, ">", "./test.txt" or die "ファイルが開けません: $!"; 877 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 18:40:37.78 ] そこでjperlなわけか 878 名前：852 mailto:sage [2012/02/26(日) 19:09:09.34 ] >>859,874 レス有難うございます。 標準出力を切り替える前にも出力するためその行はコメントアウトできないです。 色々試してみたところ、デフォルトのSTDOUTを1度rawにするとsub.pl、main.pl共々上手く行きました。 binmode STDOUT, ":raw"; open DEF_STDOUT, ">&STDOUT"; 重ねがけのような状態になっていたのでしょうか・・？ しかしsub.pl単体では上手く動いていたので謎です。 結局>>852の # この行を消すと、main.plの実行は上手くいくのですが、単体実行でwide character in print 化けます。 の理由は分からず。 Ubuntuの方が試してくださった所どちらも上手く動いたとの事なので、 Windowsでの挙動があやしいということなのかもしれません。 879 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 19:10:56.18 ] アホかよ…… cp932なんだからwinでためさねーと意味ないじゃん 880 名前：874 mailto:sage [2012/02/26(日) 19:36:49.24 ] >>878 use utf8; binmode(STDOUT, ":encoding(cp932)"); binmode(STDOUT, ":encoding(cp932)"); layer(*STDOUT); print "あああ"; sub layer { warn(join("/", PerlIO::get_layers($_[0])), "\n") } これでアウトだしPerlIOは良く分からん。 確かに:rawを入れると直るね。 881 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 19:47:34.18 ] cp932でエンコードしたものをもう一度cp932でエンコードしようとしているんだから上手く動かないのは当然じゃないの？ 882 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:12:07.34 ] だから初心者はjperl使えと口が酸っぱくなるほど、、、 883 名前：874 mailto:sage [2012/02/26(日) 20:20:55.64 ] >>881 ドキュメントに書いてくれええと思う。 884 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:37:36.28 ] cp932で二重エンコードは単なる間違いだけど、 utf-8で二重にやっちゃうのは頻繁に見る そしてフラグを剥がして解決する 885 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 20:58:17.86 ] utf-8で二重にやっちゃうのも単なる間違いだからｗ 886 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 21:01:31.55 ] そろそろ１レスでわかるやつがペーストされるいよかん。 887 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 22:46:15.18 ] encode済みの文字列をencodeできてしまうのはフェイルセーフが欠如してるとしか思えんな フラグ見れるのにそれ見ないんだぜ？ 888 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:23:03.22 ] そんなもん言語仕様でどうにかしろよ 889 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:26:38.58 ] 言語仕様までいかなくてもEncodeモジュール側でなんとかできそうなもんだが… 問い合わせてみようかな 890 名前：デフォルトの名無しさん mailto:sage [2012/02/26(日) 23:57:50.15 ] それよか、ひとくるみしたらどうだ？おれならそうする 891 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 00:21:44.60 ] >>852のsub.plは、二度がけしているにもかかわらず windows7のコマンドプロンプトだと化けないな use utf8; binmode STDOUT, ":encoding(cp932)"; open DEF_STDOUT, ">&STDOUT"; open STDOUT, ">&DEF_STDOUT"; binmode STDOUT, ":encoding(cp932)"; layer(*STDOUT); print "生成しました\n"; sub layer { warn(join("/", PerlIO::get_layers($_[0])), "\n") } >perl sub.pl unix/crlf/encoding(cp932)/utf8/encoding(cp932)/utf8 生成しました 892 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 01:12:18.48 ] 甘やかすな 二重encodeは問答無用で青画面 893 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 01:27:30.39 ] Win95並みのクソOSだなそれ 894 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 02:39:42.45 ] d.hatena.ne.jp/perlcodesample/20091118/1246679588 ここ読め、かなり良いから。 変な使い方するな、理解してもないのに変な楽の仕方するな 895 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 06:48:35.60 ] とはいうもののクソの口から本当の楽の仕方は出てこない、 書かれることもない、 なぜなら>>894の能力が低いから 896 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 06:57:34.31 ] use utf8を書かないとうまく動かない時ってどんな時だ? 897 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 08:05:06.77 ] >>896 ASCII 以外が必要なほぼすべての時。 898 名前：デフォルトの名無しさん [2012/02/27(月) 13:52:22.69 ] >>895 それめっちゃ分かる。 お前の能力めっちゃ低いもんな。 899 名前：デフォルトの名無しさん [2012/02/27(月) 14:04:23.67 ] なぜなら俺はイタリアンじゃないから 900 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 19:39:56.47 ] アクセス解析で環境変数を取得するときに、リファラーに井桁が入ってると変数に代入されず リファラーが取得できなくなってしまうのはどうすれば解決できますか 901 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 19:58:34.20 ] >>900 こちらへどうぞ。 Perlコーディング初心者質問スレ Part 63 kohada.2ch.net/test/read.cgi/php/1315559509/ 902 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:06:31.96 ] >>901 誘導ありがとうございます。失礼しました。 903 名前：デフォルトの名無しさん [2012/02/27(月) 20:14:14.61 ] 勢いを見てもこのスレがPHPより人気なのが分かる 904 名前：デフォルトの名無しさん [2012/02/27(月) 20:16:12.30 ] つーかPHPの質問スレ自体がなくてワラタｗ PHP厨はこの世に存在しないのと一緒ｗ 905 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:21:55.19 ] 普通にたくさんあるだろ 906 名前：デフォルトの名無しさん [2012/02/27(月) 20:23:33.91 ] それがなかったんだよｗ バトルロワイヤルとかHello Worldを書き込むとかそういうスレしかなかったｗｗｗ 907 名前：デフォルトの名無しさん [2012/02/27(月) 20:24:47.12 ] >>905 つーか一覧でCtrl+Fですぐ調べられるから見てみろってｗｗｗｗ 908 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:31:15.49 ] 【Perl,PHP】LLバトルロワイヤル21【Ruby,Python】 【perl->php】お願いがあるんだ PHP使ってる奴らが憎いPerl>>>PHP PHPを使って２ちゃんねるにHello Worldを書き込む php使ってる奴はアホ、これからはRuby on Rails! すさまじい 怨念が渦巻いている 909 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:36:02.02 ] やっぱりPerlだよな。 PHPとか言語仕様が糞なうえにセキュリティホール付でリリースするからマジないわ。 ゴミすぎてPerlとの比較対象にすらならない。 PHP選んでるって時点で情弱。 馬鹿にされたくなかったらPerlを選んでおくべき。 910 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 20:53:58.47 ] 数えきれないほどあるけど？ 【PHP】下らねぇ質問はID出して書き込みやがれ 116 kohada.2ch.net/test/read.cgi/php/1330224598/ PHP関連の書籍 第7版 kohada.2ch.net/test/read.cgi/php/1324952317/ IDにPerlが出たら神!PHPが出たらｼﾒｼﾞ Part32 kohada.2ch.net/test/read.cgi/php/1303228484/ 【PHP】フレームワーク CakePHP 13ホール目【v2.0】 kohada.2ch.net/test/read.cgi/php/1320768310/ 【PHP】Yii Framework kohada.2ch.net/test/read.cgi/php/1291909271/ 【PHP】PHPフレームワーク総合スレ15 kohada.2ch.net/test/read.cgi/php/1292118428/ PHPでオークションサイトを作ろう！ kohada.2ch.net/test/read.cgi/php/1170317609/ [PHP][フレームワーク]CodeIgniter Part2 kohada.2ch.net/test/read.cgi/php/1299595202/ 【PHP】ビューと業務ロジックを混在させる【PHP】 kohada.2ch.net/test/read.cgi/php/1254298092/ 【初心者】励ましあいながらサイト製作【PHP】 kohada.2ch.net/test/read.cgi/php/1125711034/ Perl VS PHP kohada.2ch.net/test/read.cgi/php/982591467/ PHP＞Java＞＞＞超えられない壁＞＞＞ASP＞Perl kohada.2ch.net/test/read.cgi/php/1178094278/ Java VS PHP kohada.2ch.net/test/read.cgi/php/1177676518/ symfony PHPフレームワークpart2 kohada.2ch.net/test/read.cgi/php/1268753684/ 【PHP】鏡の国2ch bbs kohada.2ch.net/test/read.cgi/php/1234765454/ 911 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 21:28:19.27 ] >>909 「セキュリティホール付でリリース」 コミュニティーがたよりない 912 名前：デフォルトの名無しさん mailto:sage [2012/02/27(月) 21:53:31.46 ] PHPにはだんこがいみたいなひといるの？ 913 名前：デフォルトの名無しさん [2012/02/28(火) 00:05:00.57 ] 質問なのですがPerlでこういうサイトって作れますか？ ttp://findrjp.com/formen/ これはPHPだと思うんですけど 作るとしたらelsifで作る感じでしょうか？ こういうのってすぐ作れますか？ 914 名前：デフォルトの名無しさん [2012/02/28(火) 00:43:21.62 ] >>913 >>1を100回読んでから出直せゴミクズ 915 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 00:52:16.20 ] ＞Perlでこういうサイトって作れますか？ ＞ttp://findrjp.com/formen/ お前は言語を何だと思ってんだ？ PerlだろうとCだろうとC++だろうとシェルスクリプトだろうとできるだろ。 ＞これはPHPだと思うんですけど 「思う」じゃねーよ、Perlだったらどうすんだ？ ＞作るとしたらelsifで作る感じでしょうか？ そりゃ条件分岐くらい使うでしょうよ。 ＞こういうのってすぐ作れますか？ すぐの意味が分からないが仕様書出してもらえれば寝起き2時間で作れるよ。 文字通り朝飯前。 916 名前：デフォルトの名無しさん [2012/02/28(火) 01:36:50.46 ] >>915 PHPとかperlってどこで判断するんですか？ 結果ページのurlにはphpって入ってますけど 917 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 02:35:17.55 ] 死ねよ上げんな池沼 918 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 04:09:04.78 ] >>916 鯖管に聞かなきゃ分からない 一つの言語だけでできてるという保証もなし 精度向上がどうのって書いてあったから バックエンドではcで書いたややこしいシステムが動いてるかもよ 919 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:15:15.72 ] ひとつ言える事は・・・ 吐いてるHTMLは死ぬほど汚い、素人が作った物だろって事。 920 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:16:26.01 ] 寝起きで朝飯前食う前にやっつけで作ったんじゃね？ 921 名前：デフォルトの名無しさん mailto:sage [2012/02/28(火) 10:24:20.67 ] ステマそのものじゃねーか。つまらん。 922 名前：デフォルトの名無しさん [2012/02/28(火) 18:33:03.38 ] CGIの話はWebProg板でやれゴミ 923 名前：デフォルトの名無しさん [2012/02/28(火) 19:56:56.41 ] >>919 さすがプロの方 ありがとうございます 924 名前：デフォルトの名無しさん [2012/02/28(火) 20:59:01.76 ] バーカ 925 名前：デフォルトの名無しさん [2012/02/29(水) 21:56:03.52 ] 阿呆 926 名前：デフォルトの名無しさん [2012/02/29(水) 22:01:52.56 ] $a = time; for( $i = 0; $i < 10000; $i++ ){ $x = $x + 1; } $b = time; $c = $b - $a; print "$c"; 927 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 04:13:20.21 ] my $a = time; my $x = 0; $x += 1 for 0 .. 9999; print time - $a, "\n"; 928 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 07:16:10.31 ] ミリ秒まで計測できるよう改良してあげたぞ my $a = time; my $x = 0; for(my $i = 0; $i < 10000; $i++ ){ $x += 1; } my $b = time; $c = rand($b - $a); print $c. "\n"; 929 名前：デフォルトの名無しさん mailto:sega [2012/03/01(木) 09:19:19.20 ] 文字列を改行つきで表示させたいとき、 print "$c\n"; print $c ."\n"; のどちらが良い方法ですか？ 個人的には上の方法が好きですが、特に理由はありません。 930 名前：デフォルトの名無しさん mailto:sage [2012/03/01(木) 09:26:06.30 ] >>929 俺は下の方が好き。 Perlは変数がダブルクォートの中にあっても展開してくれるけど、 他の言語では展開しない物の方が多い。 Perlでいう全部シングルクォートと同じ感じ。 気持ち悪いから下の方法を取ってるだけで、それ以上深い意味はない。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef