![]()
- Socketに関して
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 ); }
- 就職するまでに覚えといたほうがいいプログラミング言語はありますか？
私はIT業界でSEの仕事をしたいとおもっております。大学でPCを扱うことはほとんどないのです。企業でPCスキルに関しては１～教えてくださるということなのですが、就職するまでに少しでもPCスキルみにつけたいとおもっております。ネットサーフィンくらいしかやったことがない初心者の私が、プログラミングやワード、エクセルなど、やっといたほうがいいことを教えてください？？おすすめのサイトなどもありましたら教えてください？？ これだけは社会人になるまでにやっといたほうがいいことでも回答うけつけます＾＾よろしくお願いします。
- 締切済み
- marines777
- その他（プログラミング・開発）
- 回答数7
- SmartyとSJIS
テンプレートファイルに特定の文字を書くとfatal error ～～tag というエラーがでます。 {literal}{/literal}で囲めば問題ないのですが、それ以外の方法はないでしょうか？ 文字コードはSJISから変更することはできません。
- 同じディレクトリに置いたpmが「Can't locate」になってしまう
main.pl にて、 use WWW::Mixi; print "test"; として、同じディレクトリにMixi.pmを置いています。 別環境の方に配布したい関係で、CPANからのインストールは 考慮したくない場合、このMixi.pmをmain.plから利用するには、 どのように書けばよいのでしょうか？ use lib qw(./); や、main.plがあるディレクトリから、 WWW/Mixi/ というディレクトリを掘ってそこに置く 等も試してみましたが、Can't locate と言われてしまいます。 または、不可能でしょうか？
- もっと短くコードをかきたい
PHP初心者です。 下記のコードを書いたのですが、問題なく動作します。 <?php if ($_COOKIE["pid"] == ""){ $pid = $_GET["pid"]; setcookie("pid", $pid, time()+60); }elseif ($_GET["pid"] == ""){ $pid = $_COOKIE["pid"]; }elseif ($_GET["pid"] !== $_COOKIE["pid"]){ $pid = $_GET["pid"]; setcookie("pid", $pid, time()+60); }else{ $pid = $_COOKIE["pid"]; } ?> ただ、あまり良い書き方ではないような気がするのですが、 もっと短くコンパクトに書く方法はないのでしょうか。 ご協力お願いします。 （ちなみにプログラムの用途は引数によって表示するhtmlを変えるといったものです。）
- PHPとPerlの違い
私はシステムに関して全くの素人ですが、会社でPerlを使わなければならない業務があり、ここ３年で独学でPerlを勉強し使っています。しかしながら最近になって同様の業務をPHPで実施している競合他社を見て、上司がPHPへの変更を求めてきました。 社内では特にPHPに詳しいものはいないため、やはり私が独学でやっていく必要があるのですが、PerlとPHPの違いって端的に言うとどのようなものなのでしょうか。実際に記述する上でという側面と、それぞれで作成されたサイトを使う側の操作性や利便性の違いという点、またその他PHPの利点など何かご存知のことがございましたらお教えください。
- use strictとグロブ？
cgi-lib.plのReadParseの引数でParamグロブを使った場合、 use strict;をすると、必ず以下のエラーが表示されます。 use strictはそのまま使いたく、他の部分も厳密にチェックしたいのですが 何かよい方法はありますか？ use strict; require 'cgi-lib.pl'; &ReadParse(*Param); my $MODE = $Param{'MODE'}; <----- errro Variable "%Param" is not imported at
- ファイルに書き込んだ際に余計な空行が入ってしまう
テキストエリアに入力された内容からプルダウンメニューの選択肢を生成させようと以下のようにしているのですが、作成されたファイルを見ると入れた覚えのない改行が余計に入ってしまい空行ができてしまいます。書き込んだファイルがこの状態でもプルダウンメニュー生成の際は空の選択肢が出来てしまうようなこともなく正常に生成できるのですが、なんか気になってしまい・・・・。 この空行ができてしまうのはなぜなんでしょうか、この空行を作らずにファイルに書き込みたいのですが。 入力部 <textarea name="pulldownvalue" rows="10" cols="10" wrap="OFF"></textarea> ファイル書き込み部 if($INPUT{'pulldownvalue'}){ open(FILE,">pulldown.txt"); print FILE "$INPUT{'pulldownvalue'}"; close(FILE); } pulldown.txtの内容がこうなってしまう: textsample textsample textsample これをこのようにしたい： textsample textsample textsample
- テキストエリアが複数あるときの改行変換方法
CGIを改造中です。 ログに保存するとき改行(<BR>)を変換する必要があると思うのですが、 複数のテキストエリアがある場合はどのようにしたら良いのでしょうか? 現状 $in{'$com1'} =~ s/\r\n/<br>/g; $in{'$com1'} =~ s/\r/<br>/g; $in{'$com1'} =~ s/\n/<br>/g; $in{'$com2'} =~ s/\r\n/<br>/g; $in{'$com2'} =~ s/\r/<br>/g; $in{'$com2'} =~ s/\n/<br>/g; ～～ と言う風に書いていますが、うまく変換されていないようで、ログが崩れてしまっています。 どのように記述するのが良いのでしょうか?
- 締切済み
- master-3rd
- Perl
- 回答数1
- split後のデータ数でなくて、リスト値を代入したい。
my %hash = (); $hash{'NAMAE'} = "田中"; $hash{'TEN'} = split(/,/, "100, 50, 70"); 名前はスカラーデータなので、問題ないのですが点数はリストなので このまま代入し、 $has{'TEN'}で見てみると3というデータ数が入ります。 これをリストで代入させたいのですがどうすればよいのでしょうか？
- webプログラミングを始めたいと考えていますが・・・
始めまして。 私は大学生なのですが、今後の就職のため、あるいは趣味の一つとしてプログラミングを学んでみたいと考えています。 趣味の一環として、ホームページを作る技術や知識はありますが、プログラミングの知識はVBやVBAをちょっとかじった事がある程度。 つまり、ほぼ何もわからない初心者なのですが、将来的にはPHPやjavaScriptなどに始まり、AJAXを組んでみたいと考えています。 初心者がまず、AJAXを組んでみたい、というのであれば、どのような事を勉強する必要があるでしょうか？ AJAXという事で、まずHTMLやCSS、javaやxmlくらいは最低限必要であると思うのですが、必要性のあることを教えていただければ幸いです。 また、そのようなものを学ぶにあたり、オススメできる、初心者向けで良い書籍や入門書などを紹介していただけたら更にうれしいです。 もしよろしければ、よろしくお願いしますm(__)m
- ベストアンサー
- kenji1997
- JavaScript
- 回答数3
- awkで検索し、特定のフィールドを抽出する方法
UNIX初心者です。 以下のようなデータファイル（AA.dat）から、条件を満たすデータの特定フィールドを別のファイル（BB.dat)に出力したいのです。 どのようにしたら良いのでしょうか？ AA.dat(CSV形式） aaa,22,33,44,55,66,77,88,1,1,0,0,1001 bbb,22,33,44,55,66,77,88,1,1,0,0,1002 ccc,22,33,44,55,66,77,88,1,0,0,0,1001 ddd,22,33,44,55,66,77,88,1,1,0,0,1002 抽出条件（フィールド＝$1～$13) $9==1 かつ $10==1 かつ $11==0 かつ $12==0 かつ $13==1002 出力するフィールド $1,$2,$4,$7,$8 出力結果 BB.dat(CSV形式） bbb,22,44,77,88 ddd,22,44,77,88
- ベストアンサー
- sisizoo
- その他（プログラミング・開発）
- 回答数2
- Ajaxから画像ファイルへのリクエスト
こんにちは。 現在、prototype.jsを使用してAjaxについて勉強をしています。 【質問】 画像ファイルへAjax.Requestを使用してリクエストを送信した場合、JavaScriptでは受信したバイナリデータを扱う事は出来ないのでしょうか。 【サンプルコード】 new Ajax.Request("hoge.gif", { method: "get", onSuccess:function(httpObj){ var body = httpObj.responseBody; } }); ※ 変数bodyにバイナリデータが入っていると思ってます。 色々調べて周ってみたのですが、画像等のバイナリファイルへリクエストを送信している様な例が無かったので、Ajaxでの通信はテキストデータのやりとりを前提としているのかなと、勝手に予測してみたのですが、どうなんでしょうか。 下記サイトでHttpRequestオブジェクトについて調べてみても、MIMEを取って来れなさそうだったので、やはり扱え無いのかなと思いました。 http://www.devguru.com/Technologies/xmldom/quickref/obj_httpRequest.html あと、余談ですが上記サンプルコードの変数bodyをtypeof()に渡すとunknownになるのですね。。。（IE6） 質問は以上です。 どなたか、暇な時にでもご回答頂ければ幸いです。
- ベストアンサー
- t_wada
- JavaScript
- 回答数2
- Perlでブラウザのようにクッキーデータ送信して、同じデータを見たい。
クッキーをクライアント側から操作したいのですが、 IEなどブラウザがサイトアクセスした時にどのようにクッキーデータを送っているか知りたいです。 GET / HTTP/1.0\n\n は、わかりますが、クッキーデータはどのタイミングで、どういう形式で送信しているのか、ブラウザのように振舞いたいのですがわかりません。 あるサイトはクッキーを認証として使っているのですが、コマンドラインから情報を取得するperlを書いているのですが、クッキーのため別画面の結果が返ってきます。IEでは正しく見れるのですが、perlからは方法がわからないため、できませんでした。
- 携帯サイトとPCサイトの振分け、エージェント判別以外の方法
PCサイトと携帯サイトの振分け方法でユーザーエージェントの判別で振分ける方法ではなくて、ホスト？かIPアドレス？(すいません、よくわかりません。)等で振分ける方法で振分けたいのですが、やり方がわかりません。 私はフリーのcgiのメールフォーム、ユーザーエージェントの振分けなどの単純な比較的で単純なcgiの設置なら出来る程度のレベルです。 どなたかご教授お願い致します。
- テーブル内のテーブルの高さを揃えたい。
CGIの表示部分を改造中です。 下のソースをhtmlファイルにして見てもらったら判ると思うのですが、 <TABLE border="0"> <COL span="4" width="50"> <TR> <TD valign="top"> <TABLE border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc" height="100%"> <TR> <TD bgcolor="#ffffff">こんな風に</TD> </TR> </TABLE> </TD> <TD valign="top"> <TABLE border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc" height="100%"> <TR> <TD bgcolor="#ffffff">枠を置いたときに</TD> </TR> </TABLE> </TD> <TD valign="top"> <TABLE border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc" height="100%"> <TR> <TD bgcolor="#ffffff">100%のサイズ指定しても合わない高さを</TD> </TR> </TABLE> </TD> <TD valign="top"> <TABLE border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc" height="100%"> <TR> <TD bgcolor="#ffffff">ちゃんと揃えて配置したい</TD> </TR> </TABLE> </TD> </TR> </TABLE> 高さを100%にしても広がりませんでした。 どうにかして高さ(下の位置)を揃えることは出来ないでしょうか?
- ベストアンサー
- master-3rd
- HTML
- 回答数5
- GETとクッキーの併用
php初心者です。 今、訪問する場所からの違いによって表示するコンテンツを切り替えるというプログラムをかいています。 訪問する場所からの違いというのは リンク元に引数をもたせ(index.html?key=*****) コンテンツを切り替えるのはその引数をそのまま インクルードファイル名にさせています。 ここまではうまくいったのですが、 訪問した以降はその引数をクッキーに保存し自由に移動できるようにさせたいのですが、どうやらリンクの引数がないページに行くと クッキーが削除されているようでうまくいきません。 例えば、下階層に下ることや横に移動するリンク移動をしても、 クッキーの保存データはしっかり残っているのですが、 最初に訪問したページに「index.html?key=*****」ではなく、「index.html」でもどるとクッキーが勝手に削除されてしまうのです。 下記コードになります。 <?php $value = $_GET["key"]; setcookie("key", $value); ?> <html> <head> <body> ------------------中略------------------ <?php $html = ".html"; $path = "common/template/"; include($path.$_COOKIE["key"].$html); ?> </body> </html> setcookieに入る値を受け取った変数でなく、 静的な文字列（"*********"）にするとどんなことをしようが 削除されることはないのですが、、、 GET変数ではそのようなことはできないのでしょうか。 どなたかお教えいただけますでしょうか。
- webデザイナーの将来
現在webデザイナーを目指しながらフリーターをしている23歳です。現在、現役でデザイナー職をしている方に質問したく投稿しました。 デザイナーになりたいと思い色々参考本を買い勉強しているのですが、最近、ＭＳがwebデザインソフトを発表したり、アドビが新しいプログラムを開発したりと日に日にweb業界が進歩しているのを目の当たりにすると、この先この業界はどうなっていくのだろう。いまからXHTML、FLASHを覚えたって遅いんじゃないかと不安になってきます。 デザイナーの皆さん、もし今からデザイナーを目指すならどんな技術がもっとも必要となってくるでしょうか。 是非アドバイスを下さい。宜しくお願いします。