Perlについての質問箱 37箱目

1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、 Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 ( WEBプログラミング板 pc11.2ch.net/php/ ) CGIの質問は答えが Perlと全然関係ない話に帰着する場合が 多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2008/08/11 現在の最新版（安定版）: 5.10.0 ● 2008/08/11 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 36箱目 pc11.2ch.net/test/read.cgi/tech/1215569470/ リンク集は>>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは>>5-6 あたり 202 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:54:32 ] おまえもな 203 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:09:57 ] おまえもな 204 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:11 ] おれらもな 205 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:56 ] おまえだけだよ 206 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:24:36 ] いやいやおまえもだろ 207 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 02:58:59 ] もういいです 208 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:06:12 ] いやいやよくない 209 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 15:22:53 ] こういうのははっきりさせとかないとな 210 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:06:37 ] 正規表現って、 s///と、 tr///と、 m///と、 3つの種類しかないの？ 211 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:13:12 ] つ split(//) 別にこれらが正規表現な訳では無い これらのパターンマッチ関数で正規表現を使用しているという事 212 名前：デフォルトの名無しさん [2008/08/20(水) 20:38:24 ] 質問age hoge.plは処理の中でlocaltimeを取得するんですが、hoge.pl自体の改修はせずに 実行時にlocaltimeを指定してやることは可能でしょうか？ 別のhogehoge.plを作って、その中で指定した値をlocaltimeとしてhoge.plに渡して実行 みたいなことができるとベストなんですが。 213 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 22:30:23 ] 意味不明 214 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 23:05:42 ] >>212 が言いたいのは、たぶん、 hogehoge.plの中味で、 $a=123456; とかを指定。 そんで、 localtime=$a; とかにする。そんで、 hoge.plを実行するときに、引数で渡す。 perl hoge.pl localtimeとか。 そしたら、hoge.plが、引数として渡された localtimeを食って、localtimeとして実行する。 こんなイメージだと思う。違ってたら言って。 215 名前：212 mailto:sage [2008/08/21(木) 00:00:51 ] >>214 すいません、ちょっと違います。 hoge.plは純粋にlocaltimeを取得するだけで 引数をlocaltimeとして扱うという機能はありません。 例えば、実行するとそのときの時刻をテキストに書き込む、といった感じです。 実行したときの実際の時刻とは違う時刻を取得させたいのですが hoge.pl自体を改修せずに実現できないものかと考えております。 216 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:28:35 ] 最初から、そのhoge.plが、 引数を食うような設計になってないと、 無理なんじゃないかな。 217 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:33:33 ] ビルトイン関数をユーザ定義関数で置き換えることって出来なかったっけ？ 218 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:13:12 ] # hogehoge.pl chomp( my $the_world = `time /t` ); my $you_want = '00:00'; system( 'time', $you_want ) and die; system( 'perl', '.\\hoge.pl' ) and die; system( 'time', $the_world ) and die; # そんなことやってると、もっと恐ろしいものの片鱗を味わうことになる。 # 今のうちにやめとけ。俺は止めたからな。 219 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:50:57 ] ビルトイン関数のオーバーライドはできるよ 220 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 02:25:11 ] localtime($hogehoge::hogetime) とか hogehoge::hogetime() にするのが本当に無理な状況なら 権限がないので書き換えられないと書いてそうなんだけどな。 221 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:06:25 ] www.nicovideo.jp/watch/sm2744352 これってperlでもできるのかな？ 222 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 17:19:21 ] ああ 223 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:22:30 ] Q.「〜はPerlでも可能ですか?」 A.「できます」 ほとんどの "〜" について上記の答が返ってきます。 "〜" が「電気ストーブの作成」である場合等、いくつかの例外を除いて。 224 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:28:57 ] >>221 電気ストーブ作りたいならここ参考にね☆ pc11.2ch.net/test/read.cgi/php/1010583350/ 225 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:11:55 ] なんか質問の趣旨が誤解されてるようですが、 perlで同じ物作れるか？って質問でなくて、 perlでソースコード組むときに、このシステム使って ネット経由でペアプログラミングしたりとか、 自分のコーディングを録画して中継したりとか できるのかな？って意味だったのですが。 226 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:18 ] うむ 227 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:21 ] ああ 228 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:36:43 ] kazato.run.buttobi.net/cgi-bin/material/src/vm002_0183.png perl版のこういうの作らない？ 　　　　　　　　　　　　　　　　while 文字列の長さを取得する　　　　　ループを作る みたいなの 229 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:37:33 ] >>226 ちょっとperlでソースコード書いて、 >>221のシステムでうぷしてもらえませんか？ 230 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 04:29:53 ] >>228 作っていいぞ。 >>229 うｐっていいぞ。 231 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 10:20:37 ] ばかなんじゃないの 232 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 14:42:37 ] おまえもな 233 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:14:57 ] おまえもな 234 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:17:41 ] 　　 ∧＿∧　　／￣￣￣￣￣ 　　（　´∀｀）＜　オマエモナー 　　（　　　　） 　＼＿＿＿＿＿ 　　｜ ｜　| 　　（＿_）＿） 235 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:55:27 ] 言い出しっぺの法則。 自分が欲しいものは自分で作れ。 236 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 16:35:25 ] >>235 言い出しっぺの法則は、「言い出しっぺがやらない限り誰もやらない」だ。 237 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:02:15 ] >>236 言いだしっぺの法則は、「お前がやれ」って返って来る法則のことじゃないのか？ 238 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:10:39 ] >>237 いなかっぺ大将は、「キクしゃん、ハナしゃんと西一の三角関係」を描いた物語ですよ確か。 239 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:49:44 ] >>238 違うダス！ わしとキクしゃんの恋愛物語なんダス！ 240 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 08:37:58 ] かなりのおっさんがいる？ 241 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 17:41:35 ] にぎりっぺ 242 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 18:58:42 ] ActivePerl v5.10.0 を使用しています。 LWP::UserAgent を使用して、たとえば https://mixi.jp に接続すると、 Client-SSL-Warning: Peer certificate not verified がレスポンスヘッダに出てくるのですが、 これを解消するためにはどうすればよいのでしょうか。 243 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:16:50 ] Crypt::SSLeayを入れる 244 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:19:37 ] Crypt::SSLeay は 0.57 が入っていました。 245 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:01:55 ] OSはWindows２０００でActivePerlについての質問です。 よくCPANから○○をとってきてインストールしろとか みますが、Activeperlを使っている人は、PPMで インストールできるモジュールしか使えないのでしょうか？ PPMのインストールのメニューに出てくるという意味です。 246 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:07:55 ] PPMを起動すると、 kazato.run.buttobi.net/cgi-bin/material/src/vm002_0191.png こんな画面がでてきて、ほしいファイルを右クリして インストールする仕組みになっています。 これって誰が管理しているか知りませんが、 たぶんactivestate社がやってるんですよね。 で、PPMのメニューに出てこないものは インストールできないのかなと。 247 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:09:17 ] 最近perlも飽きてきた。 どの入門書読んでも、だいたい同じこと書いてあるから。 で、今日はレファレンスについて勉強してみようと思いますが、 グーグルで検索するときに、レファレンスなのでしょうか？ それとも、リファレンスなのでしょうか？ 248 名前：デフォルトの名無しさん [2008/08/23(土) 21:17:47 ] ぐぐれカスとも言えない新技だな 249 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:51:20 ] >>247 両方ぐぐれよ。 あるいはreferenceで。 250 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 22:12:34 ] >>245 やってやれないことはないけど、気合と根性が必要。 俺はPPMに無いものはCPANからアーカイブを取ってきてMinGW+nmakeでインストールしてる。 が、Windowsには類似のAPIがない、UNIXべったりのモジュールには苦戦してる。 (同じ機能はあってもAPIの仕様が全然違う) 251 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:53:26 ] セーブファイルをネット上に保存する、ってのは かんたんにできるのかな。 アップローダーみたいな、、、っていうのかな？ print (FILE www.abc.com/abc.txt); みたいな。 252 名前：デフォルトの名無しさん [2008/08/23(土) 23:56:31 ] 以下のように�@とかそういうのを全部変換したくて延々書いているのですが、 速く処理出来るようにするにはどのようにしたらよいのでしょうか？ $str=~s/�T/1/g; $str=~s/�U/2/g; $str=~s/�V/3/g; $str=~s/�W/4/g; $str=~s/�X/5/g; $str=~s/�Y/6/g; ・・・ $str=~s/�@/(1)/g; $str=~s/�A/(2)/g; $str=~s/�B/(3)/g; ・・・ 253 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:58:38 ] アロー演算子っていうのは、 ハッシュのレファレンスを表すときにしか 使わないんですか？ 254 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:01:07 ] >>252 コーディングの行数を減らしたいってこと？ コンピューターの処理速度を速くしたいってこと？ 255 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:03:32 ] $str=~tr/�T-�]/1-10/g; $str=~tr/�@-�I/(1)-(10)/g; これだと動かないかな。 256 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:15:10 ] use strict 'refs'; ↑これって書かないと動かないの？ それとも、use strictを書けば、その中に含まれるの？ 257 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:37:44 ] ha?? 258 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:44:24 ] >251 自分のパソコンと相手のパソコンが繋がれてあったとして、 こちらのパソコンを操作するだけで相手のパソコンのHDDに書き込むことができるか？という問いに近い。 >252 ローマ数字に対応してるかどうか分からんけど、Unicode::Normalizeとかは？ ギャル文字の正規化めんどくせぇなあ……（ぼやき） 259 名前：デフォルトの名無しさん [2008/08/24(日) 00:44:35 ] >>254 処理速度のほうです。 >>255 有り難う御座います。 $str=~tr/�@-�I/(1)-(10)/; $str=~tr/�@-�H/1-9/; 上の方法では出来ず、下の方法では出来ました。 括弧を付ける方法とかあるんでしょうか？ 260 名前：側近中の側近 ◆0351148456 [2008/08/24(日) 00:54:15 ] >>259 (っ´▽｀)っ $str=~tr/�@-�I/\(1\)-\(10\)/; ではどうだ？ 261 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 01:26:01 ] >260 そーゆーことじゃなくね？ 262 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 01:53:33 ] # tr/// が、正規表現とは関係がなく、また文字列を置き換えるものでもないという点は FAQ にも程があるんでこれ以上は自分で調べてもらうとして。 sub to_arabic_number { my $str = $_[0]; my @circles = qw/�@ �A �B �C �D �E �F �G �H �I �J �K �L �M �N �O �P �Q �R �S/; my @romanU = qw/�T �U �V �W �X �Y �Z �[ �\ �]/; my @romanL = qw/�@ �A �B �C �D �E �F �G �H �I/; my $i = 1; foreach (@romanL) { $str =~ s/$_/$i/g; $i++; } $i = 1; foreach (@romanU) { $str =~ s/$_/ $i/g; $i++; } $i = 1; foreach (@circles) { $str =~ s/$_/ ($i)/g; $i++; } return $str; } 263 名前：262 mailto:sage [2008/08/24(日) 01:58:58 ] P.S. >>260 は釣りなのかネタなのか知らんが、武士の情けで見逃してやるから人生やり直して来い。 264 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:08:50 ] >>262 さすがにそのコードは人に見せられるレベルじゃないだろ… 265 名前：デフォルトの名無しさん [2008/08/24(日) 02:10:41 ] >>262 有り難う御座います。 処理速度は遅いような気がするのですがどうでしょうか。 266 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:14:28 ] >>262よりは>>252のほうがいいと思うよ 267 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:20:31 ] >>262は嫌がらせ。 268 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 03:10:52 ] use feature qw( :5.10 ); use Time::HiRes 'sleep'; system q|cls|; #---------------------------------- my @a; @a=localtime; sleep(.5); say "\@a=@a[0..8]"; sleep(.5); say "scalar(localtime)=",scalar(localtime); sleep(.5); say "localtime=",localtime; sleep(.5); localtimeという関数はホンマおもしろいなー 3通りもの出力があるんだから。 269 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 03:49:57 ] oracleにselect文を実行したときの取得レコード件数が知りたいんですが何か方法ありますか？ phpだとmysql_num_rows()とか便利なのあるんですけど、perlだとわかんないorz 270 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:00:20 ] エスパー期待してるんですか？ 271 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:06:30 ] しゃぶりついてくるやつ期待してるんだろう。 272 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:17:54 ] いや、だから、 oracleにselect文を実行したときの取得レコード件数を 知るための関数でしょ？ 273 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:18:41 ] ところで、ファイルに引数を食わせるときに、 スペース混じりの引数を食わせるには、 どうしたらいいですか？ 274 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:42:39 ] www.aritia.org/hizumi/perl/perlwin.html ここ読んでたら、なんか 日本語のファイル名も扱える みたいじゃないですか。 どうやるの？ 275 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:48:27 ] use feature qw( :5.10 ); system q|cls|; #---------------------------------- "abcde" =~ m/b(.)d/ ; say "$1"; ↑これを実行すると、ｃ、と出てきますが、 ここの$1は、ソースコードの、どこまで有効なの？ ずーっと後ろまで？ 276 名前：262 mailto:sage [2008/08/24(日) 05:01:37 ] >>265 遅いよー。 括弧を考えず、一桁でいいなら tr/// のが高速。 でも文字列単位の置換、文字数の異なる置換に対応できない。 速度的には、サブルーチンにせず >>266 の言うように全部インラインで書いたほうがマシ。 @circle_patterns = (); foreach (@circles) { push @circle_patterns, qr/$_/; } # (以下必要なセットで繰り返す) # とあらかじめ準備しておいて、 # 置換ループに入ったら、 $i = 1; foreach (@circle_patterns) { $str =~ s/$_/($i)/; $i++; } # (以下必要な...略) # などとやればちょっとは速くなる気がする。 置換対象が行数の多いファイルなら、一気読みで $str にひとつにまとめて突っ込んでしまうのも手。 データの傾向やらで効果的な最適化は変わるだろうから、いろいろ試して比較してみてね。 277 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:01:39 ] >>262 w 278 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:04:26 ] Win32::Soundとかっていう書き方、あるじゃないですか。 これってPerlの世界でのみ、通用するものなの？ それとも、一度おぼえたら、他の言語にいっても通用するの？ 279 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:13:04 ] $str=~ s/[�@-�I]/($&)/g; $str=~ tr/�@-�H/1-9/; $str=~ tr/�T-�\/1-9/; $str=~ s/[�I�]]/10/g; 280 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:15:05 ] $str=~ s/[�@-�I]/($&)/g; $str=~ tr/�@-�H�T-�\/1-91-9/; $str=~ s/[�I�]]/10/g; 281 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:16:29 ] >>276は嫌がらせの激遅コード 282 名前：262 mailto:sage [2008/08/24(日) 05:18:44 ] >>279 GJ せっかくだからさらにちょっとだけ性能改善。 # 最近の perl では $& のオーバーヘッドってどうなってんだろね? $str=~ s/([�@-�I])/($1)/g; 283 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:33:01 ] sでも文字クラスって使えるんだ？ 284 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 05:54:56 ] >>269 $sth -> rows; のことか？ 285 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 08:47:06 ] うちのバイト募集に>>262みたいのが来たら、即座に却下だな。 つーか、ゴミでスレを埋め尽くすのはいいかげんやめておくれ。 286 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 11:02:53 ] 初心者です。 配列かなんかに保持しておいて、ループさせるという考え自体は悪くない……ですよね？ よほど速度がクリティカルになる状況じゃなきゃ、そこまで酷いとも思えないし。 287 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 12:10:50 ] 私初心者だけどクリティカルな状況でなければさほど酷くもなかろう と言われましても。 288 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 12:13:55 ] こんなのはいかが my @circles = qw/�@ �A �B �C �D �E �F �G �H �I �J �K �L �M �N �O �P �Q �R �S/; my @romanU = qw/�T �U �V �W �X �Y �Z �[ �\ �]/; my @romanL = qw/�@ �A �B �C �D �E �F �G �H �I/; my %hash = (); %hash = (%hash, map { $circles[$_-1] => "($_)" } 1..20); %hash = (%hash, map { $romanU[$_-1] => $_, $romanL[$_-1] => $_ } 1..10); sub to_arabic_number {     my $str = shift;     $str =~ s/([�@-�S�T-�]�@-�I])/$hash{$1}/ge;     $str; } 289 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 12:22:13 ] >>288 [参考になる+11] 290 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 12:54:50 ] >>288 やるならとことん逝こうぜ。個人的には%hashを全書き換えしてるのが気になる。 my @nums = ( [qw(�@ �A �B �C �D �E �F �G �H �I �J �K �L �M �N �O �P �Q �R �S)], [qw(�T �U �V �W �X �Y �Z �[ �\ �])], [qw(�@ �A �B �C �D �E �F �G �H �I)] ); my %hash = map { my $num = $_; map {$num->[$_ - 1] => "($_)"} 1..(scalar(@$num)) } @nums; my $re = join("", map {$_->[0].'-'.$_->[$#$_]} @nums); sub to_arbic_number { local $_ = shift; s/([$re])/$hash{$1}/geo; return $_; } 291 名前：デフォルトの名無しさん [2008/08/24(日) 13:01:27 ] ------------- >>276 >>288 ありがとうございます。参考になります。 eって遅くなるのかと思って試してませんでした。 文字数によってはeを利用したほうが速くなりそうですね。 単純に-で繋げて表現出来ない文字列も多いので、eが有用というのは私的には！！でした。 色々試してみます。ありがとうございます。 ------------- >>280 >>282 ありがとうございます。そういう方法もあるのですね。一つ一つ書いていくより かなり速くなりました。 �I-�Sの場合が無いのでまだ速度を比べられないのですが、この場合はどのよう にしたらよいのでしょうか？ trではやはり2文字になるのでダメで、一つ一つ書いていく方法しか思い浮かば ないのですが、方法はないのでしょうか？ 292 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 13:04:26 ] ■■学校を作ろう！■■ VIP発でサイトを作ろうと思うんだ。（詳しくはWikiを見てくれ） パートスレになるんでパー速（GEP)に移動している。 今スタッフを募集しているから、来てくれないか？ ■Wiki www36.atwiki.jp/vipvipschool/ ■募集スタッフ プログラム担当（特にErlang、Perl） デザイナー（サイト上のアイコン、ロゴなど） WEBデザイナー（サイトデザイン案に沿って、htmlやCSSを書ける） 他にも宣伝担当なども募集している。 ■スレ ex14.vip2ch.com/test/read.cgi/news4gep/1219068297/ 293 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 13:07:34 ] 見てもらったらわかるが、IRC・スレともに過疎って今にも潰れそうだから行かないほうがいいぞ 294 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 14:16:48 ] >287 具体的に何が悪いかを指摘せずに、ソースだけ書かれても 後から見た人は困るって意味さ 295 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 15:46:25 ] $str=~ s/([�@-�H])/($1)/g; $str=~ s/([�I-�R])/(1$1)/g; $str=~ tr/�T-�\�@-�H�I-�R/1-91-90-9/; $str=~ s/�]/10/g; $str=~ s/�S/20/g; 296 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 15:54:45 ] >>286 君はプログラミングは諦めて他の道へ進んだ方がいい 297 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 16:06:28 ] >296 質問スレで質問しちゃだめなん？ 298 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 16:13:24 ] >>296 っていうか、来ないでくださいって感じ。 299 名前：デフォルトの名無しさん [2008/08/24(日) 16:19:48 ] >>295 そういう方法がありましたか。まったく思いつかなかったです。 試してみます。有り難う御座います。 >>286 考え自体は全然悪くないと思います。 スピードよりも見やすさのほうが通常は大事だと私は思います。 どうやって見やすくかつ速く出来るかで悩みます。 でもどっちを優先するかは時と場合によります。 300 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 18:55:13 ] モジュールWWW::Mechanizeを使って、クッキーの送信と受信をしたいんだけどどうすればいいの? 301 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 20:24:11 ] 質問です。Perlでファイルのアップロードをしようとして フォームから値を送るサンプルを弄くってるのですが my $local = $q->param('upfile'); my $fname = basename($local,""); my $path = '.file'; my $newfile = "$path/$fname"; こういう感じでbasenameを使って、ウィンドウズ環境から上げると パスが .file/C:\Documents and Settings\Admin\デスクトップ\hoge.txt となってしまい、ちゃんとアップできません。 他のサンプルとかでもこうやってるようなのですが みなさんはどうやってるのですか。 302 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 20:30:13 ] すみません my $path = '.file'; は my $path = './file'; です

---

---

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

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