hara_peko の回答履歴

絵がキレイなギャグ漫画を教えてください。

題名のとおりなんですが。 Perlで１～１０まで全部足すのに、 1番簡単に書いたらどんな感じなるでしょうか？ (一回足すごとに結果は表示） 私は全然浮かばず、 $a = 1 print "$a\n" $b = $a + 1 print "$b\n" $c = $b +2 " …続く こんな感じのお粗末なものを書きました。 whileやforを使えばもっと簡単に書けると思いますが、 どなたかご存知でしたら教えてください。

タイトル通りなのですが、perlスクリプト内でシェルコマンドを実行させる方法が分からなく、困っています。 実行したいシェルコマンドはＵＮＩＸのcrontab なのですが・・。 また、perlスクリプト内以外でシェルコマンドを実行する方法はあるのでしょうか？？ どなたか分かる方いらっしゃいましたらご教授いただけると幸いです。よろしくお願いします。

Perl のコマンドラインハッシュで １．引数指定　perl -e "print 'Hello world!!';" ２．標準入力読み込み　echo print "Hello World!!\n" と言うのがありますが違いがよくわかりません。 引数という言葉の意味もよくわかりません。 初歩的な質問ですがよろしくお願いします。

Perl のコマンドラインハッシュで １．引数指定　perl -e "print 'Hello world!!';" ２．標準入力読み込み　echo print "Hello World!!\n" と言うのがありますが違いがよくわかりません。 引数という言葉の意味もよくわかりません。 初歩的な質問ですがよろしくお願いします。

既存のDBMファイルをオープンする処理で、 以下のような警告メッセージが出るのですが、 何が悪いのか、見当がつきません。 すみませんが、分かる方がいらっしゃいましたら、教えてください。 どの値が、なぜ、初期化されていないのでしょうか? Use of uninitialized value in dbmopen at b.pl line 4. Use of uninitialized value in null operation at b.pl line 4. オープン処理をするスクリプトは以下です。 #!/usr/bin/perl -w use strict; my %all = (); dbmopen %all, "all", undef or die "DBM open error"; foreach (keys %all) { print $_, "?t", $all{$_}, "?n"; } dbmclose %all; exit;

演劇がテーマ、もしくはモチーフに使われてる漫画かライトノベルが今、ものすごく読みたくなって探しています。 演劇の表現方法は、ＴＶドラマでも舞台でもかまいません。 出来れば、作中劇の分量は大目の方がうれしいです。 ちなみに、「ガラスの仮面」「スキップビート！」は好んで読んでます。 他に何かオススメがあればおしえてください。

以下のスクリプトについて質問があります。 $_ = $mail; m/(^[a-zA-Z0-9\.\_\-]+\@[a-zA-Z0-9\.\_\-]+)/g; $mail = $1; if($in{mail} ne $mail){ &PrintError('メールアドレスは、半角文字で書いてください。'); } このスクリプトなのですが、$mailの値を$_に代入し、$_の値をm/・・・ の部分で半角チェックしているのは分かるのですが、半角チェックされた後どうなっているのかがわかりません。また、$1 とはどうゆう意味なのでしょうか？？ifより後の部分は分かっています。 また、 open(IN, "<database.dat"); while　(<IN>)　{ print; } close(IN); の全体的な説明をお願いしたいです。ファイルハンドルという概念とopen,close両関数は分かっています。 最後に print qq(Content-type: text/html; charset=Shift_JIS\n\n); とあった場合の qq の意味が分かりません。 分かる方いらっしゃいましたらご教授くださると幸いです。よろしくお願いします。

こんばんは、皆さん。 ２次元配列がわかりやすく説明されているおすすめの本はありませんか？ リファレンスも怪しいので、そこから丁寧に解説されていて、 ２次元配列を中心に、多次元配列にも触れられている本を探しています。 私の技術レベルを持っている本で表すと以下のとおりです。 ・Perlの絵本（一通り理解しました） ・技術評論社のすぐわかるPerl（一通り理解しました） ・ASCII社のPerl/CGIスクリプト入門（CGIの前までは理解しました） これらの本には２次元配列については触れられておらず、 まだ自分には早いのかとも思いましたが、必要に迫られています。 アマゾンの評価は、具体的にこの項目についてはどうだといった情報が載っていないため、参考にできませんでした。 権威ある分厚い本は、持っている本を完全に理解してからにしようと思っています。 Perlの絵本くらいわかりやすく図解されているとありがたいです。 よろしくお願いします。

抱腹絶倒のギャグ漫画、知ってますか？ 読んで大笑いした作品、腹筋がちぎれそうになった作品、とにかく面白いギャグ漫画あったら、教えて下さい。 ちなみに私は、「浦安」「地獄甲子園」「稲中」ぐらいしか思いつきません。

Ｃ言語とperlを独学し、1000行程度のperlのコードを書けるようになりました。 ですが自分の書いたコードは 似たようなサブルーチンが何回も出てきたり、後から付け足したコードをあちこちにツギハギしたり、いわゆるグローバル変数を多用したりと、自分で見てもあまりセンスが感じられません。 そのため見た目に分かりづらく、メンテナンスもしにくくなってしまっています。 他の方が書かれたコードをダウンロードして見てみたりしていますが、なかなか上達できません。 センスのいいコードを書くには、個々の関数の働きがどうこうよりも、もっとマクロな視点で全体の構造やメンテナンス性に注目すべきだと思うのですが、この観点でプログラミングを解説したサイト、あるいは書籍をご紹介頂けないでしょうか。 よろしくお願いします。

人様の作ったスクリプトの解析をしています。 下記のスクリプトについて質問があります。 my $now = zikoku(); print "$now です。\n"; sub zikoku { my ($sec, $min, $hour) = (localtime)[0..2]; if (wantarray) { return ($hour, $min, $sec); } else { return sprintf "%02d:%02d:%02d", $hour, $min, $sec; } } まず、zikoku(); の部分なのですが、現在自分はサブルーチンは＆で呼び出すものとしか認識しておらず、ここではどのような用法で使われているのかがわかりません。();は何なのでしょうか？？ また、localtime関数の次の[0..2]の意味が分かりません。 そして、wantarray関数自体の働きは一応理解しているのですが、ここではwantarray関数にどのような意味があるのかが分かりません。 分かる方いらっしゃいましたらご教授頂けると幸いです。よろしくお願いします。

人様の作ったスクリプトの解析をしています。 下記のスクリプトについて質問があります。 my $now = zikoku(); print "$now です。\n"; sub zikoku { my ($sec, $min, $hour) = (localtime)[0..2]; if (wantarray) { return ($hour, $min, $sec); } else { return sprintf "%02d:%02d:%02d", $hour, $min, $sec; } } まず、zikoku(); の部分なのですが、現在自分はサブルーチンは＆で呼び出すものとしか認識しておらず、ここではどのような用法で使われているのかがわかりません。();は何なのでしょうか？？ また、localtime関数の次の[0..2]の意味が分かりません。 そして、wantarray関数自体の働きは一応理解しているのですが、ここではwantarray関数にどのような意味があるのかが分かりません。 分かる方いらっしゃいましたらご教授頂けると幸いです。よろしくお願いします。

人様の作ったスクリプトの解析をしています。 下記のスクリプトについて質問があります。 my $now = zikoku(); print "$now です。\n"; sub zikoku { my ($sec, $min, $hour) = (localtime)[0..2]; if (wantarray) { return ($hour, $min, $sec); } else { return sprintf "%02d:%02d:%02d", $hour, $min, $sec; } } まず、zikoku(); の部分なのですが、現在自分はサブルーチンは＆で呼び出すものとしか認識しておらず、ここではどのような用法で使われているのかがわかりません。();は何なのでしょうか？？ また、localtime関数の次の[0..2]の意味が分かりません。 そして、wantarray関数自体の働きは一応理解しているのですが、ここではwantarray関数にどのような意味があるのかが分かりません。 分かる方いらっしゃいましたらご教授頂けると幸いです。よろしくお願いします。

人様の作ったスクリプトの解析をしています。 下記のスクリプトについて質問があります。 my $now = zikoku(); print "$now です。\n"; sub zikoku { my ($sec, $min, $hour) = (localtime)[0..2]; if (wantarray) { return ($hour, $min, $sec); } else { return sprintf "%02d:%02d:%02d", $hour, $min, $sec; } } まず、zikoku(); の部分なのですが、現在自分はサブルーチンは＆で呼び出すものとしか認識しておらず、ここではどのような用法で使われているのかがわかりません。();は何なのでしょうか？？ また、localtime関数の次の[0..2]の意味が分かりません。 そして、wantarray関数自体の働きは一応理解しているのですが、ここではwantarray関数にどのような意味があるのかが分かりません。 分かる方いらっしゃいましたらご教授頂けると幸いです。よろしくお願いします。

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？

ついこの間正規表現のことで質問させていただいたものです　なんとか問題は解決しました それとは別にソート関連での質問があります 正規表現の前にソートについて質問してご回答を頂いてからそれを参考に試してみました http://oshiete1.goo.ne.jp/kotaeru.php3?q=1882190 です push　で@tmpの内容を （$score,$filename,$title,$sentenceの順番に） 3.5 abc.txt あいうえお　aaaaa 4.6 def.txt かきくけこ　bbbbb 2.8 ghi.txt さしすせそ ccccc 5.1 jkl.txt たちつてと　ddddd という風にしました このリストを @tmp = map {$_->[0]} sort {$a->[0] <=> $b->[0]} map {[$_, split /<>/]}@tmp; としたんですが結果は abc.txt あいうえお　aaaaa def.txt かきくけこ　bbbbb ghi.txt さしすせそ ccccc jkl.txt たちつてと　ddddd 3.5 4.6 2.8 5.1 というふうになってしまいます これを スコア順に 5.1 jkl.txt たちつてと　ddddd 4.6 def.txt かきくけこ　bbbbb 3.5 abc.txt あいうえお　aaaaa 2.8 ghi.txt さしすせそ ccccc としたいのですがうえのソースでは何がいけないんでしょうか？？