- 1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
- このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
- 131 名前：nobodyさん mailto:sage [2007/05/25(金) 23:47:26 ID:???]
- お前のプログラム知識だよ
- 132 名前：nobodyさん mailto:sage [2007/05/26(土) 05:47:48 ID:???]
- if(a=1)
なんか懐かしいなw
こういうの見たの15年ぶりだよ。
- 133 名前：nobodyさん mailto:sage [2007/05/26(土) 23:39:33 ID:???]
- perl 関連スレッドに機会があったらいつか書こうと思って
たんだが、機会が無いのでここに独り言として書く。
[初心者のための perldoc ]
perldoc は、本を開かなくともいつでも開くことが出来る手軽なリファレンスだ。
ターミナルで「perldoc perl」と打ち込むだけで概要が出てくる。SYNOPSIS に
リストがつらつら書かれているがそれぞれ perldoc で呼び出すことができる
1. とりあえず基礎の基礎を読んでみたいなら「perldoc perlintro」
( for, while, if などもここを最初に )
array of array などなら「perldoc perllol」
正規表現なら、「perldoc perlre」
スイッチ（所謂コマンドラインオプション）なら「perldoc perlrun」
etc...
これらの文章中 see perlxxxx.... と書かれていたら素直に
「perldoc perlxxxx」すればよい。
2. 個々の関数について調べたいなら
「perldoc -f reverse」
などと f オプションを付けて実行する。
3. 取り敢えず、なんか判らんって時。例えば「配列」
「perldoc -q array」
faq の中から array を含む文章拾ってくれる。但し question のみ。
4. 個々の説明文 pod にアクセスしたい時
「perldoc Tie::File」
「perldoc strict」
5. 「perldoc -h」すれば、perldoc の使い方の説明が出てくる。
perldoc の中身には例文も出てくるので、英語が判らんでも 2ch に
相談するまえに見てみることをお勧めする。
どーしても、という方には web 上にはそれなりに翻訳された perldoc が
あるのでターミナルで「perldoc perl」でリストの中から目星を付け、
そのファイル名で検索するのも良い。
（但し最新版ではない事がほとんどなので注意が必要）
- 134 名前：nobodyさん [2007/05/29(火) 00:59:04 ID:+KVPsKMz]
- 質問です。
#!/usr/bin/perl
open (IN,"< http://あｑｗせｄｒｆｔｇｙふじこ/test.dat") ;
@LINES = <IN>;
close(IN);
print "Content-type: text/html\n\n";
print "<html><head></head><body>";
foreach(@LINES){
print $_ . "\n";
}
print "</body></html>";
}
こんな感じでhttpから始まるURLをうって
ファイルを開いて処理したいんですがどうやら読めないっぽいです。
open (IN,"test.dat") ;
に変えると動いてくれるのですが、、、
仕様上不可能なんでしょうか？
- 135 名前：nobodyさん mailto:sage [2007/05/29(火) 01:19:04 ID:???]
- >>134
allow_url_fopen が効いてる PHP みたいな、裏でどうにかしてくれる仕掛けはありません。
LWP使えば外部のファイル自体は取得できるけど。
- 136 名前：nobodyさん [2007/05/29(火) 02:04:54 ID:+KVPsKMz]
- >>135
こんな時間にレスあり ＞＜
use LWP::Simple;
$a = get("http://くぁｗせｄｒｆｇｙふじこ/test.dat");
で取得できました。ありがとうございました。
これで気持ちよく眠れます。
- 137 名前：nobodyさん mailto:sage [2007/06/03(日) 00:26:01 ID:???]
- 久しぶりにperlでcgi作ろうかと思うんだけど、今はutf8で書くのが一般意的？
- 138 名前：nobodyさん mailto:sage [2007/06/03(日) 13:53:14 ID:???]
- なんでもおｋ
- 139 名前：nobodyさん mailto:sage [2007/06/05(火) 13:52:29 ID:???]
- ブラウザで操作をして
自サーバ内のファイルを別サーバへコピーしたいんですが（セキュアFTPサーバ)
Net::FTP
を使って、セキュアなFTPサーバへ接続は出来ますか？
もしくは、可能な別モジュールってありますか？
- 140 名前：nobodyさん [2007/06/07(木) 14:40:32 ID:TOlQmlY8]
- すいません。
定期的にフォーム部品の個数が変わるフォームで、
１コでも未記入があった場合にエラーが出したいんです。
radio1
radio2
radio3
textarea1
textarea2
radio4
・
・
・
その時によって、フォーム部品の数が増えたり減ったりします。
汎用的に未記入があった時にエラーを返すにはどうしたらいいでしょう？
- 141 名前：nobodyさん mailto:sage [2007/06/07(木) 15:58:44 ID:???]
- フォームにフィールド一覧をhiddenで入れておくとか
- 142 名前：nobodyさん mailto:sage [2007/06/07(木) 16:38:40 ID:???]
- それはだめだろｗ
- 143 名前：nobodyさん mailto:sage [2007/06/07(木) 17:31:11 ID:???]
- エンティティボディに=&か=$があったら落とせばいい
- 144 名前：nobodyさん mailto:sage [2007/06/07(木) 17:33:24 ID:???]
- それでは駄目
仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
- 145 名前：nobodyさん mailto:sage [2007/06/07(木) 17:51:47 ID:???]
- そんな細やかなもんなら全部やるしか無いでしょ
どのみちレングスや内容を全部調べるんだろうし
- 146 名前：nobodyさん mailto:sage [2007/06/08(金) 11:15:29 ID:???]
- >>144
inputがあるのに未入力を検出したいってんなら>>143で問題ないと思うのだが。
>仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
って何の仕様の話？
- 147 名前：nobodyさん mailto:sage [2007/06/08(金) 12:03:20 ID:???]
- >>146
HTML 4.01
- 148 名前：140 [2007/06/08(金) 13:54:24 ID:i/tb2omn]
- 144は私ではないです。
みなさんありがとうございます。
>143さんの方法が良さそうですね。
ところで、エンティティボディって何の事でしょう・・・・？
すいません、ぐぐってみます；
- 149 名前：nobodyさん [2007/06/08(金) 17:32:56 ID:rRYhakqE]
- お世話になっております。
今現在Perlを使用したCGIを作成していて困った事があるので相談させていただきます。
HTML側が
----------------
<form method="POST" ENCTYPE="multipart/form-data" action="edit_completion.cgi">
<input type="file" name="TENSOU">
：
----------------
としていて受け取るCGI側を
----------------
：
my $cgi = new CGI;
my $image = $cgi->param('TENSOU');
my $file_name="./test.jpg";
my $buffer;
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($image, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
：
----------------
としているのですがうまく受け取れません、、、
上記perlは昔自分が書いたものを参考にしたのですが
ナニを参考にしたのか覚えていません。
どこか使用方法が載っているURL等お教えいただけないでしょうか？
- 150 名前：nobodyさん mailto:sage [2007/06/09(土) 13:37:43 ID:???]
- ttp://www.harukaze.net/~mishima/perl/module/upload_by_CGI_pm.html
ここを参考にしたら？
- 151 名前：nobodyさん mailto:sage [2007/06/10(日) 18:01:18 ID:???]
- Perlを勉強し始めて一ヶ月ぐらいかな・・・
仕事の傍らちょこちょこやってて
今「続・初めてのPerl」のオブジェクト指向とかリファレンスのトコ
そこ入ったらいきなりクラスとかメソッドとか初出の単語が連発してきてかなり混乱
なかなか頭に入ってこなくて泣きそう(つωと)
- 152 名前：nobodyさん mailto:sage [2007/06/10(日) 20:07:23 ID:???]
- >>151
「続・初めて」
は題名に反して、「リャマ、ラクダ、CookBook、Best Practice、etc.」を
読んだ後に読む本だぞ。
- 153 名前：nobodyさん mailto:sage [2007/06/11(月) 00:16:13 ID:???]
- >>152
レスありがとうございます
う、そうなんですか・・・もっと吟味すればよかった(・ω・｀)
リャマは読み終わりましたのでラクダ本検討してみます
しかし高い・・・
後、やっぱりUnix環境整えた方がいいですよね
今までWindowsのみでやってきたので、Unixの事はチンプンカンプンですけど
WindowsみたいにOSのパッケージを買えばいいのかな・・・調べてみようと思います
ありがとうございました
- 154 名前：nobodyさん mailto:sage [2007/06/11(月) 01:57:28 ID:???]
- ム板「質問箱 30」の704 からの流れも参考にしとけ。
後半は、マカーなので分らんw
が、Windows だけで完結してそうな人も多いし、Cygwin
辺りで慣れるだけじゃダメなのかなあ。
もちろん業務とかが絡む人は別だけど。
- 155 名前：nobodyさん mailto:sage [2007/06/11(月) 02:16:08 ID:???]
- 「原題」ってなんだったっけ、ってサイトに行ってみたら
ttp://www.oreilly.co.jp/books/4873111676/
絶版になったのか、、、
- 156 名前：nobodyさん [2007/06/11(月) 23:50:11 ID:kL3eCwRQ]
- Perl初心者です。
スクリプトの文法チェックをしたいのですがどなたかいいツール知りませんか？
検索してみたのですがなかなかいいのが見つからなくて。
- 157 名前：nobodyさん mailto:sage [2007/06/12(火) 02:23:49 ID:???]
- 文法チェックなら perl -c でやりゃいいじゃん。
もう少し厳しくみるなら perl -wc
perldoc perlrun くらいはしといてくれ。
- 158 名前：nobodyさん [2007/06/12(火) 12:32:30 ID:0KbPnFiH]
- >>157
ありがとう、早速試してみます。
- 159 名前：nobodyさん mailto:sage [2007/06/12(火) 12:43:31 ID:???]
- >>157
ここは超初心者用だ
お前のような排他的な奴は出て行け
- 160 名前：nobodyさん mailto:sage [2007/06/12(火) 14:08:36 ID:???]
- >>159
排他って言葉の意味わかってるのか?
- 161 名前：nobodyさん [2007/06/12(火) 16:16:31 ID:0KbPnFiH]
- ついでにおすすめのエディタもお聞きしたいのですが？
- 162 名前：nobodyさん mailto:sage [2007/06/12(火) 16:55:27 ID:???]
- >>161
windows?
秀丸とかEmEditor、金出したくなければ
xyzzyあたり。
- 163 名前：nobodyさん [2007/06/12(火) 17:19:53 ID:0KbPnFiH]
- >>162
windowsです。
普段は秀丸を利用しています。
秀丸はHTMLは書きやすいのですがPerlは微妙です。
Perlに特化した感じのエディタがないかいろいろ検索中ですがなかなかいいのが見つからなくて。
- 164 名前：nobodyさん mailto:sage [2007/06/12(火) 18:56:13 ID:???]
- ｘｙｚｚｙとか、unixで主に使われるエディタなら
perl用のモードがあるよ
Emacsとかvimとか。
windows用もあるけど、初心者お断り的な
ところがあるから、慣れるまでは
大変かも。
希望の機能とかはあるの?
- 165 名前：nobodyさん [2007/06/12(火) 21:45:38 ID:0KbPnFiH]
- >>164
やっぱ色分けはわかりやすいほうがいいですね。
秀丸はヒアドキュメントの部分がわかりづらくて。
あとは文法チェックやプレビュー機能なんかがあればうれしいですね。
開発環境にこだわるのはある程度知識身につけてからのほうがいいのでしょうか…
なんせまだPerl勉強して１ヶ月もたってないもので…
- 166 名前：nobodyさん mailto:sage [2007/06/12(火) 23:26:18 ID:???]
- PerlEditor ただしUTF-8非対応
Eclipse + PerlPlugin
- 167 名前：nobodyさん mailto:sage [2007/06/12(火) 23:37:16 ID:???]
- >>165
つーかまずコード書こうや
道具選びはそれからでも遅くない
- 168 名前：nobodyさん mailto:sage [2007/06/13(水) 02:12:53 ID:???]
- >>165
最初はそんなにでかいコード書くこともないだろうから、
それこそメモ帳でなきゃ適当なエディタでいいと思うけどね。
とりあえずこいつは構文チェックをしてくれるらしい
activestate.com/Products/komodo_ide/feature_list.plex
体験版はあるみたいだけど基本的に金だして買わなきゃいけないし、
ドキュメントは英語だけ。
ところでプレビュー機能ってなに? CGIでも作るの?
- 169 名前：nobodyさん [2007/06/13(水) 12:39:29 ID:Ij6cMTyX]
- とりあえずエディタはこれかPerlEditor落ち着こうと思います。
www.forest.impress.co.jp/lib/stdy/program/progeditor/perlhajime.html
PerlはCGI作るために勉強しはじめました。
とりあえず10日で覚えるPerl/CGIという入門書を読んで勉強中です。
- 170 名前：nobodyさん mailto:sage [2007/06/13(水) 18:17:02 ID:???]
- 私は一晩で学ぶSQLを買いました。最終的に3年かかりました。
- 171 名前：nobodyさん mailto:sage [2007/06/14(木) 13:02:46 ID:???]
- ワロタ
- 172 名前：nobodyさん [2007/06/14(木) 19:02:31 ID:MrJTWOJA]
- CGIで質問フォームを作ってそれが完了したと同時にメールが送られるようにしてるんだけど、
一定文字数を越えると文字化けしてしまう。。
誰かこの文字化けが何系の文字コードか分かる方います？？
$"$($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($3$3$G2~9T$*$*$*$*$*$*$*$*$*$*$*$*$
- 173 名前：nobodyさん mailto:sage [2007/06/14(木) 19:21:03 ID:???]
- 別スレに書き込みますすいません。
- 174 名前：nobodyさん [2007/06/15(金) 18:43:38 ID:3CYhNC9F]
- Perlを勉強するうえで読んでおいたほうがいい書籍ってなんですか？
- 175 名前：nobodyさん mailto:sage [2007/06/15(金) 19:41:34 ID:???]
- >>174
1. ああっ女神さまっ 1～34巻
2. 逮捕しちゃうぞ 文庫版1～4巻
3. 大人のCGIスクリプト
- 176 名前：nobodyさん mailto:sage [2007/06/15(金) 20:12:22 ID:???]
- 女神はクソアニメだろ…
- 177 名前：nobodyさん mailto:sage [2007/06/15(金) 20:55:45 ID:???]
- 銀英伝全巻（余裕があるなら、アニメ版全巻も）
- 178 名前：nobodyさん mailto:sage [2007/06/15(金) 21:51:09 ID:???]
- それが僕には楽しかったから(小学館プロダクション)
ニーチェ入門 (筑摩書房)
本当の潜水艦の戦い方 (光人社)
- 179 名前：nobodyさん [2007/06/15(金) 22:38:03 ID:3CYhNC9F]
- まじめに教えてくださいよ
- 180 名前：nobodyさん mailto:sage [2007/06/15(金) 22:48:57 ID:???]
- あいまい3cm
- 181 名前：nobodyさん mailto:sage [2007/06/15(金) 22:51:37 ID:???]
- 答えていますとも。
>SF を読むこと。
>だじゃれや言葉あそびへの理解を深めること。
>母国語できちんと文が書けるようになること。
>多くのハッカーは「おたく」というレッテルを受け入れています。
>それは自分が普通の社会的期待から自由だと宣言する方法の一つなのです。
ttp://cruel.org/freeware/hacker.html
- 182 名前：nobodyさん [2007/06/16(土) 21:27:44 ID:0wRsaGP2]
- Perl勉強しただけでハッカーになれるんですか？
- 183 名前：nobodyさん mailto:sage [2007/06/17(日) 08:54:43 ID:???]
- perlしか知らなくてもハッカーになれるヤツはなるし
全言語覚えてもハッカーになれないヤツはなれない
要は応用力の問題
- 184 名前：nobodyさん mailto:sage [2007/06/20(水) 21:35:54 ID:???]
- よろしければご教示願います。
PerlのCGIからEXEを叩くだけのSYSTEM関数を呼ぼうとしているのですが
処理自体はバックグラウンドでやらせて、制御は画面に戻したいので
「res = SYSTEM(1, @args)」で実行しようとすると、-1が戻されてしまいます。
「res = SYSTEM(@args)」でやれば問題なく動くのですが…
第一引数に1を設定した場合は実行不可になる、といったような
事例はあるのでしょうか？
（検索キー「SYSTEM」では該当が多すぎて…）
- 185 名前：nobodyさん mailto:sage [2007/06/20(水) 22:20:47 ID:???]
- >>184
つかそもそもsystem関数の使い方わかってないだろ
「perl system」でググるくらいの検索能力は身につけようぜ兄弟
- 186 名前：nobodyさん mailto:sage [2007/06/20(水) 22:35:16 ID:???]
- win 用の特別な記法があるのかと思ってググりまくった俺、マカー。orz...
- 187 名前：nobodyさん mailto:sage [2007/06/20(水) 23:12:17 ID:???]
- >>185
いやあの・・・すいません。
「@args」と書いてあるところが、叩かせようとしているEXEの
引数つきコマンドラインです。
system関数の記事ならいくつもHITしますが、第一引数に1をセット
しての使い方についての記述はほとんどなかったので…
（この書き方自体がwin専用らしいですが）
- 188 名前：nobodyさん mailto:sage [2007/06/21(木) 00:30:05 ID:???]
- >>187
最初に「Windows+ActivePerlの環境です」とかくらいは書いた方が良いと思うんだ。
@argsの内容とかも。argsなんて名前の配列にコマンドまで入ってるなんてあまり想像しない。
で、たぶん-1返してるのは@argsの中のプログラム側だからそっちを調べないと無理かも。
- 189 名前：nobodyさん [2007/06/26(火) 18:01:07 ID:pgSc3qoH]
- perl、cgiを独学で勉強しているが理解できない；；
１０日で覚える～の本を参考書にしてるけど１０日じゃ理解できないYO・・
学習能力ねぇから難しいなぁｗ
- 190 名前：nobodyさん mailto:sage [2007/06/26(火) 23:19:15 ID:???]
- この手のは学習能力というより意欲の問題。
若干相性はあるがね。
- 191 名前：nobodyさん mailto:sage [2007/06/26(火) 23:32:33 ID:???]
- 人間必要に駆られないと覚えないから。
1. 何を作りたいか決める
2. とにかく作り始める
3. 詰まったら実現方法を参考書で調べる
4. 2に戻る
あとメモを取った方が効率が上がる。特殊変数全部メモるとか。
それさえあれば何時でも何処でも（少なくとも自分だけは）必ず何でも書けるメモを作る。
- 192 名前：nobodyさん mailto:sage [2007/06/26(火) 23:38:09 ID:???]
- 「10日で覚える～」を買って本当に10日で習得したって話は聞かないから
>>189はあんまり気にしなくていいよ。
>>191
必要に駆られると覚えるの早いよなあ。納期とか。
- 193 名前：189 [2007/06/27(水) 11:43:36 ID:qSRVuZRU]
- 関数が覚えられないからメモをしっかりとってやってみます＾＾；
ゲームとか掲示板を思い通りに作りたいのでまずは基礎からって
感じだと思ったので、とにかく習うより慣れるかな～
- 194 名前：189 [2007/06/28(木) 17:14:56 ID:/27P2PeN]
- 質問なんですがよろしくです
#! c:/perl/bin/perl
open(IN, "+<./count.dat");
$count = <IN>;
++$count;
seek(IN,0,0);
print IN $count;
close(IN);
こんなアクセスカウンターがあったとして./count.datの中に
１２が書き込まれていたら次にアクセスしたら１３になりますよね？
seek関数でファイルの先頭に持ってきているのはわかるんだけど
先頭にそのまま持ってきたら１３１２にならない理由を教えてほしいっす＞＜
- 195 名前：nobodyさん mailto:sage [2007/06/28(木) 17:44:35 ID:???]
- ファイルにはインサートモードは無い
- 196 名前：189 [2007/06/28(木) 17:53:34 ID:/27P2PeN]
- インサートモードって何ですか？
seek(IN,0,0);
の、部分だけ消してアクセスすると１２１３になるけど
seek(IN,0,0);
が、あることにより上書きになるの？
- 197 名前：nobodyさん mailto:sage [2007/06/28(木) 17:58:37 ID:???]
- 常に上書きだ
書き込みポイント（シーク位置）が読んだことにより後ろになってるだけ
末尾で上書きすれば追加と同じだろう
メモリでも挿入ってのは、データを後ろにずらしてから上書きしてるんだよ。
- 198 名前：189 [2007/06/28(木) 18:16:42 ID:/27P2PeN]
- ？？？（´･ω・`）
seek(IN,0,0); は、
常に上書きって覚えとけば問題ないのかな？
ありがとうございますです。
- 199 名前：nobodyさん mailto:sage [2007/06/28(木) 18:26:31 ID:???]
- あーもういいやそれで
- 200 名前：nobodyさん [2007/06/30(土) 14:41:50 ID:zANvV/vQ]
- こういう範囲指定を → 4.43.96.0/24
このように変換 → 4.43.96.0-4.43.96.255
したいのですが、良い方法を教えてください。
- 201 名前：nobodyさん mailto:sage [2007/06/30(土) 15:21:36 ID:???]
- 拡大解釈して、「あるIPアドレスがあるネットマスク内にあるか否か」
ってスクリプトなら。
my $netmask = q{4.43.96.0/24} ;
my $ip = q{4.43.96.0} ; # <= ここにテストするIPアドレスをセット
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack qq{B$byte}, pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack qq{B$byte}, pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print q{in} . qq{\n} ; }
こんな感じ？と素人が答えてみるテスト。
- 202 名前：nobodyさん mailto:sage [2007/06/30(土) 15:54:22 ID:???]
- >>201
正直Perlは良く分からないのですが、コピペして結果がでました。
どうもありがとうございます。ﾍﾟｺﾘ
- 203 名前：質問 [2007/06/30(土) 16:27:58 ID:6uCjWfRX]
- 配列の値をリファレンスを使って、サブルーチンへ渡す方法についての質問です。
下記のような簡単な物を作って、配列のリファレンスがサブルーチン側へ渡されていることは
わかりました。($alldata_refと$getdata_refが同じ）
が、サブルーチンを使っての配列の値の参照がなぜかできません。
いろんなサイトをみても問題はないようですが、わかる方教えてください。
@alldata=(1,2,3,4,5);
$alldata_ref=\@alldata;
print "$alldata_ref\n";
foreach (@$alldata_ref){
print "$_";
}
print "\n";
&COUNT8(\@alldata);
sub COUNT8{
my $getdata_ref="@_";
print "$getdata_ref\n";
foreach (@$getdata_ref){
print "$_";
}
print "\n";
- 204 名前：nobodyさん mailto:sage [2007/06/30(土) 16:43:21 ID:???]
- my $getdata_ref=shift;
- 205 名前：203 mailto:sage [2007/06/30(土) 16:46:10 ID:???]
- うほっ。
よくわかりませんが、できました。
ちょっとshift勉強しに公園のトイレ前に行きます。
- 206 名前：nobodyさん mailto:sage [2007/06/30(土) 16:53:48 ID:???]
- 便乗で質問させてください
>>203って、サブルーチンの中で引数を取得する時に
ダブルクォーテーションで囲った事が原因ですよね？
- 207 名前：nobodyさん mailto:sage [2007/06/30(土) 17:11:28 ID:???]
- printで表示される物と、内部的な扱いは違う。
ついでに、ダブルクオートしなかったら要素数が返るだけと思う。
shift@_なり、$_[0]なりで、ちゃんとリファレンスを取得することが大事。
- 208 名前：nobodyさん mailto:sage [2007/06/30(土) 20:16:18 ID:???]
- ついでに、ダブルクオートしなかったら、COUNT8に渡された
リスト(アレイリファレンス1個のリスト)がスカラーコンテ
キストで評価されて結果は1。
- 209 名前：nobodyさん mailto:sage [2007/07/01(日) 06:34:28 ID:???]
- my($getdata_ref)=@_;
が推奨されています。
当たり前ですが複数なら以下です。
my($abc,$def,$ghi)=@_;
またPerlでは@arrayの評価は左辺値で決まるので、ダブルクオートしなければ
必ず要素数が返ると信じるのは誤動作の元です。
$#array+1を使うか、scalar(@array)と明示する方法がオススメです。
さらにfor文をこのように書く人が大勢居ますが、
for(,my $i=0; $i<@array; $i++)
非常に遅いので予め@arrayの要素数をスカラーに移して使いましょう。
- 210 名前：nobodyさん [2007/07/03(火) 16:41:35 ID:Fn19fg5B]
- >>209
板違い。
Perl板でやれ。
- 211 名前：nobodyさん mailto:sage [2007/07/03(火) 19:22:53 ID:???]
- perl板って何処にあるんだよ。
- 212 名前：nobodyさん mailto:sage [2007/07/04(水) 09:06:32 ID:???]
- pc11.2ch.net/perl/
- 213 名前：nobodyさん [2007/07/07(土) 14:31:13 ID:MhnKrAyD]
- ActivePerlでPerl始めたんだけど、エクセルのデータかCSVから
それぞれの行、列から数値を取り出したいんですけど、
どこかに良いサンプルか参考になるサイトはないですか？
- 214 名前：nobodyさん mailto:sage [2007/07/07(土) 14:50:58 ID:???]
- >>213
ここはwebprog板なのでキミの質問は板違いである。
- 215 名前：nobodyさん mailto:sage [2007/07/08(日) 06:04:57 ID:???]
- べつに板は違わないけど
Perl CSVやPerl Excelで検索すりゃ一瞬で出るものを書かれると何かが減退する
- 216 名前：２１３ [2007/07/09(月) 22:38:35 ID:6iXDsaKo]
- Webで検索しても分らないから質問したんですが・・・orz
- 217 名前：nobodyさん mailto:sage [2007/07/10(火) 10:55:28 ID:???]
- 減退しようぜ
- 218 名前：nobodyさん mailto:sage [2007/07/10(火) 11:13:10 ID:???]
- まああるていどやって、ここがわからないという質問だと答える気にもなるけど
お前らの答えは信用ならんから、サンプルやサイトを教えてくれと言われたら
こたえる気はなくすわな
- 219 名前：nobodyさん mailto:sage [2007/07/10(火) 11:49:08 ID:???]
- 「IBMの言う通りにしたけど出来なかった(ﾟДﾟ)」
と言われたなら、へー出来ないんだーという情報価値も少しある。
出来たらぶっ飛ばすけどね。
今ちょっと見たらOffice2000がどのライブラリも対応してる感じだけど、
バージョンの説明も無いし、なんで検索のお手伝いをしないといけないんだって。
- 220 名前：nobodyさん mailto:sage [2007/07/10(火) 13:28:27 ID:???]
- >>216
Google 使って「Perl CSV」で検索すると、先頭に出てくるのだが。
一体、何がどう分からないのかな？
- 221 名前：nobodyさん mailto:sage [2007/07/10(火) 18:20:33 ID:???]
- Mac OS X(10.3.9)を使ってるんですが、perlが5.8.1です。
アップグレードってどうやるんですか？5.8.6にしたいんですが(参考にしてる本が5.8.6だから)
- 222 名前：nobodyさん mailto:sage [2007/07/11(水) 09:43:51 ID:???]
- >>216
ほれ。ﾁｮｰわかりやすいサンプルを書いてやったぜ。
#! /usr/bin/env perl
$csv = <<"_CSV_";
activePerlで,Perl,始めたんだけど、,エクセルの,データか,CSVから,
それぞれの,行、列から,数値を,取り出したいんですけど、,
どこかに,良いサンプルか,参考になる,サイトは,ないですか？
_CSV_
grep{push(@d2a,[split(/,/)])}split(/\r?\n/,$csv); # 格納
for(@d2a){print for(@$_);print "\n";} # 表示
- 223 名前：nobodyさん mailto:sage [2007/07/11(水) 09:47:22 ID:???]
- >>221
5.8.6をインストールすればいい
- 224 名前：nobodyさん [2007/07/11(水) 15:56:08 ID:FWgAFc3u]
- 質問です。おながいします
sub printPage
{
my $begin = $FORM{'page'} * $PAGEVIEW;
my $end = $begin + $PAGEVIEW;
if($end > @DATA) {
$end = @DATA;
}
本を見ながら掲示板を作っているんだけど、my $begin やmy $end が
@DATAの添え字になっているって本に書いてあるんだけど@DATAの添え字なら
$DATE[$begin]とかってってならなくてmy $begin やmy $endで添え字になって
いる理由がわかりません。
わかる方おながいします。
- 225 名前：224 [2007/07/11(水) 16:09:46 ID:FWgAFc3u]
- すまんかった。スルーしてくれ
- 226 名前：nobodyさん mailto:sage [2007/07/11(水) 19:57:17 ID:???]
- >>222
Excelの吐くCSVはそれだけじゃダメだよ…
- 227 名前：213 mailto:sage [2007/07/12(木) 08:33:10 ID:???]
- CSVの1行目に
A,B,C,D,E,とあるとするとそれを
①＝A
②＝B
③＝C
…
と格納して
print ③
print ②
print ⑤
みたいなことがしたいんですが。。。。
この処理が終わると2行目へ・・・と言った感じで。
- 228 名前：nobodyさん mailto:sage [2007/07/12(木) 14:01:39 ID:???]
-
(:.;ﾟ;Д;ﾟ;.:)y-~
- 229 名前：nobodyさん [2007/07/13(金) 15:37:18 ID:jk1vnwXj]
- 超初心者質問です。おながいします。
#! c:/perl/bin/perl
print "Content-type: text/html\n\n";
print "Hello Perl !";
と、ＣＧＩに書いて本には
Content-type: text/html
Hello Perl !
と、出力すると書いてあるのですがやってみると、
Hello Perl !
しか出力しません。なぜでしょうか？？
AN HTTPD ってのを使ってます。
- 230 名前：nobodyさん mailto:sage [2007/07/13(金) 15:49:26 ID:???]
- >>229
ブラウザ何使ってる？
wgetとかコマンドラインのやつ使ってなけりゃ
Firefox入れてLive Http headers アドインを入れてみるのを薦める
- 231 名前：nobodyさん mailto:sage [2007/07/13(金) 15:52:21 ID:???]
- >>229
本の出力例＋説明はコマンドラインから走らせたときを想定してると思う。
CGIとして叩いた場合でなくて。
|
 |
