maura の回答履歴

初めて投稿させていただきます。 Perlで半角カタカナをひらがなに変換しているのですが、 以下のような文字列は文字化けが起こってしまいます。 オウシュウシ イイオカ コシオウ アカサカ キョウサカエ オオスケ　 オオキシ キキョウ ソウカシ なんとなく法則がありそうなのですが、それがどういう理由なのかがわかりません。 たとえば、「アカサカ」は「鐔縁酋鐔誌酋」と化けてしまいます。 しかし、「アカサカチョウ」とした場合は化けません。 以下のようなコードを作成しています。 use Encode; use Jcode; $iline="文字列"; Encode::from_to( $iline, 'CP932', 'utf8'); my $str = Jcode->new($iline)->h2z->tr("ァ-ン", "ぁ-ん")->utf8; $strをファイルに出力 といった感じです。 文字コードの関係が弱いので、何をどうしたら良いのか検討がつきません。 何か参考になることを教えていただければ幸いです。 Perlのバージョン5.8.5 サーバー　Linux系

RH7.3の環境で試しているのですが、どうもうまく動作しません。 CGIから呼び出す方法として３つ試したのですが、 open(IN,"|sudo -u USER PROGRAM"); $text = `sudo -u USER PROGRAM`; system("sudo -u USER PROGRAM"); 最後のsytemは一応期待通りの動作になりました。 ただ、これですと実行結果（標準出力）を取り込めないのですが、何か方法はありませんか？ PROGRAMはbashのシェルスクリプトです。 最初の２つですと、sudoの関係かエラーが出ます。 ./PROGRAM: SQL*Plus:: command not found systemの場合はちゃんと動作します。 ■実際にやりたいこと oracleサーバへの問い合わせ結果を取得したいのですが、 10gのクライアントまでは入りましたが、perlのDBD::Oracleがうまく入らなかったため、sqlplusで処理しようと考えています。 最初は直接CGIから呼び出そうとしたのですが、sudo時に環境変数が設定されないので、bashのシェルスクリプトにexportで先頭に書いております。 外部公開サーバではありませんので、とりあえずセキュリティーは無視しています。 systemで実行結果をcgiの標準入力に渡すか、バッククォートでエラーが出なくするかどちらかの方法はありませんでしょうか？

perl で、他のいくつかのプログラムが出力するデータ列を結合して出力する方法はないでしょうか？ 例えば、三つのプログラム programA, programB, programC の出力が % programA 1 2 3 4 % programB 1 4 9 16 % programC 1 8 27 64 だとします。 perl スクリプトでこれらのプログラムを呼び出して、 % test.pl programA programB programC 1 1 1 2 4 8 3 9 27 4 16 64 のようにしたいのです。 よろしくお願いします。

例えば、 ・ヤフーオークション ・ネットゲーム（ウルティマオンラインとかＦＦとかハンゲームなど） ・ロボットをＰＣ上で制御（プラグインで様々な制御を追加可能） などをできるようになるためには具体的にそれぞれどのような プログラミングスキルがひつようなのでしょうか？ あるいはプログラミング以外のスキルが必要でしたらそれも教えてください。 ちなみにオークションサイトを実際に作ろうというわけではないので、 既にヤフーが巨大な市場を掌握しているから云々とかはではなく、 コンピューター上の知識をいただけたらと思います。

今までWindowsのPerlを使っていました。 forkやalarm,wait,waitpid,syscallなど使ったことがなく、 LinuxのPerl5.8でそれらの関数を習得したいのですが、 何か良いサンプルはありますか？ これに特化した書籍も探しています。 今作りたいものは、 forkで１０個プロセスを作成して、ループし、 以下それぞれhello worldを表示させ終わったら、 1個目は終了しました。 2個目は終了しました。 ・・・ 10個目は終了しました。 終わり。 と表示させるプログラムが作りたいです。 fork,alarm,wait,waitpid,syscallなどプロセス操作、システムコール関数を全て使った良いサンプルも探しています。 ------------------------------------ それぞれのhellow word 1個目は 5秒後に hello worldを表示させる 2個目は10秒後に hello worldを表示させる ... 10個目は50秒後にhello worldを表示させる を使いますが、今まで

WindowsでスクリプトをEUCで保存し、シフトJISでブラウザへ出力ときの 設定として以下のようにphp.iniを設定しています。 ～php.ini～ output_buffering = On output_handler = mb_output_handler magic_quotes_gpc = Off default_charset = Shift_JIS extension_dir = C:/php/ext extension=php_mbstring.dll mbstring.language = Japanese mbstring.internal_encoding = EUC-JP mbstring.http_input = auto mbstring.http_output = SJIS mbstring.encoding_translation = On mbstring.detect_order = auto mbstring.substitute_character = none ～php.ini～ mb_detect_encodingでDBから取得した値の文字コードは、SJISでした。 mb_convert_encoding($dbdata,"EUC-JP","SJIS")で正しく表示されます。 iniファイルの設定のみで正しく表示するにはどのように設定するのがいいのでしょうか？それとも、このような文字コード変換は必須なのでしょうか？ よろしくお願いします。 [PHP使用環境] PHP＝5.1.6 OS＝Windows2000　PRO webserver=apatch2.0 [DB環境（リモートサーバ）] DB＝MS SQL Server2000 OS＝Windows2003　server　R2

会議室予約や美容院、病院等の予約CGIを探したのですが、 レギュラーで予約できるCGIをご存知の方はいらっしゃいますでしょうか？ ////////////////////////////////////////////////////////// 目的 ・レッスンを予定しており、決まった曜日、時間で予約枠を確保したい。 希望としては ・「毎週水曜の10：00から」と決まった曜日、時間で予約ができる。 　⇒管理フォームからでもいい。 ・携帯のWEBからでも予約ができるもの。 ・予約受付期間の設定が可能なもの。 　⇒レギュラーの生徒がいるのに、数ヶ月先で予約を入れてしまわないように。 ・予約枠が30分からできるもの。 以上4項目 ////////////////////////////////////////////////////////// 都度、ユーザーが入力していくCGIはあるのですが、定刻での優先予約が出来ず、 割り込まれる可能性があるものでした。 ちなみにこれ⇒http://www.oxward.com/yoyaku/ 4項目の条件を満たしているCGI、もしくは、既存のシステムをカスタマイズ していただける方は、いらっしゃいませんでしょうか？ 宜しくお願いいたします。

プログラミングを独学で勉強したいと思ってるんですが、基本的な事を学べる本ないでしょうか？ HTMLはホームページを作る際に必要な言語であるというのはわかるんですが、PHPやJavascriptとは何かと言われてもさっぱり理解出来ません。理解出来ないという以前にこれは何をするものなのかがわかってない状態で解説書を読んでいてもさっぱりわかりません。 プログラミングを勉強する上で、基本的が事が学べる書籍とかありましたらぜひ教えてもらえないでしょうか。 よろしくお願いします。

別なサイトの一部を自動的に切り出し、表示させるようなサイトを「htmlだけ」で作ることは可能でしょうか？ たとえば、大阪ガスの投資家向けサイト（http://www.osakagas.co.jp/ir/index.html​）から What's newに掲載されている記事のタイトルだけを切り出し、掲載時刻の部分を削除して、自分のサイトに表示させるというようなことをしたい場合、htmlしか使えないという制限のもとで、何か方法はあるでしょうか？（著作権はここでは考えないものとします） よろしくお願いします。

wgetを使ってサイトの中身をチェックしたいです。 下記の条件パラメータの付け方がよく分かりません。アドバイスお願いします。 たとえばhttp://www.hoge.com/というサイトがあって、 ○実際のHTMLファイルは必要ないので、spiderモードで良い。 ○spiderモードで得られた情報をテキストファイルに出力したい。

wgetを使ってサイトの中身をチェックしたいです。 下記の条件パラメータの付け方がよく分かりません。アドバイスお願いします。 たとえばhttp://www.hoge.com/というサイトがあって、 ○実際のHTMLファイルは必要ないので、spiderモードで良い。 ○spiderモードで得られた情報をテキストファイルに出力したい。

replace()メソッドで書き換えをしたいのですが、文字列が「」か“”に囲まれていない時だけ書き換えさせる方法はありますか？ 例えば、"あいう"を"あああ"に書き換えたい時、 "「」あいうえお「」" -> "「」あああえお「」" "“あいうえお”かき" -> "“あいうえお”かき" "「」「あいう」えお" -> "「」「あいう」えお" よろしくお願いします

はじめまして、ここを利用するのは初めてです。 かなり緊急で、フリープログラマーさんに 当社のビジネス用のソフトウェアの開発を依頼したいのですが どうやって、探せばよいのか？ どれくらいの報酬でうごいてくれるか？ 全くわからずただただグーグルをぼーっと見る今日この頃です。 ここで質問すればもしかして解決できるかなと思いカキコしました。 それでは、先輩のみなさんよろしくお願いします。

http://www.play-asia.com/paOS-00-71-99-49-jp.html このサイトのように言語をいくつかに変換できるサイトがあるかと思いますが、これはどうすればよいのでしょうか？ なにか特殊なスクリプトのようなものがあるのですか？それとも プログラムを導入すればいいのですか？

箱庭諸島のオフィシャルページにて 「 現在、箱庭諸島商用化の話があり、その関係上ゲームの開催、関連サイトへのリンク、スクリプト配布などを行う事ができません。しかし、すでに配布しているものに関しては、従来の使用条件で使って頂いて構いません。つまり、当サイトへのリンクさえ残してもらえれば、改造もフリー再配布も可能です。 」 となっており、ダウンロードできません。 フリー再配布は可能になっているのでyahooで探してみましたがありませんでした。 なので、perl版のオリジナル（改造版は×）ソースを手に入れる方法を教えていただけませんか？ なお、バージョンはできれば新しいものがいいですが、あまりこだわりません。

私はホームページを運営しているのですが、そこで一つ商品の販売を行っております。 現在はメールでのやり取りで注文を承っているのですが、やはりきっちりとしたフォームがあるほうが信頼度も高まると思いました。 そこで、良くある「お申し込みフォーム」のようなものはどのように作成するのでしょうか。 例えば下記のようなものになります。 http://i.mobilepreneur.com/fmailexc/index.html?d=m33146p24814e277s151h1594

UML初心者です。 業務フローを、アクティビティ図の手法を使って書いていますが、 以下のような場合、どう記述してよいのか悩んでいます。 ---------------------------------------------- ※レーンは「A部門担当者」と「B部門担当者」の2つがあります。 ０．初期状態 １．A部門担当者とB部門担当者が打合せをして、価格の条件を決める。 ２．１．で決めた条件を、B部門担当者が、販売システムに入力。 ---------------------------------------------- この後の業務フローは完成したのですが、 フローのスタート部分がこのような形で悩んでいます。 例えば、１は、 「A部門担当者」レーンと「B部門担当者」レーンにまたがって 「価格の条件を決める」という１つのアクティビティを記述する という方法でよいのか？など、が特に悩んでいるポイントです。 初歩の質問で大変申し訳ありませんが、このような場合の 記述方法について、どなたか教えていただけませんでしょうか？ よろしくお願いいたします。

Perlでテキストファイルを読み込み、テキストの一部を置き換えをするというプログラムを作っています。 用意されているテキストファイルは複数行あるもので、リスト作成ツールのフリーソフトにより作成されています。 目的はファイルを読み込み、一行一行中を見て特定の文字を置き換えて、最後に配列に一行一行いれていくというものです。 逆に配列に一度いれて一個一個置き換えてもOKで、結果が同じならばOKです。 以下にそのプログラムを書きます。 ############################## open(IN,"list.txt") || die "ファイルが見つからないので終了します。"; @file = <IN>; $count=@file; while(<IN>){ $_=~s/xls/エクセルファイル/; print "置き換え中!残りあと$count行です\n"; $count-- } close(IN); print"@file[18]","\n"; ############################## 最後の行で置き換えが成功したか見てますが、これを実行しても何も表示されません。 もちろん行数は18行どころか100行くらいあります。 たぶん配列の入れるタイミングとか何かが間違っていると思うのですが、どこで間違っているのかがよくわかりません。 教えていただけると助かります。

Perlでテキストファイルを読み込み、テキストの一部を置き換えをするというプログラムを作っています。 用意されているテキストファイルは複数行あるもので、リスト作成ツールのフリーソフトにより作成されています。 目的はファイルを読み込み、一行一行中を見て特定の文字を置き換えて、最後に配列に一行一行いれていくというものです。 逆に配列に一度いれて一個一個置き換えてもOKで、結果が同じならばOKです。 以下にそのプログラムを書きます。 ############################## open(IN,"list.txt") || die "ファイルが見つからないので終了します。"; @file = <IN>; $count=@file; while(<IN>){ $_=~s/xls/エクセルファイル/; print "置き換え中!残りあと$count行です\n"; $count-- } close(IN); print"@file[18]","\n"; ############################## 最後の行で置き換えが成功したか見てますが、これを実行しても何も表示されません。 もちろん行数は18行どころか100行くらいあります。 たぶん配列の入れるタイミングとか何かが間違っていると思うのですが、どこで間違っているのかがよくわかりません。 教えていただけると助かります。

SocketでURLで指定されたバナーを一旦ダウンロードし、 画像サイズを取得するプログラムなのですが、 以下のソースでは、画像が存在するURLを指定しても 「バナ－画像が存在しません。バナ－ＵＲＬを確認してください。」 となってしまいます。 どこが不具合なのか分かる方がいらっしゃれば教えて頂けないでしょうか？ サーバーは「land.to」です。 use Socket; sub GetBannerSize{ #バナ－サイズ取得(sock接続) my ( $url ) = @_; my ( $host, $port, $path, $dir, $file, $base, $ext, $width, $height, $ipaddr, $sockaddr, $tmpimg, $data ); $url =~ /(http:)?(\/\/)?([^:\/]*)?(:([0-9]+))?(\/.*)?/; $host = $3; if ($host eq "" || $host eq $ENV{'SERVER_NAME'}) {$host = 'localhost';} $path = $6; if ($path eq "") {$path = '/';} if ($path =~ /(.*)\/(.*)/) { $dir = $1.'/'; $file = $2; } else { $dir = './'; $file = $path; } if ($file =~ /(.*)\.(.*)/) { $base = $1; $ext = $2; } else { # 拡張子なし $base = $file; $ext = ""; } $port = getservbyname("http", "tcp"); $ipaddr = inet_aton($host) || &error("host($host) not found."); $sockaddr = pack_sockaddr_in($port, $ipaddr); socket(SOCK, PF_INET, SOCK_STREAM, 0) || &error("socket error."); connect(SOCK, $sockaddr) || &error("connect $host $port error."); select(SOCK); $|=1; select(STDOUT); print SOCK << "END_OF_DOC"; GET $path HTTP/1.0 Host:$host Connection:close END_OF_DOC while(<SOCK>){ last if m/^\r\n$/; } $tmpimg = ""; if ($ext eq "gif") { $tmpimg = "./temp/tmp.gif"; }elsif ($ext eq "jpg" || $ext eq "jpeg") { $tmpimg = "./temp/tmp.jpg"; }elsif ($ext eq "png") { $tmpimg = "/temp/tmp.png"; }else{ &error("画像形式が正しくありません。"); } open(OUT,">$tmpimg"); while (<SOCK>) { if ($_ =~ /<HTML>/i) { &error("バナ－画像が存在しません。バナ－ＵＲＬを確認してください。"); } print OUT $_; } close(OUT); close SOCK; $width = 0; $height = 0; if ($ext eq "gif") { open(IN,"$tmpimg") || return (0,0); binmode(IN); sysread(IN,$data,10); close(IN); if ($data =~ /^GIF/) { $data = substr($data,-4); } $width = unpack("v",substr($data,0,2)); $height = unpack("v",substr($data,2,2)); } elsif ($ext eq "jpg" || $ext eq "jpeg") { local($t, $m, $c, $l); open(IN,"$tmpimg") || return (0,0); binmode(IN); read(IN, $t, 2); while (1) { read(IN, $t, 4); ($m, $c, $l) = unpack("a a n", $t); if ($m ne "\xFF") { $W = $H = 0; last; } elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) { read(IN, $t, 5); ($height, $width) = unpack("xnn", $t); last; } else { read(IN, $t, ($l - 2)); } } close(IN); } elsif ($ext eq "png") { open(IN,"$tmpimg") || return (0,0); binmode(IN); read(IN, $data, 24); close(IN); $width = unpack("N", substr($data, 16, 20)); $height = unpack("N", substr($data, 20, 24)); } unlink $tmpimg; return( $width, $height ); }