kuroizell の回答履歴

Perl 初心者です。　いい足し算ができず、困っています。my $Aの数字を足していくだけなのですが、 うまくいきません。　何が悪いのかわかる方教えてください。　よろしくお願いいたします。 Perlではsumをつかわないでしょうか？　下記は４と２と３なので、９になるはずなのですが。。。。 その１ my $A = 4,2,3; $B = (sum($A)); print "$B" その２ my $A = 4,2,3; $B = subsum($A); print "$B"

perlの出力結果を.txtにして出力しているのですが、出力先が.plのあるところ以外に指定することはできるのでしょうか？ <STDIN>でtxtデータを読み込んでいるのですが、例えば入力したtxtがCドライブのＡというフォルダにある場合Aのフォルダ内に出力結果を出し、WドライブのＢというフォルダのtxtを入力した場合はBのフォルダ内に出力結果を出したいです（入力したtxtと同じ場所に出力したい）。 わかる方がいたら教えてください、お願いします。m(_ _;m)

Perlのintについてですが、以下の3の計算結果が異なる理由を教えてください。 1：print 1080/1.08; 　→「1000」と表示される 2：print int 1080/1.08; 　→「1000」と表示される 3：print int(1080/1.08); 　→「999」と表示される Perlのバージョン：ActivePerl v5.14.2 OS：Windows XP

教えてください。 syslogdでyumでinstallやupdateをしたログファイルを見たいのですが、どちらのファイルを参照したら良いでしょうか？ yumでアクセスしたURLを知りたいです。 宜しくお願い致します。

OS(CentOS 6.2 / 64bit)にデフォルトでインストールされているPerl(version 5.10.1)を使って勉強しているのですが、参考書に記載されているメジャーなモジュールがインストールされてなく、困っています。 自分でインストールする必要があるのかと思い、モジュールのインストール方法を調べたところ、CPANというモジュールを使えば簡単にモジュールがインストールできると知ったのですが、このCPANモジュールも入っていない模様。 ではまずはCPANモジュールから手動でインストールしようかと思ったところ、CPANモジュールインストール時のMakefile.PLを実行すると、ExtUtilsというモジュールが無いと怒られてしまい実行できませんでした。 このような場合、通常よく使われるようなモジュールをまとめてインストールするような方法は無いのでしょうか。 ※ちなみに、@INCでは以下のディレクトリが登録されていました。 ・/usr/local/lib64/perl5 ・/usr/local/share/perl5 ・/usr/lib64/perl5/vender_perl ・/usr/share/perl5/vender_perl ・/usr/lib64/perl5 ・/usr/share/perl5

Cent OSかred hatでLinuxの練習を致したいのですが、 それ用に使えるパソコンがありません。 自作か格安パソコンで実現したいです。 単なる練習で、本格的にサーバーとして使うということでは当然ないです。 ですので、最低限のものがあればよいです。 http://www8.plala.or.jp/tame7/paatuerabi.html# マザーボードやＣＰＵ、ＨＤＤなどあれば自作のものができるということで価格どっとコムに激安のものが あったのですがどれとどれを購入するとうまく適合するかが分かりません。 どのようにすれば適合するかどうかが分かりますか？ http://kakaku.com/item/K0000347109/?lid=ksearch_kakakuitem_title てっとり早く価格どっとコムでこれとこれを買えと言ってくれても構いません。

コマンドプロンプトのＩＰｖ４アドレスと、 http://www.ugtop.com/spill.shtml の「現在接続している場所（現ＩＰ）」の数値が違うのですが、 どちらが正しいＩＰアドレスなのでしょうか？ また、コマンドプロンプトのＩＰｖ４アドレスか「現在接続している場所（現ＩＰ）」で、個人が特定されるのでしょうか？ ご回答よろしくお願いします。

Perlにおいて、「元号を判定させる」ようにしたく、if-elsif文章を書いてみたのですが、上手くいきません。 （そもそも起動してくれないです・・・文章も合っているかわからないのですが。。） 年号を入力させて、 (meizi) X nenと表示させたいのです。 あと、明治以前の数字を入れたら、エラーと出すようにする。 被っている年号、例えば1912年と入れたら、meizi45nen/taisyou1nen ともしたいのですが、これらはどう入れたらいいのか分からなかったです。 どこを直せばいいのか、一部でもいいので、教えていただけると嬉しいです。 chomp($year = <stdin>); if($year<=1912 and $year>=1868){ $A=$year-1867 print("meizi $A nen \n"); } elsif($year<=1926 and $year>=1912){ $B=$year-1911 print("taisyou $B nen \n"); } elsif($year<=1989 and $year>=1926){ $C=$year-1925 print("syouwa $C nen \n"); } elsif($year>=1989){ $D=$year-1988 print("heisei $D nen \n"); }

得意先のPCが時々フリーズし、原因を特定できずにいます。 環境： Windows Server 2008 Standard SP2 (32bit) Intel Xeon CPU X3430 @2.40GHz メモリ 4.00 GB 前回フリーズが発生したときに、タスクマネージャの 画像を保存して貰ったのですが、その数値が以下になります。 CPU使用率：36% 物理メモリ(MB) -- 合計：4086 -- キャッシュ済み：1163 -- 空きメモリ：1370 カーネル メモリ(MB) -- 合計：99 -- ページ：69 -- 非ページ：29 システム -- ハンドル：22476 -- スレッド：957 -- プロセス：79 -- 起動時間：28:24:07 -- ページファイル：1745M / 8347M メモリを食うようなソフトと、それぞれタスクマネージャで 見たときのメモリ使用量です。 PostgreSQL 8.4.3：40MB SQL Server 2005：900MB .NETで作成したシステム：平常時200MB、最大1.2GB 他のプロセスは1つあたり大きくても30M程度しか使用していないので、 まず疑問になるのが、DBやシステムが同時に忙しくなったとしても、 最大2.5GB＋他のプロセス(まず1GBはいかない)程度のメモリ使用量になり、 物理メモリの4GBには満たないのでは、と考えたのですが、間違っているでしょうか？ また、最大コミットサイズ(8347M)が物理メモリの4GBを超えているという事は 約4.3GBのスワップが発生したという事だと思いますが、 ここで気になる点として、PCの空き容量が、現状3GB未満になっています。 マイコンピュータで確認できる空き容量は、ページファイルの最大サイズを確保した 後のサイズであり、スワップ処理には関係ないのか、それとも空き容量が少ない事が フリーズ等の原因になる可能性があるのか、わかりません。 この情報で、フリーズを解決する為にどうすればよいか わかる方がいらっしゃいましたら、ご教示お願い致します。

入力ファイルには AAA␣aaa␣AaAa 改行 BBB␣bAb␣BbBb 改行 CCC␣Abc␣CcCc 改行 DDD␣.... というように文字列がスペースおきに３つ記載されていて最後は改行されている文が複数行ある場合、 文の２つ目のaaa、bAb、Abc…のみを配列に格納したい場合のプログラムを教えてください。

GNS3でIOSの勉強をしております。 長くて申し訳ない質問ですが、どなたかお付き合い頂けたらありがたいです。 以下のトポロジで IPsec over PPPoE を自分なりにコンフィグしてみました。 　　　loopback　1.1.1.1 　　　│ R１　f0/0　　　　192.168.12.1 　　　│ R２　f0/0　　　　192.168.12.2 　　　│ 　　　loopback　　2.2.2.2 『pppoeやIPsecなどを使ってMTUを標準値以外に変えてしまう機器においては フラグメントを避けるべくMTUとMSSを必須で設定しておくべき』 との意見をWEBで見たのでやってみようと思っているのですが適性値を決めかねています。どなたかアドバイスいただけませんでしょうか？もしくは上記MTUやMSSを設定すること自体もはや過去の話だ、などといったご意見もありますでしょうか？ （実務経験全く無し、完全に我流でWEBをさまよいながら勉強しております。） これまでにやってみたことは以下です。 (1)WEBで見つけた似たようなサンプルではMTU=1454, MSS=1356と 　　設定していた。 　　→MSSの設定根拠が明記されていなかったので自分で検討して 　　　　みようと思った。 (2)R1において ping 1.1.1.1 source 192.168.12.1 df-bit size 1500　が 　　最大だった。 　　→IOSのpingオプションのsizeはICMPヘッダを含むんだなとわ 　　　　かった。 (3)R1において 　　ping 192.168.12.2 source 192.168.12.1 df-bit size 1492 　　が最大だった。 　　→PPPoEカプセリングで8バイト付与されるんだなとわかった。 　　　　別途、『ヘッダサイズはFletsでは46(MTU=1454)バイト、 　　　　その他の通常PPPoEでは8バイト』という記事を発見し安心。 (4)R1において 　　ping 2.2.2.2 source 1.1.1.1 df-bit size 1422 　　が最大だった。 　　→暗号化方式によってヘッダサイズは変わるであろう。 　　　　ミリミリ計算はしていないが実際に1422しか通らないん 　　　　だからIPsecヘッダは 1492 - 1422 = 70バイトついて 　　　　いるんだろう。 　　→MTU=1422と設定すれば良いのかな？ (5)オプションなしTCPヘッダ＝２０バイト、オプションなしIPヘッ 　　ダ＝２０バイト、計４０バイトを引いてMSSを決めるセオリー 　　に従うと　MSS＝１３８２バイト　で良いのかな？ 　　→前出のWEBで見つけたサンプルでは 　　　　MTU（1454） － MSS（1356） ＝ ９８バイトも 　　　　マージンを取っているが何故だろう？ どなたか宜しくお願い致します。

perl cgiでまだまだわからないことだらけなので、まだ質問します・・・ print $q->start_html(-title=>"画面", -BGCOLOR=>'#ffffff'), $q->header(-charset=>"Shift_JIS"),# Content-type: text/htmlを書き出します $q->p('<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#ff00ff">'), $q->p('<FONT COLOR="red">aaa</FONT>'), $q->hr, $q->p('<form method="post" action="ppp.cgi">'), $q->p('<FONT color="blue">【a】</FONT>'), $q->p('<INPUT TYPE="text" NAME="mmm" VALUE="" SIZE="25" MAXLENGTH="25">'), $q->p('<FONT color="blue">【b】</FONT>'), $q->p('<INPUT TYPE="text" NAME="nnn" VALUE="" SIZE="25" MAXLENGTH="25">' $q->p('<FONT color="blue">【c】</FONT>'), $q->p('<INPUT TYPE="text" NAME="ttt" VALUE="" SIZE="25" MAXLENGTH="25">' $q->p('<FONT color="blue">【d】</FONT>' $q->p('<select name="question" size="1" multiple="multiple">' $q->p('<option selected="selected" value="aaa">aaa？</option>'), $q->p('<option selected="selected" value="bbb">bbb</option>'), $q->p('<option selected="selected" value="ccc">ccc</option>'), $q->p('</select>'), $q->p('<FONT color="blue">【e】</FONT>'), $q->p('<INPUT TYPE="text" NAME="ans" VALUE="" SIZE="25" MAXLENGTH="25">'), $q->p('<FONT color="blue">【f】</FONT>'), $q->p('<textarea name="freeans" rows="5" cols="30" value="$initText" wrap="hard">$initText</textarea>'), #$q->p('<textarea name="freeans" rows="5" cols="30" value=$initText wrap="hard">あいうえお </textarea>'), $q->p('<input type=submit value="送信">'), $q->p('</form>'),# 送信データここまで $q->end_html; としているのですが、表示のほうが 【a】 テキストボックス入力欄 【b】 テキストボックス入力欄 【c】 テキストボックス入力欄 ・・・ と、テキストボックス入力欄の上下に改行が入っていしまいます。 消す方法はございますか？pタグがダメなんでしょうか？ それとContent-Type: text/html; charset=Shift_JIS が最上部に表示されてしまいます。 　　　 　　　$q->header(-charset=>"Shift_JIS"),# Content-type: text/htmlを書き出します の行が原因だということはわかるのですが・・・・変更方法がわからないです。 教えて頂きたいです。よろしくお願いします。

Calendar::Japanese::Holiday を利用して以下の様な祝日判定のルーチンをテストしているのですが、なぜか#(1)あるいは#(2)のようにサブルーチン内部で値を明示してやらないと正常動作（祝日判定）しません。 そこでCalendar::Japanese::HolidayのisHolidayルーチンの方に値が正常に渡っていないのかと考え、#(3)のようなチェック用のソースを組み入れてみたりもしたのですが、$year, $mon, $dayそれぞれ正常に値は渡っていました。 どのようにすれば正常動作するようになるのでしょうか？ my %spdate = (#すでに$y、$m、$dにはそれぞれ2012、05、05と値が入っています。 'year' =>$y, 'month' =>$m, 'day' =>$d, ); $spdate = \%spdate; &check_date($spdate); sub &check_date{ my($spdate) = @_; #($spdate->{year},$spdate->{month},$spdate->{day})=(2012,05,05); #(1) #my $jpholiday = isHoliday(2012,05,05); #(2) my $jpholiday = isHoliday($spdate->{year},$spdate->{month},$spdate->{day}); if($jpholiday){ push(@error, 'It is a holidays today'); } }#end #Calendar::Japanese::Holiday #http://search.cpan.org/~kztomita/Calendar-Japanese-Holiday-0.03/ sub isHoliday { my ($year, $mon, $day, $furikae) = @_; #test #(3) print "Content-type: text/html; charset=utf8\n\n"; print "$year"; print "$mon"; print "$day"; my $holidays; if ($year == $Cache_holidays_Year && $mon == $Cache_holidays_Month) { $holidays = $Cache_holidays; # From Cache } else { $holidays = getHolidays($year, $mon, 1); return if not defined $holidays; # Cache $Cache_holidays = $holidays; $Cache_holidays_Year = $year; $Cache_holidays_Month = $mon; } return if !exists $holidays->{$day}; return if (!$furikae && $holidays->{$day} eq $FurikaeStr); return $holidays->{$day}; }#end

Calendar::Japanese::Holiday を利用して以下の様な祝日判定のルーチンをテストしているのですが、なぜか#(1)あるいは#(2)のようにサブルーチン内部で値を明示してやらないと正常動作（祝日判定）しません。 そこでCalendar::Japanese::HolidayのisHolidayルーチンの方に値が正常に渡っていないのかと考え、#(3)のようなチェック用のソースを組み入れてみたりもしたのですが、$year, $mon, $dayそれぞれ正常に値は渡っていました。 どのようにすれば正常動作するようになるのでしょうか？ my %spdate = (#すでに$y、$m、$dにはそれぞれ2012、05、05と値が入っています。 'year' =>$y, 'month' =>$m, 'day' =>$d, ); $spdate = \%spdate; &check_date($spdate); sub &check_date{ my($spdate) = @_; #($spdate->{year},$spdate->{month},$spdate->{day})=(2012,05,05); #(1) #my $jpholiday = isHoliday(2012,05,05); #(2) my $jpholiday = isHoliday($spdate->{year},$spdate->{month},$spdate->{day}); if($jpholiday){ push(@error, 'It is a holidays today'); } }#end #Calendar::Japanese::Holiday #http://search.cpan.org/~kztomita/Calendar-Japanese-Holiday-0.03/ sub isHoliday { my ($year, $mon, $day, $furikae) = @_; #test #(3) print "Content-type: text/html; charset=utf8\n\n"; print "$year"; print "$mon"; print "$day"; my $holidays; if ($year == $Cache_holidays_Year && $mon == $Cache_holidays_Month) { $holidays = $Cache_holidays; # From Cache } else { $holidays = getHolidays($year, $mon, 1); return if not defined $holidays; # Cache $Cache_holidays = $holidays; $Cache_holidays_Year = $year; $Cache_holidays_Month = $mon; } return if !exists $holidays->{$day}; return if (!$furikae && $holidays->{$day} eq $FurikaeStr); return $holidays->{$day}; }#end

if ($pattern eq 'p2') { foreach $key (sort{ ($re_key{$b} <=> $re_key{$a}) || $b cmp $a } keys %re_key) { } else { foreach $key (sort{ ($b <=> $a) || $b cmp $a } keys %re_key) { } $pattern の選択で検索の種類を切り替えたいのですが、上のように指定するとコンパイルエラーになってしまいます。 foreach 文以降の処理は全く一緒なので、foreach 文の行だけ変更したいのですが、どうすれば良いですか？

はじめまして 初歩的な質問で恐縮ですが、Linux上で他サーバーの状態を見て、他サーバーが落ちていたら（シャットダウン済）、自分自身のサーバーもシャットダウンする、落ちていなかったら、シャットダウンしないという、shellプログラムを考えているのですが、どのように作ればよいかご教示いただけましたら幸いです よろしくお願いいたします

ファイル完全削除ソフト(Eraser)をダウンロードしました。 Erase Schedule を利用してグートマン方式で、 Unused disk spase でローカルディスクCを選択しています。 これで設定は問題なくて削除済みデータなどが完全削除できて復元不可能になりますか？ このサイトを参考にしたのですが・・・ http://www.gigafree.net/utility/delete/eraser.html ドライブ内の未使用領域を抹消したい場合は、「Unused space on drive」 にチェックを入れ、 とあるんですけどUnused space on driveが見つかりません。 ※OSはWindows7です。 ※EraserはEraser 6.0.9.2343です。

会社の資料を自宅PCのゴミ箱から削除してしまいました。 ファイル完全削除ソフト(Prevent Restore)などで、回復不可能な状態にすれば大丈夫でしょうか？ また、第三者にデータを盗まれてしまうこともありえますか？ 最悪の場合は、損害賠償などを受ける可能性もありますよね？ ※会社は先月退職しております。 ※OSは、Windowsで再インストールしました。 情けないですが毎日ビクビクしています。 アドバイスをいただきたいのでよろしくお願いします。

電源を入れるとデーターのバックアップをすぐにしてハードデイスクドライブを置き換えないと危険。 プライマリー、マスター、ハード、デイスク　S,M,A,R,T　ステータス　悪い。 の表示が出て　F1　を押して、イーマシーンの画面を出さねばなりません。 どうしたらいいのか教えて下さい。

リレーショナルデータベースを、全くパソコン初心者の方に説明する必要が出てきました・・・。 なるべく簡潔で、わかりやすい例を探しているのですが わかりません。どうしても複雑になってしまうのです。 リレーショナルデータベースを全くパソコン初心者にわかってもらう いい例えをお持ちの方が、いらっしゃいましたらご教授お願いします。 表を使用するものが、リレーショナルデータベースです。といっているのですが。 いまいちのようで・・・。