Perlコーディング初心者質問スレ Part 56

1 名前：nobodyさん mailto:sage [2007/09/16(日) 19:49:43 ID:???] Perlのコーディングで困ってる人のスレです。 【投稿する際の注意】 質問するときは内容をよく吟味してから投稿してください。 「コマンドの意味がわかんない」とかはマニュアル見ましょう。 回答者さんは何でも屋じゃありません。 1： 自分はこういう事がしたい。 2： それでこんな風にやってみたが･･･ 3： こんなエラーが出て上手く行かなかった。 最低でも1と3が無いと誰も答えられないよ。 良い回答は良い質問から。一緒に勉強しましょう。 お勧めサイトは >2 以降 前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/ 過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/ 252 名前：nobodyさん mailto:sage [2007/10/04(木) 21:37:38 ID:???] >>250 fleur.hio.jp/perldoc/mix/pod/perlboot.html 253 名前：nobodyさん mailto:sage [2007/10/05(金) 09:42:06 ID:???] OOP 勉強したいなら Plagger に入門すればいいよ！ 254 名前：nobodyさん mailto:sage [2007/10/05(金) 12:41:48 ID:???] >>251 これは本当に超初心者向けといった感じですね。 >>252 これはわかりやすい！ >>253 こんな面白いものがあったんだ 255 名前：nobodyさん [2007/10/06(土) 12:48:34 ID:PfM+S4yJ] foreach(){} ↑フォーイーチみたいな発音でいいですよね・・・？ 256 名前：255 [2007/10/06(土) 13:03:13 ID:PfM+S4yJ] 追加お願いします。 use strict; my %hash = qw/2 5 s 2 d 3/; print map{"$_ " , 1}keys %hash; >Execution of C:\test.pl aborted due to compilation errors. これ何がいけないんですか？ print map{$_ ," ", 1}keys %hash; こう書き換えるとエラーになりません。 activeperl5.8.1のwinxp稼動です。 257 名前：255 [2007/10/06(土) 13:23:18 ID:PfM+S4yJ] ぐるせいや。ぐるせいや。 258 名前：nobodyさん mailto:sage [2007/10/06(土) 13:30:22 ID:???] >>256 perldoc map見れば分かる 259 名前：255 [2007/10/06(土) 15:01:35 ID:PfM+S4yJ] >>258 すいません。わからないです。 教えてください。 260 名前：nobodyさん mailto:sage [2007/10/06(土) 15:40:28 ID:???] > perldoc map見れば分かる > map - An utility to map texts from and to unicode ねーよｗｗｗ 261 名前：255 [2007/10/06(土) 17:19:29 ID:PfM+S4yJ] どなたか>>255-256の回答お願いできませんでしょうかm(__)m 262 名前：nobodyさん mailto:sage [2007/10/06(土) 17:33:12 ID:???] print map{("$_ ", 1)} keys %hash; 263 名前：nobodyさん mailto:sage [2007/10/06(土) 17:33:28 ID:???] 読み方なんてどーでもいいじゃん スクールでも始める気か？ 264 名前：nobodyさん mailto:sage [2007/10/06(土) 17:44:55 ID:???] >>255 dictionary.goo.ne.jp/search.php?MT=for&kind=ej&mode=0&base=1&row=1 dictionary.goo.ne.jp/search.php?MT=each&kind=ej&mode=0&kwassist=0 これぐらいは辞書引いたらどうよ。 >>256 perldoc.jp/docs/perl/5.6.1/perlfunc.pod > { はハッシュリファレンスとブロックの両方の開始文字なので、 > map { ... は map BLOCK LIST の場合と map EXPR, LIST の場合があります。 > perl は終了文字の } を先読みしないので、{ の直後の文字を見て > どちらとして扱うかを推測します。通常この推測は正しいですが、 > もし間違った場合は、} まで読み込んでカンマが足りない(または多い)ことが > わかるまで、何かがおかしいことに気付きません。 } の近くで文法エラーが出ますが、 > perl を助けるために単項の + を使うというように、{ の近くの何かを変更する必要が > あります。 perlの構文解析までは知らん。 265 名前：nobodyさん mailto:sage [2007/10/06(土) 17:49:40 ID:???] >>260 -fを入れることも自分で分からないようではいかんだろって意味であえて書かなかった 266 名前：255 [2007/10/06(土) 19:25:29 ID:PfM+S4yJ] >>264 ありがとうございます。 それでフォーイーチでいいのですか？ 用語なんで普通の読み方で本当にいいのかという意味の質問だったのですが。 mapの方ですが、 my $hash = {"A "=>"5" , "s"=>"2" , "d"=>"3"}; これでエラーが出ないんです。"A "でエラーが出ないのに、どうして print map{"$_ " , 1}keys %hash; でエラーが出て print map{$_ ," ", 1}keys %hash; でエラーが出ないのか。 よくわからないのですが、ハッシュリファレンスとしてエラーが出そうなのは後者だと思うんです。 カンマが足りないってことで。 そして前者はブロックとしても式としても何も問題がないと思うのです。 my $test = 1; if("$test " , 1){ print "ok"; } これを走らせてもエラーでないですし。 そこらへんどういうことなのかわかりますでしょうか？ 267 名前：255 [2007/10/06(土) 19:28:03 ID:PfM+S4yJ] >>265 -fってなんですか？ perl.misty.ne.jp/switch.html ここには載ってないですが。 268 名前：nobodyさん mailto:sage [2007/10/06(土) 19:31:23 ID:???] >>266 ＞それでフォーイーチでいいのですか？ 関数名の読み方に正解なんてないから好きに呼べよ。 余程狂ってなきゃ誰も笑ったりしないよ。 で、結局何が問題なんだ？ 結論は既に出てるし、perlの仕様について文句言われても困る。 269 名前：nobodyさん mailto:sage [2007/10/06(土) 19:32:40 ID:???] 釣りなのか読解力がないのか単なる馬鹿なのか 270 名前：nobodyさん mailto:sage [2007/10/06(土) 20:11:35 ID:???] >>267 perldocを嫁 271 名前：nobodyさん mailto:sage [2007/10/06(土) 20:42:22 ID:???] >>267 それはperlのオプション。 あんたが必要なのはperldocのオプションだから、 コマンドラインからperldoc perldocで確認すべし。 272 名前：255 [2007/10/06(土) 20:43:43 ID:PfM+S4yJ] >>268 何故エラーが出るのかわからないのです。>>266にあるとおりです。 >>264さんのところの話ではつじつまが合わないのです。 ＞map { ... は map BLOCK LIST の場合と map EXPR, LIST の場合があります。 どちらとして評価しても print map{"$_ " , 1}keys %hash; これでエラーが出る説明になりません。 273 名前：255 [2007/10/06(土) 20:47:23 ID:PfM+S4yJ] >>271 なるほどつまり-fの意味は perldoc -f map で、mapの仕様を確認しろって事なんですね。 274 名前：nobodyさん mailto:sage [2007/10/06(土) 20:59:58 ID:???] >>272 {"$_ " , 1}をEXPRとして、keys %hashをLISTと解釈すると、コンマが足らない。 275 名前：255 [2007/10/06(土) 22:39:59 ID:PfM+S4yJ] >>274 ん・・・ map EXPR, LIST 　　　　↑これかーー！ 納得です。ずっと{}の中のコンマばかりに注目してました。{}とLISTの間のコンマのあるなしが問題だたのですね。 276 名前：nobodyさん mailto:sage [2007/10/06(土) 23:23:20 ID:???] フォーイーチでいいんじゃないの？ 277 名前：nobodyさん mailto:sage [2007/10/06(土) 23:29:56 ID:???] perldoc に -f をつけるだけで上場できるインターネッツはここですか？ 278 名前：nobodyさん mailto:sage [2007/10/07(日) 13:10:36 ID:???] むしろ英単語の for と each をくっつけただけのものを 他になんて読めるのか知りたい 279 名前：nobodyさん mailto:sage [2007/10/07(日) 15:12:27 ID:???] >>278 仏単語の fo と 英単語の reach をくっつけたものという可能性も検討すべきでは？ 280 名前：nobodyさん [2007/10/07(日) 18:18:02 ID:LZD6O2BK] フォーチだろ。 281 名前：nobodyさん [2007/10/07(日) 21:49:16 ID:lRWvT8wN] ソケット使ってホームページを取得するプログラムを書いてます。 HTTP/1.1 200 OKが返ってきて、Content-lengthもある程度あるのに、 フッタが何もないことがあるのですがどうしてでしょうか。 正常に見れるサイトもあります。 use Socket; use FileHandle; $host = "www.ftnet.or.jp"; $path = "/FTtuusin/index.html"; $port = 80; $ip = inet_aton($host) || &error("host($host) not found.\n"); $SOCKADDR = pack_sockaddr_in($port, $ip); $res = &connect($host,$path,$port); print $res; exit; 282 名前：nobodyさん [2007/10/07(日) 21:51:37 ID:lRWvT8wN] sub connect { my ($res, $host, $path, $port); $res = ""; $host = $_[0]; $path = $_[1]; $port = $_[2]; # ソケットの生成 socket(SOCKET, PF_INET, SOCK_STREAM, 0) || return -1; # ソケットの接続 connect(SOCKET, $SOCKADDR) || return -2; autoflush SOCKET (1); print SOCKET "GET $path HTTP/1.1\n"; print SOCKET "Referer: $url\n"; print SOCKET "Host: $host:$port\n"; print SOCKET "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\n"; print SOCKET "Connection: close\n"; print SOCKET "\n"; foreach (<SOCKET>) { $res .= $_; } close SOCKET; return $res; } 283 名前：nobodyさん [2007/10/07(日) 21:53:04 ID:lRWvT8wN] レスポンスは HTTP/1.1 200 OK Date: Sun, 07 Oct 2007 11:31:44 GMT Server: Apache/2.0.52 (CentOS) Last-Modified: Fri, 16 Jun 2006 05:41:38 GMT ETag: "4474a-daf-deccc880" Accept-Ranges: bytes Content-Length: 3503 Connection: close Content-Type: text/html 284 名前：nobodyさん mailto:sage [2007/10/07(日) 23:54:11 ID:???] フッタって何の事言ってる？ 285 名前：281 mailto:sage [2007/10/08(月) 00:21:06 ID:???] すまん、確かにフッタって言葉は違う気がしてきた。 本文の部分です。htmlが書かれてる部分。 286 名前：nobodyさん mailto:sage [2007/10/08(月) 02:57:53 ID:???] >>281 「何もない」状態を確実に再現できる例を 用意してくれないと、デバッグの手伝いはできないよ。 少なくとも手元の環境だと>>281-282のコードとサイトは 一応動くし全部取得できている。 287 名前：nobodyさん mailto:sage [2007/10/08(月) 03:06:09 ID:???] HTTPは正確には\nではなく\r\nでそ 288 名前：nobodyさん mailto:sage [2007/10/08(月) 03:32:19 ID:???] HTTP/1.0にしたら解決しましたって答えは無しな。 わざわざ作るなら1.1を使う物を作ろうよ。 289 名前：nobodyさん mailto:sage [2007/10/08(月) 03:33:54 ID:???] 答えじゃないな。解決法だなorz 290 名前：nobodyさん mailto:sage [2007/10/08(月) 06:54:42 ID:???] ちょっとここでいいのかどうかわかりませんが、質問です。 HTML-Parser-3.56を、cpan2rpmで.rpmにリビルドしようとしてたんですが、 make testの段でエラーになります。 (略・・・ t/unbroken-text......ok t/unicode-bom........ # Failed test in t/unicode-bom.t at line 43. # got: 'Parsing of undecoded UTF-8 will give garbage when decoding entities at t/unicode-bom.t line 24. # Parsing of undecoded UTF-8 will give garbage when decoding entities at t/unicode-bom.t line 28. # Parsing of undecoded UTF-16 at t/unicode-bom.t line 31. # Parsing of undecoded UTF-16 at t/unicode-bom.t line 34. # Parsing of undecoded UTF-32 at t/unicode-bom.t line 37. # Parsing of undecoded UTF-32 at t/unicode-bom.t line 40. ・・・・(略) t/unicode............ok t/xml-mode...........ok Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t/unicode-bom.t 1 256 2 1 50.00% 1 1 test and 1 subtest skipped. Failed 1/48 test scripts, 97.92% okay. 1/430 subtests failed, 99.77% okay. 291 名前：つづき mailto:sage [2007/10/08(月) 06:55:12 ID:???] で自前で、tar xzf HTML-Pasrer-3.56 perl Makefile.PL make make test したときは、ビルドエラーにならず、 （略... t/xml-mode...........ok All tests successful, 1 test and 1 subtest skipped. Files=48, Tests=430, 5 wallclock secs ( 3.03 cusr + 1.62 csys = 4.65 CPU) と、ちゃんと通ります。 そこで、途中経過のspecファイルと、自前make時の出力を見比べてみると、 1:cd HTML-Parser-3.56 2:grep -rsl '^#!.*perl' . | 3:grep -v '.bak$' | 4:xargs --no-run-if-empty /usr/bin/perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)' 5:/usr/bin/perl -MExtUtils::MakeMaker -e ' print qq|PREFIX=/var/tmp/perl-HTML-Parser-3.56-root/usr| if $ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ ' | 6:/usr/bin/perl Makefile.PL と、cd HTML-Parser-3.56 から /usr/bin/perl Makefile.PLまでの間になにか挟まってます。(↑のはcpan2rpmで出来たspec) 多分、5行目は、仮インストールPREFIXを指定してるとこなので必要だとは思いますが、2,3,4行目でやってることの 意味がわかりません。 292 名前：つづき2 mailto:sage [2007/10/08(月) 06:56:35 ID:???] ためしに自分で展開したHTML-Parserに、上の部分だけ(5行目以外)shスクリプトにコピペして実行してみると、 make testでエラーになりました。 さらに、2,3部分のみ実行すると、 ./t/document.t ./t/marked-sect.t ./t/dtext.t ./t/msie-compat.t ./t/stack-realloc.t ./t/headparser.t ./t/crashme.t ./t/script.t ./t/filter-methods.t ./t/entities2.t ./t/unicode.t ./t/unicode-bom.t ./eg/hlc ./eg/hform ./eg/hstrip ./eg/htitle ./eg/htextsub ./eg/htext ./eg/hanchors ./eg/hdump ./eg/hrefsub ./mkpfunc ./mkhctype と、こんな結果になるんですが、これをlist(@ARGV)として perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'に渡してるんだと思うんですが、 この'MY->fixin(@ARGV)'がなにをやってるのかがわかりません。 MakeMaker.pmやそこからuse,requireしてるモジュールから'fixin'関数を探しましたが見つからず、 また、ggってみても、cpan2rpmの途中経過を報告してるページにHITするだけで、これが何を意味してるかがわかりません。 specから、この2,3,4の部分を消してrpmbuildするとちゃんとビルドが通ることは通るんですが、 なにか重大な落とし穴があるような気がして、気持ち悪いです。 293 名前：290 mailto:sage [2007/10/08(月) 07:22:51 ID:???] おっと、MM_Unixのマニュアルに’fixin’を発見。今までWin機にインストールされたマニュアルみても出てこんわけだ。 でも、説明の　Inserts the sharpbang or equivalent magic number to a set of @files.　で？？ sharpbangってなんですか。 さらにUnix版のMakeMaker.pm内で検索かけても’fixin’で出てこない。 なおさら？？？です。 294 名前：290 mailto:sage [2007/10/08(月) 07:37:52 ID:???] なんべんも連投すいません。 sharpbangってのはどうやらファイルの頭の #!/usr/bin/perl ってのらしいですが、ますます訳がわかりません。 一晩寝てないんでもう頭がバグってきました。 もう寝ます。 295 名前：nobodyさん mailto:sage [2007/10/08(月) 11:25:25 ID:???] > 一晩寝てないんでもう頭がバグってきました。 徹夜なんかする奴はばかです。 296 名前：281 mailto:sage [2007/10/08(月) 12:47:24 ID:???] >>286 >>281は余計と思われる部分を省いて、通信に関わる部分だけを書いたんですが それを実際に自分で動かしてみたら正常に動きました。 htmlを取得したあとの文字列処理が原因だったようです。 ご迷惑おかけしました。ｻﾝｸｽです。 297 名前：nobodyさん mailto:sage [2007/10/08(月) 15:03:02 ID:???] >>290-294 そこまで辿れてるのならソース見れば？ search.cpan.org/src/MSCHWERN/ExtUtils-MakeMaker-6.36/lib/ExtUtils/MM_Unix.pm ザラっと読んだ限りでは shebang (sharpbang) 行を自分の環境に 合うものへ修正しているみたいだけど。 298 名前：290 mailto:sage [2007/10/08(月) 21:22:47 ID:???] 昼間寝てリフレッシュしたんで、追跡再開。 >>297のおっしゃる通り、’MY->fixin(@ARGV)’で、292のテストスクリプト一式の先頭行が、 #!perl -w から #!/usr/bin/perl -w に書き換えられてる模様。 でその下に3行ほど、 eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell ってゆうコードが追加されてます。 それ以下、use strict・・・からの実行部分は両者（自前makeとcpan2rpm)で一字一句違いなし。 (ここからはmake testでエラーの出る t/unicode-bom.tに絞って追っています) なんで上の追加された３行が原因か？と調べてみると、ここの部分は、どうやら一部の/bin/shが頭の #!/usr/bin/perl(sharpbang)を認識しない時用に直接shから起動させるためのコードの模様。 これが原因ではないっぽい。 う〜んと思ってスクリプトを上から順になぞっていくと、 ！！！！！っ！　わかったーーー！！ このスクリプトの後半部分で、is(join("",@warn), <<EOT)以下で、warningのトラップをしてるんだけど、 うえの３行が追加されたことによって、当然実行部分の行数が３行づつ下がってるんだけど、 warningトラップの各対応行がもともとのまま(つまり実際の行数-3の)部分と比較しようとして is()がこけてmake testがエラってたんです。 >>295 いや〜〜、やっとエラーの原因つかめてすっきりしました。これで今晩はゆっくり寝れます。 299 名前：sage [2007/10/09(火) 19:35:34 ID:oM/XiNAd] Net::Telnetモジュールについての質問です。 ルーターにログインし、$telnet->cmd("show running-config")にて現在のルーターの設定を取得したいのですが、 取得した設定の中に、現在のプロンプトを示す文字列(例えば'#'など)があった場合、そこの行でデータの取得が終わりになってしまいます。 $telnet->promptコマンドにてユーザープロンプトを設定したのですが、その文字列もルーターの設定の中にあった場合、そこで設定の取得が止まってしまいます。 以下に例を書きます。 use Net::Telnet; use strict; my $telnet = new Net::Telnet( Timeout => 10); #ログイン、特権モードへ $telnet->open(host_name); $telnet->login(user_name,password); $telnet->print("enable");#特権モードに $telnet->waitfor("/Pass/i"); $telnet->print(priv_password);#特権パスワード $telnet->waitfor('/#/'); #特権プロンプトで待つ my @show_run = $telnet->print('show running-config'); $telnet->waitfor("hogehoge"); ここのhogehogeに設定した文字列がrunning-config内にある場合、 そこでrunning-configの取得が終了してしまいます。 なにかうまい回避方法があればご教授願います。 300 名前：nobodyさん mailto:sage [2007/10/09(火) 20:11:15 ID:???] >>299 search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm @show_run = $telnet->getlines; とか push @show_run, $ｌｉｎｅ while $line = $telnet->getline(Timeout => 1); で なんとかならんか。Net::Telnet 使ったことないし試してないけど。 301 名前：nobodyさん mailto:sage [2007/10/09(火) 22:13:34 ID:???] 正規表現でもっと詳細に指定してみるとか。 302 名前：nobodyさん [2007/10/09(火) 22:14:34 ID:gGNoM/Xe] Can't locate object method "new" via package "XML::RSS" (perhaps you forgot to load "XML::RSS"?) at XML/RSS.pm line 3. って出たんですがこのエラーはなんですか？ 303 名前：nobodyさん mailto:sage [2007/10/10(水) 00:01:33 ID:???] XML/RSS.pmの ソースコードの3行目で XML::RSSのロードを忘れたので オブジェクトメソッドであるnewを 配置できなかった。 304 名前：nobodyさん mailto:sage [2007/10/10(水) 01:09:25 ID:???] >>299 $telnet->prompt('/user prompt $/'); 305 名前：nobodyさん mailto:sage [2007/10/10(水) 15:24:05 ID:???] 類似した関数を各ファイルにまとめて、それをuseして使っています。 しかし、それぞれのモジュールで、use CGI　としているのですが、 これにより余計な負担がかかっているということはありますか？ 306 名前：nobodyさん mailto:sage [2007/10/10(水) 18:20:17 ID:???] 構造を見直すべきだと思うが、 %INCがちゃんとしてくれるから 重複されてロードされるとかはないはず 307 名前：nobodyさん mailto:sage [2007/10/11(木) 16:13:57 ID:???] キャッシュを貯めているフォルダが大きくなりすぎてFTPクライアントではアクセスできません フォルダごと削除したいのですがスクリプトでどうにかできますか？ 308 名前：nobodyさん mailto:sage [2007/10/11(木) 17:28:34 ID:???] system "rm -rf /"; 309 名前：307 mailto:sage [2007/10/11(木) 17:56:32 ID:???] >>308 消すことができました ありがとうございます 310 名前：nobodyさん mailto:sage [2007/10/11(木) 18:07:02 ID:???] ちょｗｗｗ 311 名前：nobodyさん mailto:sage [2007/10/11(木) 18:38:41 ID:???] ヤフーで検索した検索の秒数や検索されたURLの一覧を出すような事は Perlで実現可能でしょうか？ 例えば「リンゴ」で検索すると自身のサイトで --------------------------------------- ・約27,900,000件 ・0.01秒 　・ja.wikipedia.org/wiki/リンゴ 　・www.kcsnet.ne.jp/kyoei 　・www.kodomo-iin.com/HL/HL220.html 　・www.hasp.tv 　・www.yumeringo.com 　　　(続く --------------------------------------- このように表示させたいのです。 もし実現可能であれば、どのような仕組みを学べば良いでしょうか。 312 名前：nobodyさん mailto:sage [2007/10/11(木) 19:19:28 ID:???] ヤフーがAPI用意してればできるんじゃない？ 313 名前：nobodyさん mailto:sage [2007/10/11(木) 19:30:54 ID:???] ヤフーAPIならとっくに公開してるぞ 314 名前：nobodyさん [2007/10/12(金) 04:05:22 ID:i4CjOo+I] XML::RSSについて質問です。 rssのバージョンが1.0の場合、以下のソースの#エラーが出るの部分で Use of uninitialized value in concatenation (.) or string at rss line 21. というエラーが出てしまいます。 他の<link>タグなどの場合は表示できるので <dc:date>などの名前空間を使っているタグの場合に 上記のエラーが出てしまうみたいです。 どうすれば、名前空間のタグデータも表示できますか？ my $rss = new XML::RSS; my $url = "hoge.con/rss.xml"; my $dat = get($url); my $result = $rss->parse($dat); foreach my $item ( @{$rss->{'items'}} ){ if($result =~ /1.0/){ print "@{$item_list}[0]->{'dc:date'}\n"; #エラーが出る }elsif($result =~ /2.0/){ print "@{$item_list}[0]->{'pubDate'}\n"; } } 315 名前：nobodyさん mailto:sage [2007/10/12(金) 04:09:29 ID:???] print @{$item_list}[0]->{'dc:date'} || '', "\n"; とか。 316 名前：314 mailto:sage [2007/10/12(金) 04:37:32 ID:???] すいません。 ソースがおかしかったんで張りなおします。 my $rss = new XML::RSS; my $url = 'hoge.com/rss20.xml'; my $dat = get($url); my $result = $rss->parse($dat); foreach my $item ( @{$rss->{'items'}} ){ if($result =~ /1.0/){ print "$item->{'dc:date'}\n"; #エラーが出る }elsif($result =~ /2.0/){ print "$item->{'pubDate'}\n"; } } 317 名前：314 mailto:sage [2007/10/12(金) 04:50:59 ID:???] 自己解決しました。 print "$item->{'dc'}->{'date'}\n"; という記述でうまくいきました。 お騒がせしました。 318 名前：nobodyさん [2007/10/12(金) 22:46:03 ID:w18ekEW+] ここにいる人は仕事でもPerlに問わずプログラミングをしてるのですか？ そういう仕事に就くにはやはり学校などを出てる必要があるのでしょうか？ いわゆる大卒みたいな最低条件というか。 前から一度経験してみたいなと思っていましたが、そういうアルバイトはないんでしょうか。 建設現場の日雇いみたいに気軽にやってみたいです。 本業はありますが、結構時間はあるほうなので。 この世界はどうなってるのでしょうか？ 319 名前：nobodyさん mailto:sage [2007/10/12(金) 22:50:35 ID:???] 仕事に関する大事なことを自分で調べず2chで聞いてる時点で・・・ 320 名前：nobodyさん mailto:sage [2007/10/12(金) 22:59:11 ID:???] セックスアパートって会社で働くといいよ。 321 名前：nobodyさん [2007/10/12(金) 23:23:59 ID:w18ekEW+] ２ちゃんをバカにしてる利用者ほどその利用方法はひどいって法則誰かが言ってましたね。 322 名前：nobodyさん mailto:sage [2007/10/13(土) 00:20:58 ID:???] プログラマーなんて趣味の延長だろ 24時間ＰＣの前でカタカタやるのが楽しくなきゃやってられない 323 名前：nobodyさん mailto:sage [2007/10/13(土) 00:22:01 ID:???] 「CGI Perl 実務経験なし 初心者OK」で求人サイト検索すりゃいいべ。 324 名前：nobodyさん mailto:sage [2007/10/13(土) 00:26:24 ID:???] >>321 その手の切り返しパターンもう飽きた 325 名前：nobodyさん mailto:sage [2007/10/13(土) 00:41:31 ID:???] 多分しっかりやらないとプログラムは楽しくない。 326 名前：nobodyさん mailto:sage [2007/10/13(土) 02:59:15 ID:???] プログラマーは3桁残業にも耐えられる精神力＋体力が必要。 年取ったら高確率で禿げそう。 327 名前：nobodyさん [2007/10/13(土) 15:06:53 ID:iKtPwiMH] $a = 0000010 この文字列を数字に変える（$ = 10） 簡単な表記はありますでしょうか？ sprintf使ってみたのですが上手くいきません 328 名前：nobodyさん mailto:sage [2007/10/13(土) 15:10:02 ID:???] それは文字列じゃなくて８進数じゃ？ もし$a= "0000010"; なら 関数int使えばいい 329 名前：３２７ mailto:sage [2007/10/13(土) 15:13:51 ID:???] すみません 自己解決しました %dで 330 名前：318 [2007/10/13(土) 16:40:37 ID:5Vuk1MtC] この雰囲気からすると日雇いなんかなさそうですね。 しかしこういう雰囲気からすると日雇いなんかありませんよね。 ちょっと待って日雇いなんかありませんよ。 実際いきなりそれを本職とするのは厳しい。 どういう雰囲気なのか味わいたいだけと考えるとそういう会社で働いてる人脈を作るのがよさそうですね。 ここの本職の方は会社と自宅以外にどこに行きますか？ 明日とかきっと休日だと思いますけど、街へ行ったりするんですか？ 家族持ちだとどうしても接点を取っても仲良くはなれなさそうだから。 独身がいい。女を紹介とかすればそれなりに仲良くなれる気がするんですが。 どうですかね。女は嫌いですか？ 331 名前：nobodyさん mailto:sage [2007/10/13(土) 18:43:45 ID:???] コーディング初心者質問スレであって、IT 土方向けの仕事斡旋スレではないんだよなぁ。 332 名前：318 [2007/10/13(土) 19:19:29 ID:5Vuk1MtC] なるほど。 やはり頭は固いと。 333 名前：nobodyさん mailto:sage [2007/10/13(土) 21:12:30 ID:???] 釣りにしては程度が低すぎるんだが、これは素で言ってるのか？ｗ だとしたらやばすぎる。 334 名前：nobodyさん mailto:sage [2007/10/13(土) 21:40:38 ID:???] スルーしとけよ 335 名前：nobodyさん mailto:sage [2007/10/13(土) 21:48:34 ID:???] スレ違いという自分のミスを指摘され 馬鹿にされ悔しさのあまり慢心で書き 出した文章がこれ 336 名前：nobodyさん [2007/10/13(土) 21:53:08 ID:fl6REYk4] ＩＰアドレスから携帯かＰＣかを判断したいんですがどうやればいいんですか？ 337 名前： ◆TWARamEjuA mailto:sage [2007/10/13(土) 22:06:27 ID:???] ここで宣う前に「調べる」ことをお勧めいたします。 338 名前：336 mailto:sage [2007/10/13(土) 22:23:53 ID:???] ググっても分からなかったので教えてもらえませんか 339 名前：nobodyさん mailto:sage [2007/10/13(土) 22:31:44 ID:???] どうググったのですか 340 名前： ◆TWARamEjuA mailto:sage [2007/10/13(土) 22:35:33 ID:???] (´-`).｡ｏＯ(ググる≠調べる　ググる＝さがす　・・・と思うけれども。。。) 341 名前：336 mailto:sage [2007/10/13(土) 22:58:35 ID:???] perl 　IPアドレス　携帯か　判断 とかで検索したけど出てきませんでした 342 名前：nobodyさん mailto:sage [2007/10/13(土) 23:16:28 ID:???] 俺なら perl 携帯　判定 でぐぐるな。 343 名前：nobodyさん mailto:sage [2007/10/13(土) 23:43:01 ID:???] cpanでmobile ipとかで調べたらいいんじゃね？ 344 名前：nobodyさん mailto:sage [2007/10/13(土) 23:50:32 ID:???] >>342 それだとＵＡ判定が多いんじゃ？ 携帯 ＩＰアドレス wiki　で検索かけたらあったぞ 345 名前：336 mailto:sage [2007/10/13(土) 23:56:59 ID:???] ＵＡで判定できるなんて知らなかった。 ＩＰアドレスより楽みたいですね。 346 名前：342 mailto:sage [2007/10/14(日) 00:01:08 ID:???] >>344 そうだった。IPで判定したいんだったな。これは失礼。 347 名前：336 mailto:sage [2007/10/14(日) 00:06:15 ID:???] ＵＡで判定したら携帯ブラウザエミュだと携帯で判定されるのか。 ＩＰアドレスの方が確実ってことかな？ 348 名前：336 mailto:sage [2007/10/14(日) 00:16:57 ID:???] 携帯ってＩＰアドレスの種類どんどん増えてってたのか・・・ 諦めてＵＡで判定します。 349 名前：nobodyさん mailto:sage [2007/10/14(日) 03:31:42 ID:???] CPANにモジュールあるよ。 350 名前：nobodyさん mailto:sage [2007/10/14(日) 06:50:16 ID:???] フォームって別ドメインのCGIスクリプトにも送信できたっけ？ 351 名前：nobodyさん mailto:sage [2007/10/14(日) 07:54:33 ID:???] >>349 それって DIS るのが生きがいの人のだっけ？ 352 名前：nobodyさん mailto:age [2007/10/14(日) 07:54:34 ID:???] open関数で開けるファイルって同じサーバーにある必要がありますよね？ 別サーバーにあるファイルの情報を参照する方法はあるのでしょうか？ あるのでしたら方法をお教え下さいますようお願いします。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef