diszo の回答履歴

下記のプログラムが終了した時点でのj の値を示しなさい。 リストの初期値 L[1] 35 L[2] 10 L[3] 24 L[4] 22 L[5] 28 L[6] 14 L[7] 30 L[8] 8 i = 1; j = 8; sv = 22; while ( i <= j ) { while ( L[ i ] < sv ) i = i + 1; while ( L[ j ] > sv ) j = j - 1; if ( i <= j ) { temp = L[ i ] ; L[ i ] = L[ j ] ; L[ j ] = temp; i = i +1; j = j - 1; } } 回答を教えてください！できれば方法も！ 初期値は横一列に並んでましたが、横にしたら文章がずれてしまうので、縦一列にしました。

お世話になります。 次のような文字列から「81.59」を数字として取り出したいのですが Perlを始めたばかりで途方に暮れています。 <td bgcolor="#c7c7c7">81.59円</td> 上記から81.59を数字として取り出す方法を教えて頂けませんでしょうか。

お世話になります。 次のような文字列から「81.59」を数字として取り出したいのですが Perlを始めたばかりで途方に暮れています。 <td bgcolor="#c7c7c7">81.59円</td> 上記から81.59を数字として取り出す方法を教えて頂けませんでしょうか。

perlでhtmlを解析して、ほしい情報を抽出したいのですが、 タグで囲まれたテキスト情報を抽出できるものは多くありますが タグの中の情報を取得できるモジュールや方法はありますか？ たとえば　html内の　 <a href="******" onclick="return opendetail(******);"> のなかの********を抽出をしたいです。

以下「占いサイトを作ろう」をまねしてサイト作成中ですが、 項目３のところでつまずきました。 http://dcs-nagoya.com/php/170/ １、MySQL と２、html 作成まではできたのですが、 ３、生年月日を受け取るrcv_post.phpを作成。がどうしてもできません。 ネットで調べてPHPスクリプトをつくって何度も試しましたが、 全く上手くいきません。MySQLのエラーが表示されます。 検索結果に　日を足して（60超ならマイナスする）計算まで設定したいのですが、 どなたかご教授お願い致します。 ●１、２はサイトの記載どおり、ロリポップを使用 ●PHPはバージョン5.2

初めて質問させていただきます。 当方、macのテキストエディットという機能を使って webページを作成していた者なのですが、ついさっきまで 開いて編集を出来ていた書類が、閉じて、また開いたとたんに 「書類“　　　”を開くことができませんでした。テキストエンコーディング 日本語（Mac OS） には対応していません。 このファイルは、別のテキストエンコーディングで保存されているか、テキストファイルでない可能性があります。」 という注意がでるだけで、まったく開けず 編集できなくなってしまいました。 注意書きを読んでも、心当たりがなく、大変困っています。 ちなみに、webで見るときちんと表示されるので テキストエディットで開けないだけで、他では表示はされます。 誰か助けてください。

以下「占いサイトを作ろう」をまねしてサイト作成中ですが、 項目３のところでつまずきました。 http://dcs-nagoya.com/php/170/ １、MySQL と２、html 作成まではできたのですが、 ３、生年月日を受け取るrcv_post.phpを作成。がどうしてもできません。 ネットで調べてPHPスクリプトをつくって何度も試しましたが、 全く上手くいきません。MySQLのエラーが表示されます。 検索結果に　日を足して（60超ならマイナスする）計算まで設定したいのですが、 どなたかご教授お願い致します。 ●１、２はサイトの記載どおり、ロリポップを使用 ●PHPはバージョン5.2

以下「占いサイトを作ろう」をまねしてサイト作成中ですが、 項目３のところでつまずきました。 http://dcs-nagoya.com/php/170/ １、MySQL と２、html 作成まではできたのですが、 ３、生年月日を受け取るrcv_post.phpを作成。がどうしてもできません。 ネットで調べてPHPスクリプトをつくって何度も試しましたが、 全く上手くいきません。MySQLのエラーが表示されます。 検索結果に　日を足して（60超ならマイナスする）計算まで設定したいのですが、 どなたかご教授お願い致します。 ●１、２はサイトの記載どおり、ロリポップを使用 ●PHPはバージョン5.2

お世話になります。 現在、perlの勉強中です。 状況は　mac osx 10.6.6です。 使用参考書は「perl言語プログラミングレッスン[入門編]」です。 CGIは関係なしで行っております。 open関数について参考書を読みながら、 勉強をしているのですが、openでファイルをオープンするときについてなのですが、 参考書上では、「関数openは、指定されたファイル名を持つファイルをハードディスクから探し出し、オープンしようと試みます」と言う説明があるのですが、 今現在、試している文例では、特定の場所にファイルがあるときでないと、 オープンしてくれません。 文例は [test.pl] use strict; use warnings; my $filename = 'file.txt'; open(FILE, $filename) or die "$filename: $!"; while (my $line = <FILE>){ $line =~ s/ /_/g; print $line; } close(FILE); という形で、ファイルの " " (スペース)を抜き出して "_" （アンダースコア）に置き換えるという設問です。 ただ、現況は　　　　　　　　　　　　　　　　　 /Users/(myname)/Documents/test/test.pl　＃(myname)は私の名前のフォルダです。 にあるコードをターミナル上で実行すると、 /Users/(myname)/file.txt に配置しているときしか、読み込んでくれません。 そこから、ファイルを移動させてしまうと、 読み込んでくれないのです。 そこで、ご質問ですが、 １ 「関数openは、指定されたファイル名を持つファイルをハードディスクから探し出し、オープンしようと試みます」 と参考書に記載がありましたが、実際には探し出しはしてくれないのでしょうか？ それとも、自分のパソコン、コードに問題があるのでしょうか？ ２ 自分が指定した場所にあるファイルをオープンするには どのようにすればよいでしょうか？ ターミナルで指示するのか、それともコードに加えるべきか、 ご指示くださいませ。 また、詳しい方がおられましたら、 お答えいただければと思います。 それでは失礼します。

Perl初心者です。レンタールサーバでｍｙｓｑlからデータを取得して表示するプログラムを作りたいのですインターネットで捜したのですがよく分かりませんでした。申し訳ありませんが駄目出しでも結構ですので直すポイントになるようなアドバイス、お願い致します。 #!/usr/bin/perl #変数宣言 print "Content-type: text/html;\n\n"; use DBI; $ds = 'DBI:mysql:XXXXXXXXXXX:localhost'; $user = 'XXXXXXXXXX'; $pass = 'XXXXXXXXXX'; print "test<br>\n"; $db = DBI->connect($ds, $user, $pass) || die "Got error $DBI::errstr when connecting to $ds\n"; print "test<br>\n"; #$sth = $db->prepare("SELECT mei FROM name"); #$sth->execute; # バス経路票の中身を表示したかったたのですが出来ませんでした。 $sth= $db->prepare(qq(SELECT * FROM 'バス経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 経路票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '駅バス停関係票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # バス経路票の中身を表示したかったたのですが出来ませんでした。 print "@basskeiro<br>\n"; # 経路票の中身を表示したかったたのですが出来ませんでした。 print "@keiro<br>\n"; # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 print "@bassteikeiro<br>\n"; print "test<br>\n"; $rc = $sth->finish; $rc = $db->disconnect; exit;

Perl初心者です。レンタールサーバでｍｙｓｑlからデータを取得して表示するプログラムを作りたいのですインターネットで捜したのですがよく分かりませんでした。申し訳ありませんが駄目出しでも結構ですので直すポイントになるようなアドバイス、お願い致します。 #!/usr/bin/perl #変数宣言 print "Content-type: text/html;\n\n"; use DBI; $ds = 'DBI:mysql:XXXXXXXXXXX:localhost'; $user = 'XXXXXXXXXX'; $pass = 'XXXXXXXXXX'; print "test<br>\n"; $db = DBI->connect($ds, $user, $pass) || die "Got error $DBI::errstr when connecting to $ds\n"; print "test<br>\n"; #$sth = $db->prepare("SELECT mei FROM name"); #$sth->execute; # バス経路票の中身を表示したかったたのですが出来ませんでした。 $sth= $db->prepare(qq(SELECT * FROM 'バス経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 経路票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '経路票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 $sth = $db->prepare(qq(SELECT * FROM '駅バス停関係票')); $sth->execute; while(@row = $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); } # バス経路票の中身を表示したかったたのですが出来ませんでした。 print "@basskeiro<br>\n"; # 経路票の中身を表示したかったたのですが出来ませんでした。 print "@keiro<br>\n"; # 駅バス停関係票の中身を表示したかったたのですが出来ませんでした。 print "@bassteikeiro<br>\n"; print "test<br>\n"; $rc = $sth->finish; $rc = $db->disconnect; exit;

macで独学でperlを勉強しています。 私の状況としては、 macを使って２ヶ月。 macbookair の　mac os x の　バージョン10.6.6　です。 windowsは５年くらい使っていましたが 映像編集とかネットサーフィンくらいにしか使っていませんでした。 macを買ってからは、 htmlはだいたい使えるようになった。 perlというより、プログラムは初めて勉強する。周囲にプログラム経験者はいない。 という状況です。 perlの勉強を開始して、１週間程、 地道に教科書を勉強して、localhost上でアクセスカウンタは実行できる。 まできました。 ただ、本来であれば作成の環境設定の段階で行うapacheの設定が理解しがたく、 設定を行っていませんでしたので、 フォームをhtmlに送るという段階で躓いてしまいました。 教科書では、ターミナルでapacheの設定を行うとの記載があったのですが、 調べて、Finder上の移動→/etc で隠しファイルを見つけて、 httpd.confを開くまでなんとか、辿り着きました。 ただ、この後、どのように設定を変えればいいのかが、わかりません。 いろんなサイトを見ましたが、 それぞれ書いてあることや記述日が異なり、 また、中級者以上向けに記載のあることがほとんどです。 大変お手数ですが、 この後どのような設定を行えばいいのでしょうか。 ご存知の方がおられればお教えください。

<a href="" target="_blank"><img src="" alt="" border="0" ▲▲▲/><br /></a><img src="" width="1" height="1" border="0" alt="" /> 上記のタグでの質問なのですが、style="float:left;"を▲▲▲の部分に挿入する場合一番簡単に出来るやり方などありますでしょうか？ 2000近く商品数があるので手直しだと時間が掛かりすぎるので出来れば一括に挿入するやりかた ぜひご教授頂けませんでしょうか？よろしくお願いします。

独学でmacでパールを勉強しています。 始めてからまだ１週間くらい。 教科書みながら、print命令でファイルハンドルに指示を出してるのですが、 書き込めはできるのですが、 ファイルが無い場合、 新規に自動でファイルが作成されるはずとの記載があったのですが、 何故か、自動でファイルが生成されません。 調べても、設定が必要等言われてますが、 mac自体も初心者でほとんどわかりません。 どのような設定にすればいいのでしょうか？ また、ソースに何か悪い所があるのでしょうか？ お助けください。 下記は実験用に作ったソースですが、 作動もしてるのですが、　 新規に自動でファイルが作成されるはず が 何故か作成されません。 ちなみに　localhost上で動かしてます。 #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>test</TITLE></HEAD>\n"; print " <BODY>\n"; print "<H1>test</H1><HR>\n"; open ( FH ,">tukuruzo.txt"); print FH "tukuruzo"; close ( FH ); print "</BODY>\n"; print "</HTML>\n"; __END__

CANDY CGI様が公開しているRSSリーダーの改造の仕方を教えてください。 http://www.candy-cgi.com/perl/RSS_reader_Type1.html ４１行目にある『読み込むRSSのURL』の部分が @url = (); このようになっているのですが、 これを外部ファイル（list.txtなど）に書き込むことで読み込むRSSを 設定できるようにならないでしょうか？ 出来たら、URLを改行だけで並べたいです。 詳しい方、よろしくお願いいたします

色々調べましたが、どうしても分からなかった為質問させて頂きます。 http://cgikon.com/search/detail.php3?cgi_id=308 こちらのフリーＣＧＩをお借りして、アンケートを作成することになりました。 質問は、ほぼラジオボタンによる３択です。 デフォルトだと、ラジオボタンは横並びになっているのですが 質問内容が長過ぎるため、見づらくなってしまいます。 その為、ラジオボタンを添付画像のように改行したいと思っております。 おそらく、下記のどこかを変更すればいいとは思うのですが 分かりませんでした…。 # アンケート質問の表示 my($number) = 0; foreach (@question) { ($qtype,$qname,@column) = split(/\t/); next if($qname eq ""); $number++; $key = "Q".$number; print qq! <TR> <TD NOWRAP VALIGN="top"><B>【質問$number】</B></TD> <TD>$qname</TD> </TR> <TR> <TD>　</TD> <TD> !; if($qtype =~ /LISTBOX/i) { print qq!<SELECT NAME="$key" SIZE=1>!; foreach (@column) { next if(!$_); print qq!<OPTION VALUE="$_">$_!; } print qq!</SELECT>!; } elsif($qtype =~ /RADIO/i) { foreach (@column) { next if(!$_); print qq!<INPUT TYPE="radio" NAME="$key" VALUE="$_">$_!; } } elsif($qtype =~ /TEXTAREA/i) { print qq!<TEXTAREA NAME="$key" COLS=50 ROWS=5></TEXTAREA>!; } elsif($qtype =~ /TEXTBOX/i) { print qq!<INPUT TYPE="text" NAME="$key" VALUE="" SIZE=50>!; } print qq! </TD> </TR> !; } 配布元のサイト様が今月末で閉鎖される為 それに伴い、個別でカスタマイズなどの依頼対応も出来ない状態です。 申し訳ございませんが、どなたか詳しい方 ご教授頂ければ幸いです。どうか宜しくお願い致します

この問題の解き方を教えてくださいっ！ 　 　ＱあるときＡくんとＢくんの２人がそれぞれ、Ｐ市からＱ市へ車で向かった。Ａくんは１般道を時速５０キロ、高速道を時速１００キロで走り、Ｂくんは高速道で５キロ走るごとにＡくんに１分遅れたという。 Ｐ市からＱ市に行くのにＡくんは高速道４５分っを含む２時間３０分かかり、Ｂくんは同じルートで３時間かかった。 (1)Ｂくんの高速道での所要時間は何分か。 (2)Ｂ君の一般道での速さは小数第２位を４捨５入して求めると時速何キロか。 よろしくお願いします（＞＜） （中３）

この問題の解き方を教えてくださいっ！ Ｑ　１つのサイコロを繰り返し投げて前の回までに出た目と同じ目が出たら終わりとする。 　このとき、ちょうど３回投げて終わりとなる確率を求めよ。 よろしくお願いしますっ！ （中３）

以下のようにキーボードから入力していくプログラムを試行しているのですが、エラーが出てくるので行き詰まっています。 理想的にはキーボードに”あいう”エンター”えおか”エンターと打ち込んだら str[0]=あいう str[1]=えおか と表示させていきたいのですが、よろしくお願いします。 import java.io.*; import java.lang.*; import java.net.*; import java.awt.*; class gugu2 { public static void main(String[] args) throws IOException { int i=0; while(i<2){ System.out.println("キーワード入力"); BufferedReader br = new BufferedReader(new InputStreamReader(System.in)); String input = br.readLine(); char str[] = input.toCharArray(); System.out.println("キーワードは" + str[]); i=i+1; } for(i=0;i<2;i++){ System.out.println(str[]); } } } これがエラー表示です。 gugu2.java:17: '.class' がありません。 System.out.println("キーワードは" + str[]); ^ gugu2.java:21: '.class' がありません。 System.out.println(str[]); ^ エラー 2 個

キーボードから入力をして、その後str[0][0]とstr[1][0]の文字を繋げたいのですがエラーとなってしまいます。どう変えたらよいでしょうか。 以下がプログラムです。 import java.io.*; import java.lang.*; import java.net.*; import java.awt.*; class gugu3 { public static void main(String[] args) throws IOException { int KEYWORDMAX=10; int CNTMAX=100; String [][]str = new String[KEYWORDMAX][CNTMAX]; BufferedReader br = new BufferedReader(new InputStreamReader(System.in)); String line=null; for (int i=0;i<KEYWORDMAX;i++){ System.out.println("第"+(i+1)+"番目のキーワードを設定しますか？(y/n)"); line=br.readLine(); if(line.equals("n")) break; for (int s=0;s<CNTMAX;s++){ System.out.println("キーワードを入力してください(終了=0)"); line=br.readLine(); if(line.equals("0"))break; str[s][i]=line; } } String keyword = new String(str[0][0]" "str[1][0]); System.out.println("キーワードは "+keyword); } } 以下はエラー表示です。 gugu3.java:24: ')' がありません。 String keyword = new String(str[0][0]" "str[1][0]); ^ gugu3.java:24: 文ではありません。 String keyword = new String(str[0][0]" "str[1][0]); ^ gugu3.java:24: ';' がありません。 String keyword = new String(str[0][0]" "str[1][0]); ^ エラー 3 個