atom_seed の回答履歴

全80件中61~80件表示
  • こんなシステムがあったらいいな!!

    レストランをWebで予約する場合、 こういうシステムがあったら便利だなとかこういうのがあったらもっとよくなると、いうのがあれば教えていただきたいです。 レストランシステム構築を勉強でしてみようと思っていまして、是非参考にして組み込んでみたいです。

  • 前スペース補填

    お世話になります。 いろいろ編集パタン等勉強しているつもりですが、 分かりませんで、またここに来てしまいました。 ちょっと前に『前ゼロ』を教えていただきました。 今度は『前スペース』をやりたいのですが、 悩んでいます。 そもそも「printf」と「sprintf」との区別も付きません。 調べた結果では、7桁で前スペースにするには、 $kmk = sprintf("%7d",$kmk); でよいのかなと思います。 そして、$kmkが"123"なら”bbbb123”(bはスペース)となると思うのですが、 画面に表示されたのを見ると、単純に”123”となってしまいます。 以下に実際を表示しましたので、宜しくお願いします。 まず、やっていることは、 cgiで、有効桁だけでセットされているファイルを読み、 画面にリストします。 その際、前スペースにより各項目の位置を揃えたいというモノです。 【ファイル(@kariire)の中身】 47213<>1<>20080503<>3000<>50000<> 38221<>5<>20080508<>25000<>100000<> 18994<>1<>20080506<>2700<>385000<> 【cgiの中身】 foreach $line (@kariire) { local($kmk1,$kmk2,$kmk3,$kmk4,$kmk5) = split(/<>/,$line); $kmk1 = sprintf("%5d",$kmk1); #氏名コード $kmk2 = sprintf("%1d",$kmk2); #借入事由 $kmk3 = sprintf("%8d",$kmk3); #異動日 $kmk4 = sprintf("%6d",$kmk4); #借入額 $kmk5 = sprintf("%7d",$kmk5); #限度額残 &output; } sub output { print <<"STOPP"; $kmk1,$kmk2,$kmk3,$kmk4,$kmk5 <br> STOPP } 以上です、宜しくお願いします。

    • ベストアンサー
    • nagahaha
    • Perl
    • 回答数4
  • Namazuのインデックスが作成できない。

    下記のサイトを参考に、NAMAZUの設定しています。 http://www10.plala.or.jp/miyazawa/namazu/index.html ファイル名、ディリクトリ等は上記のサイトと同じように設定しています。 各種ファイルのインストール・設定を完了し、インデックスを作ろうしています。 http://www10.plala.or.jp/miyazawa/namazu/mknmzidx.html 説明サイトとおりに、 C:\WINDOWS>mknmz -O C:\nmzindex C:\docs とコマンドプロンプトに入力したのですが、 C:\kakasi\share\kakasi\kanwadict: No such file or directory とエラーが出てしまいます。 何が原因なんでしょうか? OSはWinXPです。

    • ベストアンサー
    • taka0022
    • CGI
    • 回答数2
  • 前スペース補填

    お世話になります。 いろいろ編集パタン等勉強しているつもりですが、 分かりませんで、またここに来てしまいました。 ちょっと前に『前ゼロ』を教えていただきました。 今度は『前スペース』をやりたいのですが、 悩んでいます。 そもそも「printf」と「sprintf」との区別も付きません。 調べた結果では、7桁で前スペースにするには、 $kmk = sprintf("%7d",$kmk); でよいのかなと思います。 そして、$kmkが"123"なら”bbbb123”(bはスペース)となると思うのですが、 画面に表示されたのを見ると、単純に”123”となってしまいます。 以下に実際を表示しましたので、宜しくお願いします。 まず、やっていることは、 cgiで、有効桁だけでセットされているファイルを読み、 画面にリストします。 その際、前スペースにより各項目の位置を揃えたいというモノです。 【ファイル(@kariire)の中身】 47213<>1<>20080503<>3000<>50000<> 38221<>5<>20080508<>25000<>100000<> 18994<>1<>20080506<>2700<>385000<> 【cgiの中身】 foreach $line (@kariire) { local($kmk1,$kmk2,$kmk3,$kmk4,$kmk5) = split(/<>/,$line); $kmk1 = sprintf("%5d",$kmk1); #氏名コード $kmk2 = sprintf("%1d",$kmk2); #借入事由 $kmk3 = sprintf("%8d",$kmk3); #異動日 $kmk4 = sprintf("%6d",$kmk4); #借入額 $kmk5 = sprintf("%7d",$kmk5); #限度額残 &output; } sub output { print <<"STOPP"; $kmk1,$kmk2,$kmk3,$kmk4,$kmk5 <br> STOPP } 以上です、宜しくお願いします。

    • ベストアンサー
    • nagahaha
    • Perl
    • 回答数4
  • 3歳児の「なんで?」攻撃に対して(長文です)

    こんばんは。いつもこちらでお世話になっております。 うちには3歳半の女の子がいます。3歳になった頃から、何でも「なんで?どうして?」と興味を持って聞いてくるようになりました。そういう時期だと聞いていたので、そのことは特に気にならないのですが、最近あまりにも「なんで?」が多くて辟易してしまいます。育児書などには「全部まじめに答えなくてもよいので、会話を楽しみましょう♪」みたいにのん気な(苦笑)ことが書かれていますが、会話を楽しめる程度のものではありません。。。何から何まで「なんで?なんで?」で嫌になってしまい、今日は「全部なんでばっかりで、お母さん、○○ちゃんとお話してても楽しくないな」と言ってしまいました。これってどうなんでしょうか。子供への対応に自信がありません。 私:今日、動物園楽しかったね! 娘:なんで? 私:お天気良かったし、ライオンバスにも乗ったよ~ 娘:なんで? 私:○○ちゃんが乗りたい、って行ったからじゃん 娘:なんで? 私:楽しくなかったの??? 娘:楽しくなかった!!(笑顔で) 私:えー、そうなんだ・・・じゃあもう行かない? 娘:また行きたい! 私:じゃあ「楽しかったから、また行きたいね」って言うんだよ 娘:楽しくないのがいい! 私:・・・・・・・・・・ 毎日万事がこんな調子です。こんな会話でいいんでしょうかね?私はハッキリ言って、とても会話を楽しんでいる状態とは言えません。娘は言葉が遅い子で、健診でも何度かカウンセラーに指導を受けていたもので、話してくれるのは大いに嬉しくもあるのですが・・・ この頃本当に、毎回が「なんで?」で返されてしまい、妊娠中の体調不良・イライラも手伝って、聞こえないふり(んー、とだけ返しておく)をしてしまうこともしばしばです。 先輩方のアドバイス、お待ちしております。

    • ベストアンサー
    • am111
    • 育児
    • 回答数6
  • 前スペース補填

    お世話になります。 いろいろ編集パタン等勉強しているつもりですが、 分かりませんで、またここに来てしまいました。 ちょっと前に『前ゼロ』を教えていただきました。 今度は『前スペース』をやりたいのですが、 悩んでいます。 そもそも「printf」と「sprintf」との区別も付きません。 調べた結果では、7桁で前スペースにするには、 $kmk = sprintf("%7d",$kmk); でよいのかなと思います。 そして、$kmkが"123"なら”bbbb123”(bはスペース)となると思うのですが、 画面に表示されたのを見ると、単純に”123”となってしまいます。 以下に実際を表示しましたので、宜しくお願いします。 まず、やっていることは、 cgiで、有効桁だけでセットされているファイルを読み、 画面にリストします。 その際、前スペースにより各項目の位置を揃えたいというモノです。 【ファイル(@kariire)の中身】 47213<>1<>20080503<>3000<>50000<> 38221<>5<>20080508<>25000<>100000<> 18994<>1<>20080506<>2700<>385000<> 【cgiの中身】 foreach $line (@kariire) { local($kmk1,$kmk2,$kmk3,$kmk4,$kmk5) = split(/<>/,$line); $kmk1 = sprintf("%5d",$kmk1); #氏名コード $kmk2 = sprintf("%1d",$kmk2); #借入事由 $kmk3 = sprintf("%8d",$kmk3); #異動日 $kmk4 = sprintf("%6d",$kmk4); #借入額 $kmk5 = sprintf("%7d",$kmk5); #限度額残 &output; } sub output { print <<"STOPP"; $kmk1,$kmk2,$kmk3,$kmk4,$kmk5 <br> STOPP } 以上です、宜しくお願いします。

    • ベストアンサー
    • nagahaha
    • Perl
    • 回答数4
  • 前スペース補填

    お世話になります。 いろいろ編集パタン等勉強しているつもりですが、 分かりませんで、またここに来てしまいました。 ちょっと前に『前ゼロ』を教えていただきました。 今度は『前スペース』をやりたいのですが、 悩んでいます。 そもそも「printf」と「sprintf」との区別も付きません。 調べた結果では、7桁で前スペースにするには、 $kmk = sprintf("%7d",$kmk); でよいのかなと思います。 そして、$kmkが"123"なら”bbbb123”(bはスペース)となると思うのですが、 画面に表示されたのを見ると、単純に”123”となってしまいます。 以下に実際を表示しましたので、宜しくお願いします。 まず、やっていることは、 cgiで、有効桁だけでセットされているファイルを読み、 画面にリストします。 その際、前スペースにより各項目の位置を揃えたいというモノです。 【ファイル(@kariire)の中身】 47213<>1<>20080503<>3000<>50000<> 38221<>5<>20080508<>25000<>100000<> 18994<>1<>20080506<>2700<>385000<> 【cgiの中身】 foreach $line (@kariire) { local($kmk1,$kmk2,$kmk3,$kmk4,$kmk5) = split(/<>/,$line); $kmk1 = sprintf("%5d",$kmk1); #氏名コード $kmk2 = sprintf("%1d",$kmk2); #借入事由 $kmk3 = sprintf("%8d",$kmk3); #異動日 $kmk4 = sprintf("%6d",$kmk4); #借入額 $kmk5 = sprintf("%7d",$kmk5); #限度額残 &output; } sub output { print <<"STOPP"; $kmk1,$kmk2,$kmk3,$kmk4,$kmk5 <br> STOPP } 以上です、宜しくお願いします。

    • ベストアンサー
    • nagahaha
    • Perl
    • 回答数4
  • ファイル内の数値の変更について

    htmlファイル内に <td class="numberCol" vAlign="top">48</td><td vAlign="top"> : : <td class="numberCol" vAlign="top">49</td><td vAlign="top"> : : <td class="numberCol" vAlign="top">50</td><td vAlign="top"> という48から始まる行があるのですが、この数字を1から順番に書き換えたいです。 numberColというので行をマッチさせることができますが、どのようなスクリプトを書けばよいでしょうか? よろしくお願いします。

  • perl 配列の要素数について

    配列の要素数について質問させていただきます。 プログラムの中で、以下のようにファイルの内容を1行ずつ読み込み、配列に入れています。  open (IN, "ファイル名");  @data = <IN>;  close (IN); こういった形で配列に入れていった場合、入れられる最大行数(=最大要素数)はどれくらいになるのでしょうか。 現在100万行のテキストファイルは、問題なく読み込めているようでした。 ご存知の方がおられましたら、ご回答いただければと思います。 よろしくお願いいたします。

    • ベストアンサー
    • mitu15
    • Perl
    • 回答数2
  • scrollTopについて

    いつもお世話になっています。 <script type="text/css"> <!-- div#contents{ width:100%; overflow:auto; height:600px; } --> </script> <script type="text/javascript"> <!-- function myscroll(){ setTimeout("myscroll",1000); document.getElementById("contents").scrollTop = 600; } // --> </script> <td><!--ここのtdの高さは未定--> <div id="contents"> <table> <!--ここからログ。下記3行がループされます--> <tr> <td>ここにログ</td> </tr> <!--ログここまで--> </table> </div> </td> というHTMLがあり、ログを日ごとにチェックするWEB管理画面です。 読み込んだ時点でmyscrollが呼ばれ、スクロールバーが divの一番下に来るように設定されています。(最新が一番下にくるため) ログは日ごとに可変で、600px以内に収まれば、ちゃんとスクロールバーはdivの一番下に来るのですが、 それを超えてしまうと、中途半端な位置でスクロールが止まってしまいます。 600px以内に~というのは推測で、実際にそうなのかはわかりません。詳しくは下記に。 ちなみに、tdにIDとheightを設定してmyscrollをtdのIDで動かそうとしてもスクロールは動きません。 3行がループというのはsmartyというPHPのライブラリを通して動かしています。 スクロールが下まで行くのはだいたい60行程度のログで、1行20px程度になっています。(この時点ですでに600pxは超えているのですが、ちゃんと動きます)。 実際3000行のログが入ってきたことがあって、スクロールがほんのちょっとしか動きませんでした。 どんな長いログが来てもちゃんとスクロールが一番下まで来るためには、どのように記述しなければならないのでしょうか。 よろしくお願いします。

  • 送信完了が出力されない

    変数のセットなど細かい内容は省かせていただきます。 if ($ENV{'REQUEST_METHOD'} eq "POST") { #メールアドレスチェック --------------------------------- if (!$CGI{'mail'}) { &error("メールアドレスを記入してください"); } if ($CGI{'mail'} =~ /\,/) { &error("メールアドレスにカンマ「\,」が含まれています"); } if (($CGI{'mail'}) && $CGI{'mail'} !~ /.+\@.+\..+/) { &error("メールアドレスの書式が不正です"); } &writelog; print "送信完了しました。\n"; } と書いたのですが、errorについてはそれぞれ出力されますが、 完了画面が出ません。 間違いはどこか指摘願います。

    • ベストアンサー
    • smilekoko
    • Perl
    • 回答数3
  • ログファイルを更新したいのですが

    ログファイルの中身が むらかみ  1,2,3 4,5,6 7,8,9 ・・・ ぽんた   a,b,c d,e,f g,h,i ・・・ しゅういち い,ろ,は に,ほ,へ と,ち,り ・・・ のようにタブ区切りのログファイルの各行2番目の項目を削除して上書き保存 むらかみ  4,5,6 7,8,9 ・・・ ぽんた   d,e,f g,h,i ・・・ しゅういち に,ほ,へ と,ち,り ・・・ という作業をするスクリプトを組みたいのですが、perlはまったくわかりませんで苦闘しております。 最終的にcronで指定時間にスクリプトを動かせるようにしたいです。 よろしくお願いします。

    • ベストアンサー
    • noname#99731
    • Perl
    • 回答数4
  • アップロードされた画像を加工して吐き出すcgiを探しています

    アップロードされた画像を加工して吐き出すcgiを探しています 下記の手順で画像を吐き出すものです 1.ウェブ上に設置されたcgiに画像をアップロードする 2.アップロードされた画像にマークやスカシなどを入れ、吐き出す スカシはランダムで数十種類を挿入できるものを望んでいます。 有料、無料問いません。よろしくお願いします。

  • selectを変更不可にしたい

    いつもお世話になっております。 今回はselectについてお聞きしたいです。 ある条件でselectを選択不可にしようと思い、 if(...) Selectbox.disabled = true; としておりますが、選択は不可能になりましたが灰色がかってしまいます。 できれば色は黒いままで選択不可にしたいのですがどのように すれば実現できますでしょうか? ご教授お願いします。

  • PDFから画像抽出

    サーバ上(Linux)で動くPDFから画像を抽出できるツールってありませんか?できれば、PHPやRubyから操作できるものがあれば最高です。だれか詳しい方がいましたら教えていただけないでしょうか。よろしくお願いします。

  • リセットさせるにはどうしたらいいでしょうか?

    下記のような配列のフォームでボタンを押したらテキストフォールドの値を空にしたいのですがどのように記述したらいいのでしょうか? ご教授宜しくお願いします。 <form name="myform">  <input type="text" name="no[100]" value="abc">  <input type="text" name="no[102]" value="der">  <input type="text" name="no[105]" value="ghi">            .            .           動的に増える </form> ※ document.myform.elements["no[100]"].value = ""; みたいに書けば個別には空にすることは出来たのですが。 elementsの順番で空にすることがどうしてもうまくいきません。 document.myform.elements[0][0].value = "";みたいに。 document.myForm.elements['no[]'].lengthで個数を取得して順番に空にするってことがしたいのですが、<input type="text" name="no[]" value="abc">だったらうまくいくのかもしれないですけど、no[値]があるとどうもうまくいきません。 宜しくお願いします。

  • アップロードされた画像を加工して吐き出すcgiを探しています

    アップロードされた画像を加工して吐き出すcgiを探しています 下記の手順で画像を吐き出すものです 1.ウェブ上に設置されたcgiに画像をアップロードする 2.アップロードされた画像にマークやスカシなどを入れ、吐き出す スカシはランダムで数十種類を挿入できるものを望んでいます。 有料、無料問いません。よろしくお願いします。

  • 新しいログの書き込み

    新しいログを追加で上に書き込む方法はどのようにしたらよいのかアイディアがありません。 ご教授願います。 if($mode eq "html"){ flock(FH, LOCK_EX); open(FH,"${datafile}"); @html = <FH>; close(FH); flock(FH, LOCK_NB); $html = join('',@html); @html = split(/$chtml/ , $html); $html[1] = $data; $html = join($chtml,@html); flock(FH, LOCK_EX); open(FH,">$datafile"); print FH $html; close(FH); flock(FH, LOCK_NB);

  • 任意な項目のソート

    お世話になります。 なかなか説明自体が難しいのですが、 以下のようなファイルを読み、リストしたいのですが、 単純にリストするのではなく、ソートして並べ替えてからリストが必要です。 ファイル構成は、 名前<>所持金<>限度額<>最終異動日<> のような属性で、 (1)山田太郎<>120000<>200000<>080501<> (2)林佳子<>32500<>100000<>080429<> (3)浪速義郎<>257000<>300000<>080322<> (4)、、、、 のように入っています。 ((1)、(2)、(3)、、はレコードです。) リストは、 例えば、 あ:限度額の降順 い:最終異動日の昇順 等と指示されます。 例えば、 上記『あ』の例(限度額の降順)で教えていただけないでしょうか。 期待する結果は、 (3)浪速義郎<>257000<>300000<>080322<> (1)山田太郎<>120000<>200000<>080501<> (2)林佳子<>32500<>100000<>080429<> (4)、、、、 となれば良いのです。 ちなみに単純に読み込んだままでリストの時には以下のように書いています。 open(IN,"$file") || &error("Can't open $file"); @lines = <IN>; close(IN); foreach $line (@lines) {     local($trm01,$trm02,$trm03,$trm04) = split(/<>/,$line); 宜しくお願いします。

    • ベストアンサー
    • nagahaha
    • Perl
    • 回答数2
  • 連想配列と比較させ変換したいのですが

    ファイルから a,h,2,26,f というデータを読み込んで %hash = (1=>'a',2=>'b',‥‥,26=>'z') のような連想配列と比較させ 1,8,b,z,6 となるように、読み込んだものが英字ならキーを、数字なら値を 出力させたいのですが可能でしょうか? お教え願います。

    • ベストアンサー
    • huhumu
    • Perl
    • 回答数2