ruri6syo の回答履歴

# 禁止文字 @haijyo = ('jp','JP','ＪＰ','ｊｐ','com','COM','ＣＯＭ','ｃｏｍ','ｎｅｔ','ＮＥＴ','net',); foreach $haijyo (@haijyo) { if($body =~ /$haijyo/){ push(@error, '本文にメールアドレスやURLの記入はできません。または禁止ワードが含まれています') } } を禁止ワードが本文($body)に含まれており なおかつユーザーエージェントにwindowsが含まれていた（いずれも一致した）場合、 エラーを吐き出すようにしたくて elsif($ENV{'HTTP_USER_AGENT'} =~ /windows/)を書きくわえてみたのですがうまくいきません。 どのようにしたら両方の条件式に一致した場合にエラーを吐き出せるのでしょうか？

perl初心者ですが、プログラム作成で行き詰ってしまいました。 参考書を読みあさり、色々とググってみたのですが、どうしても組み立てられません。知識のある方ご回答よろしくお願いします。 一つ目は： 英語の文章を記憶したファイルを指定し，その内容を読み込み，文章内に含まれる単語を出現頻度の降順で表示させるプログラムを作成すること 「1位：・・・(・・回)」 「２位：・・・(・・回)」 ．．． なお，一つの単語が二行にまたがることはないものとする。 二つ目は： テストの成績データを記憶したCSV ファイルを指定し，その内容を読み込み，各学生の総合点と順位，各科目の最高点，最低点，平均点を記憶したＣＳＶファイルを書き出すプログラムを作成せよ。 なお，入力用のファイルと出力用のファイルはキーボード入力で指定するものとする。 また，異なる学生数および科目数のCSV ファイルを読み込んでも正しく動作するようにすること。 卒業のかかったレポートで、この二つを完成させないと先に進めないのです。 本当に図々しい質問で大変申し訳ありません。知識のある方どうかご教授ねがいます。 *ひとつめに関しては： open (FILE, 'perl.txt') or die "$!"; while (my @array = <FILE>){ foreach (@array) { $count{ $_ }++ ; } @rank = sort { $count{ $b } <=> $count{ $a } } keys %count ; foreach (0..$#rank) { $kagi = $rank[ $_ ]; $kaisu = $count{ $kagi } ; print $_+1, "位：$kagi（$kaisu 回）\n" ; } } のように書いたところで行き詰ってしまいました。 二つ目は： open (FILE, 'data.txt') chomp(@data = <FILE>) ; $i= 1 ; # 行番号を記憶する変数 for (@data) { # 各行に対して以下を繰り返す． # 各行の数値を配列の要素として記憶する． @list = split(/,/, $_) ; # サブルーチンを呼び出して，結果を表示 print "$i行目：" ; print "数値：",&cardinality(@list),"個，" ; print "最大値：",&maximum(@list),"，" ; print "最少値：",&minimum(@list),"，" ; print "合計：",&summation(@list),"，" ; print "平均：",&average(@list),"\n" ; # 行番号の更新 $i++ ; } とまで書き、もう何が何だか訳わからなくなってしまいました。

カラープリンターの場合、カラーと黒の二つのカートリッジを使いますよね？ で、どの部分が黒と判断しているんですか？ カラーインクをすべて混ぜれば、黒になりますよね？（多分。違うかな？ ＨＰの場合、肉眼では黒だけど、微妙に違っていたりする場合は、カラーカートリッジ？黒カートリッジ？ もっと言えば、灰色や黒っぽい何かだと、カラーを使うの？それとも黒を？両方混ぜて？ 印刷する時は、どうやって色を判断しているんですか？

カラープリンターの場合、カラーと黒の二つのカートリッジを使いますよね？ で、どの部分が黒と判断しているんですか？ カラーインクをすべて混ぜれば、黒になりますよね？（多分。違うかな？ ＨＰの場合、肉眼では黒だけど、微妙に違っていたりする場合は、カラーカートリッジ？黒カートリッジ？ もっと言えば、灰色や黒っぽい何かだと、カラーを使うの？それとも黒を？両方混ぜて？ 印刷する時は、どうやって色を判断しているんですか？

私はパワーストーンが大好きでお店でブレスを買ってきたり パーツを買って来て自分で作ったりしています そして気づけばもう10本以上に・・・ 効果を期待して買うというよりオシャレの一環となって買っているので 可愛い色合いがあるとすぐに買ってしまうんです そこで、以前付けてたブレスはバラバラにして 新しく組んでも大丈夫なんでしょうか それでも使わなくなったブレスは どうやって保存?したらいいでしょうか 知っている方がいらっしゃれば教えてください

いつもお世話になっております。 Perlを独習しようと思い、入門書を購入し、 その指示に従ってPerlをインストール致しました。 そして書籍に記されているとおりに、 #サンプルプログラム print "HelloWorld"; とメモ帳に記述し、ファイル名「perl01.pl」の名前でc\progのフォルダに保存しました。 そしてそのプログラムをperl.exeから >perl perl01.pl と記述して呼び出そうとしたのですが、 何も表示されません。 非常に困っております。 どうか解決策を宜しくお願い致します。

前回こちらでご相談させて頂いた者です。（http://oshiete1.goo.ne.jp/qa4547337.html) (http://oshiete1.goo.ne.jp/qa4567638.html) ご意見を頂いたときはとても前向きになっていましたがふとした拍子に又許せないという気持ちが出てきてしまいます。そんな時はこちらでご意見下さった方のコメントを拝読し（とても励み、力になっています。）その通りだと思いそのコメントに対してお礼をした時と同じ気持ちになるのですが...。 私が全て原因を作りその結果がそうなっただけで自分の方がどれだけ悪いかわかっているのに許したつもりでも実際許していないですよね。 彼にそのことを言ってしまいました。彼はこの先一生許してもらえないかもしれないけれど別れたくない、○○ちゃん（←私です）のいない人生は考えられないし考えたくない。結婚前のことは僕は許したから○○ちゃんと結婚したし過去は変えられないけれど未来は変えていける。一緒に未来に目を向けよう。でももし許せなくて○○ちゃんが日々辛くて仕方がないなら離婚したくないけど○○ちゃんの出した答えを受け止めるよ。全部受け止めるから。と言われました。別れるのは私も嫌なのに彼を責めてしまいます。自分のこと棚にあげておかしすぎるのはよくわかっているのに結局私は自己中心になっています。 最低なことは他にもあります。私は今まで苦手な人はいましたが上手く対応していて嫌いな人はいませんでした。又誰かが不幸になれば良いと思ったこともありませんし何かをされて仕返しを考える人や人の不幸を喜ぶ人が信じられませんでした。 でも彼の一度の過ちの件以来　その相手の女性に同じ気持ちを味わってもらいたい　その人さえいなければこんな苦しみは起きなかったのにと思うようになりました。その女性（Aさん）は私のことを知っていて（友人ではありません）彼が私のことに関して悩んでいることを親身になって聞き相談にのり私のことは決して悪く言わずかえって良い風に言い彼の気をひき自分から誘っていました。そのときに彼が罪悪感からそうならず（最後までしているのでこんなことはどうでもいいかもしれませんが）その女性は落ち込み○○君は私を選ぶことはないし○○さん（←私）のことが心の底では好きだからまだ付き合ってはいないけど先の見えない付き合いならしたくない　寂しさからくる傷のなめあいはしたくないと言われ（私は当時彼の話しに耳を傾けることは一切なく好き勝手しており彼の一度の過ちの件には全くきづいていませんでした。 この件で誰が一番大切なのかがわかり改心することができたので上手くいえませんがAさんに感謝しています。もし改心することがなければ彼を遅かれ早かれ失っていたと思うのです。感謝する存在なのに大嫌いなのです。感謝の気持ちで晴れやかなときとAさんのせいでと憎悪を感じる時もあります。でも冷静になって考えると全ての原因を作ったのは間違いなく私です。そこまでわかっているのにAさんに対して複雑な気持ちになり同じことが起きればいいと恐ろしいことを思う自分がいます。 （私に求めるときにそうなることは一度もなかったのでそれを知った時 少し嬉しかった自分もいます←邪悪な心ですよね...） 　 この件をきっかけに私は人の容姿を見下していることにも気づきました。Aさんはブスのくせによく自分から誘えたな　私は自分から誘ったこともないしまして相手がいるとわかっていて誘うなんてどういう人なのと思ったのです。（私は昔から容姿について褒められ変に自信があるんだと思います。変に高いプライドと...） でも裏を返せばそれだけAさんの内面が魅力的だったんですよね...グラマラスなところと。 　 こんな心を持った私を周囲の人達は凄く優しくて明るくて上品で綺麗で本当に良い子だと言います。つい最近も言われました。 優しく良い子ならこんな風に人のことを悪く考えたり彼に対してあんなに酷いことできませんよね。 　 自分の事なのに悪く思われるのが嫌で（ここで私の正体がわかるわけではないのに）友人の話ですがと投稿したことがあります。 それも最低ですよね。 このような気持ちを失くすには時間の問題でしょうか？時間ではなく自分自身の問題ですよね。 最低な自分と自覚しているのにこの思考回路から抜け出せません。 どうしたらよいでしょうか？ 20代後半にもなるのに自分自身でどうしたらよいかわかりません。 乱文お許し下さい。 ご意見宜しくお願いします。

よく見かける野良猫が３匹（母猫、子猫、成猫オス）いました。フォースで子猫に水をかけた人間を見てから気になるようになり、冬本番になる前に子猫を助けてあげたかったので保護して里親を探し今は里親の元で生活してます。母猫は避妊の手術をして元に戻す予定でしたが、母猫の里親に名乗りをあげてくれた方がいたので、手術後里親のもとにいきました。二匹はとても素敵な里親さんに恵まれ幸せになったのですが、成猫のオスが一匹だけノラのまま残ってしまったのことに、罪悪感を感じてます。餌を与えてる人に話してみたところ、この猫はあちこちフラフラしているから大丈夫と言ってました。私が見かけるときも、一匹でいたり、他のネコといたり。。母猫と子猫は一緒にいることが多かったのですが、この猫はおじさんが餌を与えてるときだけ親子と一緒にいて、あとはたま～にしか一緒にいるところを見かけなかった気がします。とはいえ、やはりかわいそうなことをしたかなと気になってしまってます。私は残酷なことをしたのでしょうか？ 私が飼ってあげたいのですが、住宅事情と病気の子がいて飼えません。

ディズニーはがきワールドオールスターズ決定版で、年賀状を作成中なのですが、はがきに印刷をすると余白ができてしまいます。 余白の消し方を知っている方がいらっしゃいましたら教えていただきたいです。 よろしくお願いします。 パソコンは　ＸＰ、プリンターはエプソン　ＰＭ－Ａ８２０です。

多分クラシックの曲だと思うのですが… どうしても曲名が思い出せません。。 ↓の様な感じの曲です。。 たらたた　たらたた　たったったー↑ たらたた　たらたた　たったったー↓ たらたた　たらたた　たったったー↑ たーたら　たーたら　たったったー↓ わかりづらくてすいません。 なんか料理番組とかでかかってそうな感じです。 はじめは「ガ」から始まっていたような… ほんとわかりづらいヒントですが… ピンときた方 お願いします！！

こんばんわ。 只今大急ぎで年賀状を作っているものです。 pictbearSEで年賀状を作っているのですが、 10cmX14.8cmで解消度を200dpiでやっているのですが、 サイズが大きくなります。 そのまま印刷したら、はみ出してしまうのでは… と心配しております。 このまま印刷してもOKか、 だめなら、対処法を教えていただければ うれしいです。