08/06/18 04:57:49
>>524
> print hex2name($str); #「あいうえお」を期待するが変換前と同じ$strが出力される
いや、期待するなよ。
527:デフォルトの名無しさん
08/06/18 06:29:13
そのあたりに踏み入ったことはないのだが、マニュアルを見る限り
HTML::Entities::decode
を使うのではないか?
528:デフォルトの名無しさん
08/06/18 12:04:39
すんごい初歩的な質問で申し訳ないのですが、
Perlやってる友達がお前こんなのもできないだろと自慢してくるので、明日までにこれをやらないとまたバカにされるのですが、
プログラム自体やったことがなく意味不明すぎてよくわかりません。。誰かもしよかったら教えてください。
キーボードから整数値$aの値を入力してEnterを押し、
続けて$bの値を入力してEnterを押すと、
$aを 3 倍した値と、$bを 8 倍した値の和 を計算して$cに代入し，
$cの値を画面に出力するプログラム
結果は
print "$cn";
の形で出力する
この結果の出力以外の画面出力はしないこと.
529:デフォルトの名無しさん
08/06/18 12:10:09
>>528
その友達に教えてもらいなさい
530:デフォルトの名無しさん
08/06/18 12:14:12
>529
というか、その友達から出された問題なんです。
531:デフォルトの名無しさん
08/06/18 12:23:42
宿題だろ・・・
532:デフォルトの名無しさん
08/06/18 12:37:23
それが出来たところで他の事聞かれてあぼんだな
533:デフォルトの名無しさん
08/06/18 12:40:17
「1/10の確率」
を表現するのに、これ↓はありなのか？
return 0 if rand(1000) > 100;
534:デフォルトの名無しさん
08/06/18 12:51:55
あり得ないという根拠は？
535:デフォルトの名無しさん
08/06/18 12:52:56
>>533
randが正規乱数だと仮定するならありだろ。
536:デフォルトの名無しさん
08/06/18 13:05:29
正規乱数だと仮定するならなしだろ
randが一様乱数を吐くのならありかもしれんが
537:デフォルトの名無しさん
08/06/18 13:50:36
>>528
お前こんなのもできないのか
538:デフォルトの名無しさん
08/06/18 14:25:04
綺麗な記述を勉強したいです。
どっかで配布されてる非常に綺麗で整理された記述を教えてください。
あまりにいっぱい配布されすぎててチェックできません。
539:デフォルトの名無しさん
08/06/18 14:39:00
>>538
man perlstyle
つーか、好きにしろ
540:デフォルトの名無しさん
08/06/18 16:10:12
>>538
perl medicとかは偏ってはいるけど
ポリシーとしてはまあ参考になるかもしれん
買うまでの事は無い本なので図書館で探せ
541:524
08/06/18 21:54:54
>>527
HTML::Entities::decode で無事に出来ました
今後はマニュアルをしっかり読みますm(_ _)m
ありがとうございました
542:デフォルトの名無しさん
08/06/18 22:32:54
>>538
ここはPerlのスレですよ？
543:デフォルトの名無しさん
08/06/18 22:37:24
>538
Plagger読んどけ
544:デフォルトの名無しさん
08/06/18 23:17:04
こっそり書いてみる。意味は教えないよ
perl -e 'print <STDIN>*3+<STDIN>*8,"\n"'
545:デフォルトの名無しさん
08/06/18 23:37:40
$cに代入してないじゃん
546:デフォルトの名無しさん
08/06/18 23:54:10
>>528
544とは別人だけど。
perl -e '$c=<>*8+<>*3;print"$c\n";'
また、次の問題を出されるだろうから、がんばって。