tatsu99 の回答履歴

threads のモジュールを使ってマルチスレッドのテストをすると下のようなエラーが 発生します。 何が原因なんでしょうか？ Usage: threads->create(function, ...) at C:\testPerl\test9\test0006.pl line 11. use strict; use threads; use Data::Dumper; no strict "refs"; my $countM; for ($countM = 0; $countM < 5; $countM++){ my $test = "test".$countM; ${"thd".$countM}= threads->new(\&mtest($test)); ${"thd".$countM}->join; } print "test end.\n"; sub mtest { my $name = @_; print "$name"."\n"; threads->yield(); }

VBAを使っていて ユーザーフォーム上にボタンを二つ配置します。 ボタン1を押すとsub 1が実行されます。 このプログラムで出力された変数を ボタン2で実行するsub 2で使いたいのですが どうすれば良いですか？ sub 1の中でcall subを使ってプログラム2を呼び出すということはしたくないのですが このsub を終了しても変数が消えないようにするには ワークシートのセルに代入するか ユーザーフォームのテキストボックスなどに代入するしかないでしょうか？ この変数を外に出さずに隠さずに保存しておき 次のsub で使いたいのですが 何か良い方法はないでしょうか？

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

perlでプログラムを作成中です。 作成したモノはうまく動かないので掲載できませんが、 どなたかお知恵を貸してください。 　入力文字列に対して １をＡ、２をＢ、３をＣ に置換するプログラムを作成中です。 ただし、全ての組み合わせを出力したいのです。 つまり、”２１３”と入力すると回答は、 Ｂ１３ ＢＡ３ ＢＡＣ ２Ａ３ ２１Ｃ ２ＡＣ Ｂ１Ｃ と出力したいのです。 　プログラムとしては、入力文字列を１つずつを配列に入れて、それぞれの変換 をかけ、１つずつ組み合わせて出力しているのですが、どうもうまくいきません。 手法は特に固執してませんので、どの様な形でも結構です。 よろしくお願いします。

Rubyでファイルを暗号化し、それを復号したいのですがうまくいかないため、 質問させていただきます。 Ruby 1.9.3を使用しています。 ・ファイルの暗号化　encrypt.rb ------------------------------------------------- # encoding: cp932 require 'openssl' def encrypt(file, pass) 　　enc = OpenSSL::Cipher::AES256.new('CBC') 　　enc.encrypt 　　enc.pkcs5_keyivgen(pass) 　　File.open(file, 'rb') do |fin| 　　　　File.open("#{file}.sec", 'wb') do |fout| 　　　　　　while buff = fin.read(8000) 　　　　　　　　fout.write(enc.update(buff)) 　　　　　　end 　　　　　　fout.write(enc.final) 　　　　end 　　end 　　enc.reset end if $*.length > 0 　　print 'password： ' 　　pass = $stdin.gets.chomp 　　$*.each do |arg| 　　　　begin 　　　　　　encrypt(arg, pass) 　　　　　　puts "#{arg}を暗号化したファイル#{arg}.secを作りました。" 　　　　rescue 　　　　　　puts "#{arg}の暗号化に失敗しました。" 　　　　end 　　end 　　0.upto(pass.length - 1) do |i| 　　　　pass[i] = '\xff' 　　end end ------------------------------------------------- ・ファイルの復号　decrypt.rb ------------------------------------------------- # encoding: cp932 def decrypt(file, pass) 　　dec = OpenSSL::Cipher::AES256.new('CBC') 　　dec.decrypt 　　dec.pkcs5_keyivgen(pass) 　　File.open(file, 'rb') do |fin| 　　　　File.open("#{file}.plain", 'wb') do |fout| 　　　　　　while buff = fin.read(512) 　　　　　　　　fout.write(dec.update(buff)) 　　　　　　end 　　　　　　fout.write(dec.final) 　　　　end 　　end 　　dec.reset end if $*.length > 0 　　print 'password: ' 　　pass = $stdin.gets.chomp 　　$*.each do |arg| 　　　　begin 　　　　　　decrypt(arg, pass) 　　　　　　puts "#{arg}を復号したファイル#{arg}.plainを作りました。" 　　　　rescue 　　　　　　puts "#{arg}の復号に失敗しました。" 　　　　end 　　end 　　0.upto(pass.length - 1) do |i| 　　　　pass[i] = '\xff' 　　end end ------------------------------------------------- コマンドプロンプトでencrypt.rb自身を暗号化し、encrypt.rb.secの作成はできるのですが、 decrypt.rbを実行してパスワードを入力しても復号ができません。 どのようにすれば復号できるのか教えていただけますでしょうか。

こんばんは。 文章の先頭に指定した文字列を指定した箇所（文頭）のみに追加したいと思っているのですが、 どうもうまくいかないため質問させていただきました。 (1)全角英数字を正規表現で取得できていない (2)unless文の後の条件の複数指定が機能せずエラーになる (3)sub!で置換する以外に文字の追加方法はないか (4)unlessで条件指定しない場合、すべての行の頭に「当事業年度」という文字がついてしまう 上記４つがうまくいっていない要因です。 (3)に関してはinsertを他の手段として考えています。 以下プログラムです。 text.each_line do |t| 56 57 case t 58 when/前事業年度\t銘　　　柄/ 59 flag = true 60 when/前事業年度\t当事業年度/ 61 flag = false if flag == true 62 end 63 64 t.sub!(/^(\p{Katakana}|[一-龠々]|\w|(株)|\p{Hiragana}|[:upper:]{0,20}[1-9])/) {|d| "前事業年度\t#{$1}"} unless flag == false && /当事業年度/ 65 t.sub!(/^(\p{Katakana}|[一-龠々]|\w|(株)|\p{Hiragana}|[:upper:]{0,20}[1-9])/) {|d| "当事業年度\t#{$1}"} unless flag == false && /前事業年度/ 変換したい文章は以下のものです。 前事業年度 銘　　　柄 株式数（株） 貸借対照表計上額（百万円） 保有目的 株式会社日本触媒 6,338,000株 7,726,000,000円 当社グループの主要原料供給元であり、取引関係強化の一環として保有している。 ユニ・チャーム株式会社 278,100株 1,533,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 栗田工業株式会社 572,600株 1,282,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 ＪＸホールディングス株式会社 2,477,050株 1,231,000,000円 当社グループ製品の販売先および主要原料供給元である企業の持株会社であり、取引関係強化の一環として保有している。 ＫＰＸＣｈｅｍｉｃａｌ 158,621株 967,000,000円 KPXChemical設立時に出資しており、協力関係維持のため保有している。 株式会社ブリヂストン 194,000株 710,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 関西ペイント株式会社 214,225株 315,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有（取引先持株会による定期買付）している。 当事業年度 銘　　　柄 株式数（株） 貸借対照表計上額（百万円） 保有目的 ＫＰＸＨｏｌｄｉｎｇｓ 58,990株 284,000,000円 上記KPXChemicalの株式を40%保有する大株主であり、協力関係強化のため保有している。 大日精化工業株式会社 524,000株 250,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 高圧ガス工業株式会社 424,000株 241,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 サカタインクス株式会社 202,000株 196,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。地元企業との関係強化のため保有している。 株式会社松風 138,000株 120,000,000円 地元企業との関係強化のため保有している。 コニシ株式会社 50,000株 91,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 稲畑産業株式会社 66,000株 69,000,000円 当社グループ製品の販売および原料購入における代理店であり、取引関係強化の一環として保有している。 日本特殊塗料株式会社 112,000株 68,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 電気化学工業株式会社 142,000株 50,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 株式会社三菱ケミカルホールディングス 104,500株 44,000,000円 当社グループ製品の販売先および主要原料供給元である企業の持株会社であり、取引関係強化の一環として保有している。 長瀬産業株式会社 31,000株 39,000,000円 当社グループ製品の販売および原料購入における代理店であり、取引関係強化の一環として保有している。 横浜ゴム株式会社 36,000株 34,000,000円 当社グループ製品の販売先であり、取引関係強化の一環として保有している。 前事業年度から下の７行の文頭に「前事業年度」という文字を追加し、 当事業年度から下の行の文頭に「当事業年度」という文字を追加することが目標です。 どうかご教授のほどよろしくお願いいたします。

こんにちは。 Ｃ言語の「ポインタのポインタ」の学習中なのですが、以下のプラグラムがエラーが出てしまします。 if文が間違っていると思うのですが、具体的に何がどう間違っているのがわかりません。 ご教示お願いいたします！ #include<stdio.h> int main(void) { int date = 300; int *pdate = NULL; int **ppdate = NULL; printf("dateの値は%d＜\n", date); pdate = &date; printf("*pdateの値は%d＜\n", *pdate); if(**ppdate = NULL){ printf("**ppdateには何も与えられていません。\n"); } else{ return 0; } ppdate = &pdate; if(**ppdate == 300){ printf("**ppdateの値は%dになりました。正常です。\n", **ppdate); } /*強制終了を避けるためのプログラム*/ int i; scanf("%d", &i); return 0; }

こんにちは。 Ｃ言語の「ポインタのポインタ」の学習中なのですが、以下のプラグラムがエラーが出てしまします。 if文が間違っていると思うのですが、具体的に何がどう間違っているのがわかりません。 ご教示お願いいたします！ #include<stdio.h> int main(void) { int date = 300; int *pdate = NULL; int **ppdate = NULL; printf("dateの値は%d＜\n", date); pdate = &date; printf("*pdateの値は%d＜\n", *pdate); if(**ppdate = NULL){ printf("**ppdateには何も与えられていません。\n"); } else{ return 0; } ppdate = &pdate; if(**ppdate == 300){ printf("**ppdateの値は%dになりました。正常です。\n", **ppdate); } /*強制終了を避けるためのプログラム*/ int i; scanf("%d", &i); return 0; }

調べても全く理解出来ません なんで2進数は11～100になったりいきなり三桁になるんですか?意味わかんない 全く理解できない

windows7で複数のrbファイルをタスクスケジューラで定時実行する際の効率的な方法を教えてください。 今のところファイル1かは30までを順次実行するかんじです。 実行するファイル数が膨大なので、個別にタスクスケジューラに設定するのは煩わしいので、良い方法があったら教えてください。

こんにちは。 Rubyの質問です。 htmlの文章にrubyで改行文字を挿入してそれを認識させたいのですが、 htmlの文章内に¥nを挿入しても読み込んだ際にうまく認識してくれませんでした。 何か他に方法があるのでしょうか。 ご教授の程よろしくお願い致します。

こんにちは。 何度か質問させていただいていたのですが、正規表現を使っても正しく取得できない部分があったので質問させていただきました。 取得したい文字列の部分にflagをたてて、そこからfalseになるまで取得し続ける形をとっているのですが、どうもfalseになってbreakするはずの部分で取得を終了してくれません。 どう直せば良いのでしょうか？ご教授お願い致します。 プログラムは以下の通りです。 2 text = "" 3 4 data = "/home/edinet/E05267/S1001YX6/index.html" 5 6 flag = nil 7 IO.foreach(data) do |line2| 8 line2.gsub!(/普通株式/,"\nEOF") 9 case line2 10 when /保有目的が純投資目的以外の目的である投資株式の保有区分|保有目的が純投資目的以外/ 11 flag = true 12 13 when /保有目的が純投資目的である投資株式の前事業年度|EOF|無議決権株式|政府及び地方公共団体|調　整　後　転　換　価　額|保有目的が純投資目的|普通株式|監査報酬の内容等/ 14 flag = false if flag == true 15 16 end 17 18 text << line2.chomp if flag != nil 19 break if flag == false 20 21 end 22 text.gsub!(/<\/td>/,"\t") 23 text.gsub!(/<\/tr>/,"\n") 24 text.gsub!(/<[^>]+>/,"") 25 print text 実行結果 ロ　保有目的が純投資目的以外の目的である投資株式の保有区分、銘柄、株式数、貸借対照表計上額及び保有目的&nbsp;(前事業年度)特定投資株式銘柄 株式数(株) 貸借対照表計上額(千円) 保有目的 アイサンテクノロジー株式会社 50,000 11,150 取引関係の維持強化 セイコーエプソン株式会社 10,000 9,130 取引関係の維持強化 株式会社トプコン 10,000 8,570 取引関係の維持強化 株式会社大和証券グループ本社 10,000 6,560 取引関係の維持強化 株式会社八十二銀行 10,000 5,690 取引関係の維持強化 佐田建設株式会社 60,000 4,500 取引関係の維持強化 &nbsp;&nbsp;(当事業年度)特定投資株式銘柄 株式数(株) 貸借対照表計上額(千円) 保有目的 アイサンテクノロジー株式会社 50,000 43,900 取引関係の維持強化 セイコーエプソン株式会社 10,000 32,100 取引関係の維持強化 株式会社トプコン 10,000 16,920 取引関係の維持強化 株式会社大和証券グループ本社 10,000 8,980 取引関係の維持強化 福井コンピュータホールディングス株式会社 10,000 8,650 取引関係の維持強化 株式会社八十二銀行 10,000 5,870 取引関係の維持強化 &nbsp;&nbsp;ハ&nbsp; 保有目的が純投資目的である投資株式該当事項はありません。&nbsp;(6) 会計監査の状況当社は、金融商品取引法監査について有限責任監査法人トーマツより継続的に監査を受けており、正確な経営情報・財務情報の提供に配慮しております。業務を執行した公認会計士の氏名 所属する監査法人 指定有限責任社員 業務執行社員 五十幡 理一郎 有限責任監査法人トーマツ 指定有限責任社員 業務執行社員 小&nbsp; 松&nbsp;&nbsp;&nbsp;&nbsp; 聡 有限責任監査法人トーマツ &nbsp;継続関与年数については、７年以内であるため記載を省略しております。また、公認会計士４名、その他２名が会計監査業務に関っております。&nbsp;&nbsp;(7) 取締役会で決議することができる株主総会決議事項（自己の株式の取得）当社は、経営環境の変化に対応した機動的な資本政策を行うため、会社法第165条第２項の規定により、「取締役会の決議によって市場取引等により自己の株式を取得することができる。」旨を定款に定めております。&nbsp;（中間配当）当社は、株主への機動的な利益還元を行うため、会社法第454条第５項の規定により、「取締役会の決議によって、毎年９月30日を基準日として、中間配当を行うことができる。」旨を定款に定めております。&nbsp;(8) 取締役の定数当社の取締役は、「７名以内とする。」旨を定款に定めております。&nbsp;(9) 取締役の選任の決議要件当社は、取締役の選任決議について、「株主総会において議決権を行使することができる株主の議決権の３分の１以上を有する株主が出席し、その議決権の過半数をもって行い、かつ累積投票によらない。」旨を定款に定めております。&nbsp;(10) 株主総会の特別決議要件当社は、株主総会における特別決議の定足数を緩和することにより、株主総会の円滑な運営を行うため、会社法第309条第２項に定める株主総会の特別決議要件について、「議決権を行使することができる株主の議決権の３分の１以上を有する株主が出席し、その議決権の３分の２以上をもって行う。」旨を定款に定めております。&nbsp;(2) 【監査報酬の内容等】&nbsp;(1) 【監査公認会計士等に対する報酬の内容】前事業年度 当事業年度 監査証明業務に基づく報酬(千円) 非監査業務に基づく報酬(千円) 監査証明業務に基づく報酬(千円) 非監査業務に基づく報酬(千円) 14,600 ─ 14,600 500 &nbsp;&nbsp;(2) 【その他重要な報酬の内容】該当事項はありません。&nbsp;(3) 【監査公認会計士等の提出会社に対する非監査業務の内容】前事業年度該当事項はありません。&nbsp;当事業年度当社は監査公認会計士等に対して、公認会計士法第２条１項の監査証明業務以外の業務である内部管理体制の整備に関する助言・指導業務について対価を支払っております。&nbsp;(4) 【監査報酬の決定方針】当社の監査法人に対する監査報酬の決定方針としましては、事前に見積書の提示を受け、監査日数、監査内容及び当社の規模等を総合的に勘案し、監査役会及び関連部門と協議を行ったうえ決定することとしております。&nbsp;第５ 【経理の状況】&nbsp;１．財務諸表の作成方法について当社の財務諸表は、「財務諸表等の用語、様式及び作成方法に関する規則」(昭和38年大蔵省令第59号。以下「財務諸表等規則」という。)に基づいて作成しております。　なお、当事業年度(平成25年４月１日から平成26年３月31日まで)の財務諸表に含まれる比較情報については、「財務諸表等の用語、様式及び作成方法に関する規則等の一部を改正する内閣府令」（平成24年９月21日内閣府令第61号）附則第２条第２項により、改正前の財務諸表等規則に基づいて作成しております。&nbsp;２．監査証明について当社は、金融商品取引法第193条の２第１項の規定に基づき、事業年度(平成25年４月１日から平成26年３月31日まで)の財務諸表について、有限責任監査法人トーマツにより監査を受けております。&nbsp;３．連結財務諸表について当社は子会社がありませんので、連結財務諸表を作成しておりません。&nbsp;４．財務諸表等の適正性を確保するための特段の取組みについて当社は、財務諸表等の適正性を確保するための特段の取組みを行っております。具体的には、会計基準等の内容を適切に把握し、又は会計基準等の変更等について適切に対応することができる体制を整備するため、公益財団法人財務会計基準機構へ加入し、同機構が開催する研修等へ参加しております。 ※長いためこれ以降は割愛します。 よろしくお願いします。