komorebi99 の回答履歴

#ファイルの読み込み $pathname="C://Perl/datafile/anovaCR.dat"; open MYFILE, "$pathname"; while (<MYFILE>) { chomp; @{"dat$."} = split /\t/; } $rows=$.; close MYFILE; といったように,コード中に既にデータが入力されたファイルを指定しているのですが,プログラムを実行した時に（Windowsなので）コマンドプロントの画面に 「ファイルの場所を指定してください。」 などと表示し,コマンドプロント上で C://Perl/datafile/anovaCR.dat と指定して読み込ませることは可能でしょうか。もちろん,可能は可能でしょうが「初心者には荷が重過ぎて無理」ではないかということです。手持ちの書籍には載っていませんし,webをどのように検索すればよいかもよく分かりません。

プログラミングPerlを読んでいます。 ページをめくる速度が、すっごい遅いのですが・・・ やっとこさ74ページまできました・・・ 今回の疑問は文字列中にコントロール文字を埋め込むと何ができるの？ というものです。 この疑問が浮かんだきっかけは このページでコントロール文字を表す正規表現が紹介されていたからです。 このような正規表現が用意されているということはコントロール文字を使用した文字列マッチを行うことを想定しているのだと思います。 すなわちコントロール文字を含んだ文字列を扱う場面が出てくるのだと思うのです。 このような文字列は、どのような場面で登場するのでしょうか。 また、どのような働きをするのでしょうか。 恐らく文字列を画面やプリンターへ出力するのと同時に、何か別の事柄を一緒に行うのではないかと予想しているのですが・・・ ちょっと気になったので質問しました。 どなたか教えてください。

どうもはじめまして。 どなたかperlの詳しい方、アドバイスをいただけないでしょうか。。 タイトルの通り配列の中から一致する文字列を検索して １行下の数値を取得する方法が知りたいです。 簡単に言えば、、 ・キーワード解析のページにアクセスし、結果HTMLソースを取得します 　※ここまではできてます ・取得したHTMLソースからキーワードの検索回数を抜き出したいのですが、下記のようなソースになっています。 ■HTMLソース 一部抜粋 ---- ＜タグ＞google で 「ほげ」 を検索した結果＜タグ＞ ＜タグ＞ 35,233回＜タグ＞ ＜タグ＞google で 「ほげ」 +αを検索した結果＜タグ＞ ＜タグ＞ 5,095回＜タグ＞ 　　　　　　　　・ 　　　　　　　　・ αの部分はアンド検索などで一緒に検索された文字を示す ---- 抜き出したいのは「ほげ」のみの検索回数 35,233 の値です。 この値をどのように取得してよいか、効率的な方法が思い浮かびません。 どなたかアドバイスいただけないでしょうか、よろしくお願い致します。 m(_ _ )m

いま、ＥｄｙとＳｕｉｃａを持ってますが、 定期入にSuica、財布にEdyを入れています。 今度PASMOが始まるのでPASMOも持とうと思います。 (JR→地下鉄→私鉄の３社利用なので定期は２枚になります) そうしたときにICカードを一緒のケースに入れていいのか 迷ってしまいます。３枚あるとどうしたらいいのかなと思って。 わかる方教えてください。

複数ＩＣカードの疑問 ＩＣＯＣＡとＰｉＴａＰａを二枚重ねて自動改札を通過してみました。 (1)エラー (2)ＩＣＯＣＡに入場記録 (3)ＰｉＴａＰａに入場記録 のどれかに必ずなります。 (4)ＩＣＯＣＡとＰｉＴａＰａの両方に入場記録 とはならないようです。 なぜでしょうか？ スーパーのレジでは複数の商品をのせたカゴを瞬時に 読めるものがあります。 根本的な違いがありそうですがわかりますか？

私7年間auを使っています。 今までauしか使ったことがないんですが、 今の機種を2年使っているので、この際Docomoにしてみようかとも最近思っています。 そこで、auからDocomoに変えた方がいらっしゃいましたら、 良かった点、逆に悪くなった点などを教えてください。 そしてお勧めの会社があったら教えてください。 それと、電話帳は移せても、データフォルダは移せないですよね？ 宜しくお願いします。

perlでCGIを作成しています。jcode.plを使っているのですが、 表示される日本の一部だけが文字化けしてしまいます。 何が原因なのでしょうか。 解決方法について教えてください。 ◆perl文中の記述 ”登録申請を行ってください。” 　↓ ◆ブラウザ上の出力結果 ”登録瑞ソを行ってください。” 参考：jcode.pl,v 2.6 1997/12/24 17:01:11

半導体って言う意味が解りません。具体的にどんなものなのか教えて下さい。よろしくお願いします。

XP Pro SP2です。管理者でアクセスしてます。 ドライブの共有が出来ません。（フォルダの共有は出来ます） エクスプローラ上でドライブアイコンを右クリックしても、メニューに「共有とセキュリティ」がありません。 フォルダアイコンを右クリックした場合には、「共有とセキュリティ」メニューがあって共有設定出来るのですが…。 ドライブのプロパティを開いても、「共有」タブは存在しません。 「簡易ファイルの共有を使用する」をオンにしてもオフにしても変わりませんでした。 何らかのサービスを止めてしまったのでしょうか？自分ではそんなことした記憶は全くないのですが。 ネット上を検索してみても、この件に関する情報は、見つけられませんでした。 ドライブ共有が出来ず、困っています。 どうかアドバイスよろしくお願いします。

ネットでイラストを見るのが趣味で、 お気に入りのイラストをプリントしたいのですが 今canonのmp5という複合機を使っているのですが イラストのドットが荒く色もぼやけてて綺麗じゃないんです もしお勧めのプリンタがあったら教えてください

お世話になります。 以下の症状なのですが、病名・原因等お分かりの方、ご教示願います。 １．３年程前から。 ２．１年に２、３回程度。 ３．左右の手の、親指・人差し指の４本の内、１、２本。 ４．指の付け根から、指先まで腫れる。 ５．痛みは、多少ある。 ６．第１．第２関節が曲がらない。 ７．１週間ほどで直る。 以前に、整形外科で診察（レントゲン）を受けましたが、原因は分からないと言われました。 以上、よろしくお願いいたします。

お世話になります。 以下の症状なのですが、病名・原因等お分かりの方、ご教示願います。 １．３年程前から。 ２．１年に２、３回程度。 ３．左右の手の、親指・人差し指の４本の内、１、２本。 ４．指の付け根から、指先まで腫れる。 ５．痛みは、多少ある。 ６．第１．第２関節が曲がらない。 ７．１週間ほどで直る。 以前に、整形外科で診察（レントゲン）を受けましたが、原因は分からないと言われました。 以上、よろしくお願いいたします。

会社に、複数のOfficeがあります。 誰がどの製品でインストールしているかが曖昧で、それを調べたいです。 知りたいことは以下の2点です。 どうかよろしくお願い致します。 １）ヘルプ-バージョン情報で、プロダクトIDが表示されますが、Officeをインストールせずにこれを確認する方法はありますか？ （CDの\FILES\SETUP\SETUPという設定ファイルを開くと、上の方に「ProductCode={…」とありますが、こちらですか？） ２）アップグレード版をインストールした際、IDは古いもののままで据え置かれるのですか？それともアップグレードしたものに置き換わるのでしょうか。

会社に、複数のOfficeがあります。 誰がどの製品でインストールしているかが曖昧で、それを調べたいです。 知りたいことは以下の2点です。 どうかよろしくお願い致します。 １）ヘルプ-バージョン情報で、プロダクトIDが表示されますが、Officeをインストールせずにこれを確認する方法はありますか？ （CDの\FILES\SETUP\SETUPという設定ファイルを開くと、上の方に「ProductCode={…」とありますが、こちらですか？） ２）アップグレード版をインストールした際、IDは古いもののままで据え置かれるのですか？それともアップグレードしたものに置き換わるのでしょうか。

会社に、複数のOfficeがあります。 誰がどの製品でインストールしているかが曖昧で、それを調べたいです。 知りたいことは以下の2点です。 どうかよろしくお願い致します。 １）ヘルプ-バージョン情報で、プロダクトIDが表示されますが、Officeをインストールせずにこれを確認する方法はありますか？ （CDの\FILES\SETUP\SETUPという設定ファイルを開くと、上の方に「ProductCode={…」とありますが、こちらですか？） ２）アップグレード版をインストールした際、IDは古いもののままで据え置かれるのですか？それともアップグレードしたものに置き換わるのでしょうか。

いつもお世話になります。 perlでPDFをアップロードするファイルを作成しております。作成したプログラムはファイルをアップロードした時に管理ファイルを作成しアップロードしたファイル名と任意に作成したファイルを記憶するものです。出力プログラムは別にありその記録ファイルを読み込んでHTMLに吐き出しを行います。仕様変更で各部門ごとに記録ファイルを作成する櫃用があるのですが方法がわかりません。何かよいアイディア、ツールのご紹介をお願いいたします。

gifcat.plを使ってカウンタを作ったのですが、表示すると左の桁から1個ずつ表示されてしまいます。 一度にすべての行を表示したいのですが、どうすれば良いのでしょうか。 無理なら、FlyかGDを使って画像を合成する方法を教えてください。 よろしくお願いします。

自分のサーバー内にあるファイルの最終更新日時は statを使って取得できるようですが、 http://から始まるほかのサーバーにあるファイルの 更新日時を取得するにはどうすればいいのでしょうか？ よろしくお願いします。

１）SJISで以下の２行を含むファイルを作成し、 　　sjis.txtという名前で保存します。 "ホツカイドウ" "北海道" ２）SJISで以下のスクリプトを作成します。 #=== one.pl === use encoding 'Shift_JIS'; use open IN => ":encoding(Shift_JIS)"; use open OUT => ":encoding(Shift_JIS)"; my $infile = 'sjis.txt'; my $outfile = 'sjis2.txt'; open(IN, "<$infile"); @lines = <IN>; close(IN); open(OU, ">$outfile"); print OU @lines; close(OU); ３）SJIJSで以下のスクリプトを作成します #=== two.pl === use encoding 'Shift_JIS'; use open IN => ":encoding(Shift_JIS)"; use open OUT => ":encoding(Shift_JIS)"; my $infile = 'sjis2.txt'; my $outfile = 'sjis3.txt'; open(IN, "<$infile"); @lines = <IN>; close(IN); open(OU, ">$outfile"); print @lines; close(OU); ４）one.pl を実行し、続いてtwo.plを実行すると 以下のエラーがコマンドプロンプトに表示されます。 #------------------------------------------- D:\zipcode\utf8mondai>two.pl Wide character in print at D:\zipcode\utf8mondai\two.pl line 14. "・趣セゑスカ・イ・・セ橸スウ" Wide character in print at D:\zipcode\utf8mondai\two.pl line 14. "蛹玲オキ驕・ これは何故なのでしょうか。 エラーメッセージは、printしようとしている 文字列にutf8フラグがついているという意味 らしいです。

下記ようなプログラムで、HTML 上のフィールド (AAA)が(100) で (BBB)が(200) の場合 (300) を (変数の$answer) に格納し、実行結果を Sendmail で送信する為、新しく生成された HTML 上のフィールド (CCC) に表示したいのですが、どこが間違っているのでしょうか？お手数ですがどなたか記述上、間違っている箇所をお教え頂けると有難いです。 ---------------------------------------------------------------- #!/usr/local/bin/perl #!/usr/local/bin/perl require "cgi-lib.pl"; &ReadParse(); print "Content-type: text/html\n\n"; print <<HTML_DOCUMENT; if ($in{'AAA'} eq "100" and $in{'BBB'} eq "200") { $answer = '300'; } <html> <head> <title>Web Design [ Estimate - Order ]</title> </head> <body> <form action="test_sendmail.cgi" method="post"> <input name="AAA" type="checkbox" id="AAA" value="100"> <input name="BBB" type="checkbox" id="BBB" value="200"> <input name="CCC" type="text" id="CCC" value="$answer" size="10"> </form> </body> </html> HTML_DOCUMENT