トップページ⇒php
1001コメント382KB

Perl コーディング初心者質問コーナー Part34

■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ04/04/05 16:01ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10
0002nobodyさん04/04/05 16:18ID:???
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc2.2ch.net/test/read.cgi/php/1077525387/
【 スクリプト改造依頼スレ 】(丸投げ)
http://pc2.2ch.net/test/read.cgi/php/1076831972/
△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/
【Perl】ファイルロック(排他処理)について語ろう
http://pc2.2ch.net/test/read.cgi/php/1024795138/
★負荷軽減対策委員会（Perl、PHP)★
http://pc2.2ch.net/test/read.cgi/php/1034645635/
【Perl】掲示板を使ろう！
http://pc2.2ch.net/test/read.cgi/php/988890976/
Perlモジュールについて
http://pc2.2ch.net/test/read.cgi/php/997829243/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
0003nobodyさん04/04/05 16:19ID:???
［過去ログ] 1 of 2

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
0004nobodyさん04/04/05 16:20ID:???
[過去ログ] 2 of 2

Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)
part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc2.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc2.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc2.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc2.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc2.2ch.net/test/read.cgi/php/1069846177/
part31 http://pc2.2ch.net/test/read.cgi/php/1072896288/
part32 http://pc2.2ch.net/test/read.cgi/php/1075545279/ (タイトルに31と誤記) 前スレ
part33 http://pc5.2ch.net/test/read.cgi/php/1078076768/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html
0005nobodyさん04/04/05 16:21ID:???
[総合]
　・http://www.excite.co.jp/world/ # 英文のページ多いから一応
　・Perl Com: http://www.perl.com/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/ # 死んでるか?
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/
0006nobodyさん04/04/05 16:21ID:???
　[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/
0007nobodyさん04/04/05 16:27ID:???
初心者の質問は8本目に移行しております。

△▲　WebProg 初心者の質問 Part8　▼▽
http://pc5.2ch.net/test/read.cgi/php/1078568723/
0008nobodyさん04/04/05 16:28ID:???
過去ログで読めないスレは s/pc2/pc5/ とすると読めるかも知れません。
0009nobodyさん04/04/05 19:00ID:???
初歩的な質問で申し訳ないんですが教えて下さい。
所謂、動作が遅いといわれるモジュールを使用する場合、例えばCGI.pmとして、
オブジェクト指向じゃなく関数指向で利用し、
インポートする関数を極力抑えて少なくするのと、
よく見る:standardとして殆どをインポートするのとでは
前者の方が動作は速くなるのでしょうか？
0010nobodyさん04/04/05 19:33ID:???
>>9
http://www.google.co.jp/search?num=100&q=Apache+Bench&lr=lang_ja
http://perldoc.com/perl5.8.0/lib/Benchmark.html

・使わない関数をコンパイルさせない方が速い。
・メソッド呼び出しより関数呼び出しの方が速い。

理論上は、ね。
0011nobodyさん04/04/05 19:58ID:???
>>10
ですよねぇ
しかしベンチとったんだけどほっとんど変わらなかったんで聞いたんですが、
まぁ一応これからも関数指向・使う関数のみインポートでやっていきます。
有難うございました。
0012nobodyさん04/04/05 20:36ID:sKUQSXmG
前ｽﾚのﾚｽ番ﾐｽがｱﾌｫすぎて泣けてきますね。
0013nobodyさん04/04/05 21:27ID:???
>12
仕事人★のおかげでログが完全復旧せず「空白の一日」が
出来たからじゃない？　専ブラ使っている人が、
「空白の一日」込みのログをそのまま使っていたせいだと思われ。
0014nobodyさん04/04/05 21:47ID:???
>>11
CGI.pm に限って言えば、現実問題として、誤差の範囲内だと思う
負荷が気になるなら CGI::Lite 使うとかそういう
0015nobodyさん04/04/06 12:17ID:???
sub loadPass
{
open(FILE,"$PASSFILE");
while(<FILE>)
{
s/[\n\r]*$//g;
my($id,$pass,$writer,$name) = split(/\t/);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
}
close FILE;
}
このようなコードを書いたのですが,
読み込むファイルの最初の行のデータだけが読み込めません。
何が悪いのでしょうか？
00161504/04/06 12:26ID:???
ちなみに読み込むファイルの内容は以下のようになっています

id1[TAB]pass1[TAB]writer1[TAB]name1
id2[TAB]pass2[TAB]writer2[TAB]name2
id3[TAB]pass3[TAB]writer3[TAB]name3
id4[TAB]pass4[TAB]writer4[TAB]name4

このうち,id1が読み込めていないようです。
0017nobodyさん04/04/06 13:02ID:???
↑のｿｰｽをｺﾋﾟってやったら俺は読めたぞ

#!/usr/local/bin/perl

$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
while(<FILE>)
{
s/[\n\r]*$//g;
my($id,$pass,$writer,$name) = split(/\t/);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
print "1:$PASS{\"$id\"}\n";
print "2:$WRITER{\"$id\"}\n";
print "3:$NAME{\"$writer\"}\n";
}
close FILE;
0018nobodyさん04/04/06 13:03ID:???
ｽﾏﾝ、勘違い。読めてねぇや。ちとタンマ。
0019nobodyさん04/04/06 13:12ID:???
#!/usr/local/bin/perl
$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
@data = <FILE>;
foreach $temp (@data) {
my($id,$pass,$writer,$name) = split(/\t/,$temp);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
print "1:\$PASS{\"$id\"} = $PASS{\"$id\"}\n";
print "2:\$WRITER{\"$id\"} = $WRITER{\"$id\"}\n";
print "3:\$NAME{\"$writer\"} = $NAME{\"$writer\"}\n";
}
close FILE;
0020nobodyさん04/04/06 13:13ID:???
結果。これで読めてるっしょ。

D:\>perl test.cgi
1:$PASS{"id1"} = pass1
2:$WRITER{"id1"} = writer1
3:$NAME{"writer1"} = name1

1:$PASS{"id2"} = pass2
2:$WRITER{"id2"} = writer2
3:$NAME{"writer2"} = name2

1:$PASS{"id3"} = pass3
2:$WRITER{"id3"} = writer3
3:$NAME{"writer3"} = name3

1:$PASS{"id4"} = pass4
2:$WRITER{"id4"} = writer4
3:$NAME{"writer4"} = name4
0021nobodyさん04/04/06 13:24ID:???
↑がなんでforeachにしてるかわからんが。表示させて確かめれ。俺はこうだ。
$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
while(<FILE>) {
  s/[\n\r]*$//g;
  my($id,$pass,$writer,$name) = split(/\t/);
  $PASS{"$id"} = $pass;
  $WRITER{"$id"} = $writer;
  $NAME{"$writer"} = $name;
  print "\$PASS{\"$id\"} = $PASS{\"$id\"}\n";
  print "\$WRITER{\"$id\"} = $WRITER{\"$id\"}\n";
  print "\$NAME{\"$writer\"} = $NAME{\"$writer\"}\n\n";
}
close FILE;
0022nobodyさん04/04/06 13:25ID:???
1行目
$PASS{"id1"} = pass1
$WRITER{"id1"} = writer1
$NAME{"writer1"} = name1
2行目
$PASS{"id2"} = pass2
$WRITER{"id2"} = writer2
$NAME{"writer2"} = name2
3行目
$PASS{"id3"} = pass3
$WRITER{"id3"} = writer3
$NAME{"writer3"} = name3
4行目
$PASS{"id4"} = pass4
$WRITER{"id4"} = writer4
$NAME{"writer4"} = name4
0023nobodyさん04/04/06 13:36ID:???
>15
話とは関係無いんだが

$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;

って

$PASS{"$id"} = $pass;
$WRITER{"$writer"} = $writer;
$NAME{"$name"} = $name;

じゃ無いの?
0024nobodyさん04/04/06 13:37ID:???
↑ごめんボーっとしてたスルーして。
0025nobodyさん04/04/06 14:06ID:???
誰かｴﾛい人まとめてー
0026nobodyさん04/04/06 14:19ID:???
s/[\n\r]*$//g;　ってなんだよ・・・
まあいいけど
0027未承諾広告※ ◆TWARamEjuA 04/04/06 14:21ID:???
>>25
zip -9 -o ./loadPasszip ./loadPass.pl
0028nobodyさん04/04/06 16:09ID:???
ここは質問者の感謝が最近足りていないｽﾚですね。
0029nobodyさん04/04/06 17:57ID:???
>>26
>>21じゃないけど、なんかおかしい？ chompは不安だから自前でやってるんでは？
0030nobodyさん04/04/06 18:02ID:???
>>29
/g は要らんし、より正確に書くなら \n \r ではなく \x0A \x0D
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Remove
0031nobodyさん04/04/06 18:04ID:???
俺はこう書いてるけど。
/\r\n|\r|\n/
何かﾏｽﾞい？
0032nobodyさん04/04/07 02:46ID:???
いま、UPされたファイルをCGI.pmを使ったりして一度保存し、
それをImageMagickでまた読み込んで編集して保存してるんですが、
これをわざわざ一度保存せず、編集して書き出すことって出来ないでしょうか？
いろいろ調べたのですが、どうもwin環境だからか、何度試しても動いてくれません。

CGI.pmを利用し、アップしたファイルのファイルハンドルが$fileに入ってます。
$img = Image::Magick->new;
$img->Read(file=>\$file);

↑こんな感じで動くと書いてあるｻｲﾄがあったりするのですが、
読み込んでくれません。
どのようにすれば可能なのか、また例えばwin環境では無理なのか等、
教えていただけませんでしょうか。
0033nobodyさん04/04/07 03:12ID:???
>>32
>>1
http://www.imagemagick.org/www/perl.html#exam
0034nobodyさん04/04/07 05:02ID:???
>>33
えっと、そのページは翻訳しもって一通り読んでます。
で、そのスクリプト例の項目がどう関係あるのかわからないのですが。。
つまり、そんなこと出来ないということでしょうか？
0035nobodyさん04/04/07 06:45ID:???
>>34
私のところでは、問題発生しました…で強制終了。
ファイルハンドルではなぜか使えない。
0036nobodyさん04/04/07 07:20ID:???
>>35
ああやっぱりそうですか・・・うちもperlが強制終了しちゃいます。
UNIX系の環境ではどうやら動くようなのですが、
レンタルしてる鯖につっこんで実験ってのはこわくてできないし(強制終了ですからねぇ)
そもそもローカルテスト環境と本番の環境で違うファイルにしなければならないというのは
少々困りものですし・・・。

出来ないなら諦めて今までどおり一旦保存して再読み込みでいくしかないですね。
しかし検索してもこのような問題が出てこないんで、やはり書き方に問題があるような気も。
もうちょっとだけ調べてみます。
00371504/04/07 09:13ID:???
>>16-31
なんとか解決できました。
ありがとうございました。
0038nobodyさん04/04/07 16:02ID:9kyfgT/3
*hoge = 10;
とは、どういう事なのでしょうか？
よく分りません。
よろしくお願いします。
0039nobodyさん04/04/07 16:04ID:???
>>38
型グロブ
0040nobodyさん04/04/07 16:08ID:9kyfgT/3
>>39
レスありがとうございます。
型グロブということは存じておりますが、
10を代入した結果、どうなるのか?、なぜそうなるのか?が分らないのです。
0041nobodyさん04/04/07 17:36ID:???
普通 *hoge = 10 なんてしない。誰だよそんなコード書いてる香具師は。
*hoge = \10ならまだ分かるが。
0042nobodyさん04/04/07 18:04ID:s+a2EP68
>>41
ｽﾐﾏｾﾝ､自分でどうなるかな・・・と。
*hoge = \10
なら型グロブに10へのリファレンスを生成するという事ですか？
型グロブにリファレンスって変な事ないですか？
0043nobodyさん04/04/07 18:55ID:???
>>42
型グロブはSCALAR, ARRAY, HASHなどのフィールドを持ったデータ。
(スカラー、配列、ハッシュにそれぞれ同じ名前で別の変数を定義できるのもこのため)
*hoge = \10 や *hoge = \%hash は型グロブのそれぞれのデータフィールドへの代入となる。
つまり、上記の代入を行った後は $foo は定数10の別名となり、print $fooは10を表示する。
定数の別名である為、$foo = 1等は10 = 1と等価となり、実行時エラーになる。
もちろん、%hogeは%hashの別名になる。
このフィールドは、直接 *hoge{SCALAR}, *hoge{HASH} として直接参照することも出来る以下略
0044nobodyさん04/04/07 21:03ID:???
csvのデータをよみこんで、ただ表示するcgiを作ろうと思っているのですが、
表示はされるものの文字コードの処理の仕方がわかりませぬ（´Д｀）

よくみかける
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\t//g;
$value =~ s/\,//g;

を使うんだとは思うんですが、教えてください。。
ちなみに今は
if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
while(<IN>){
($d,$DATE,$NAME,$SEX,$KATEGORI,$TEIKA1,$TEIKA2,$HANBAI1,$HANBAI2,$IMAGE,$KANRI) = split(/,/);
print qq(　・・・・
とかいております。。
よろしくお願いいたします。
0045nobodyさん04/04/07 21:18ID:???
おｋおｋ。
ｷﾐはGETでﾊﾟﾗﾒｰﾀを渡したとき、hoge.cgi?a=001+1&b=002&...というのは見たことはあるな？後ろにくっつくｳｻﾞい文字列だ。
日本語を渡すとわかるが、ﾜｹわからん状態になっているはずだ。
あれを正常な状態に戻す処理だ。

１．$value =~ tr/+/ /;
I am hoge.という文字列をQUERY STRINGに渡すと、I+am+hogeとなる。空白の部分が+になるわけだ。
これじゃ元のデータと違ってしまうから、+を半角スペースに置き換える処理。

２．$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis');
%8B%B3%82%A6%82%C4%8C%4E%82%CD%8B%41%82%EAなどの文字列を普通の文字列に直す処理。
後半はjcode.plやらの文字コード変換ツールでsjisに変換している。

３．$value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g;
ｷﾐが書いたときには、同じ記号が並ばずに&lt;とか&gt;ってなってたよな？
HTMLとかで読ませると、ｷﾐの書き込みのように記号扱いされてしまうが。
これを実態参照（だっけ？違ったら修正よろ）という。
ようするに、BBSなどで本文にﾀｸﾞとかを書かれると困るから、<や>記号を&lt;とか&gt;に置き換えようってことだ。

ｸｿ適当なんで誰か追記叩き修正ﾌｫﾛｰ暴言罵倒誹謗中傷お願いします。
00464404/04/07 22:08ID:???
>>45
そこんとこの意味はなんとなくわかるんですが
if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
while(<IN>){
($d,$DATE,$NAME,$SEX,$KATEGORI,$TEIKA1,$TEIKA2,$HANBAI1,$HANBAI2,$IMAGE,$KANRI) = split(/,/);
print qq(　・・・・
のどこにどんな風に記述すればいいですかのう・・（´Д｀）
0047nobodyさん04/04/07 23:47ID:???
>>44
cgiで$fileを読み込んで表示したいだけではないの？
なぜデコードや文字コードの処理がでてくるのやら。
0048nobodyさん04/04/07 23:56ID:???
>>46
それだけのコードが自分で書けるのに、なぜ分からんのか不思議。
0049nobodyさん04/04/08 00:28ID:???
>>46
つか具体的にどういう不具合があるのさ
0050nobodyさん04/04/08 01:00ID:???
出力はSJIS。CSVファイルはEUC。そして文字化け。ってことかの？
それならjcodeの引数をもうひとつ追加すれば解決。
どっちにしろURIエンコードは関係なさそうだね。
00514404/04/08 04:13ID:???
>>47-50

いや、うまくいくと思ってたらうまくいかなかったので
なんでかなーと・・。
でももうひとつ引数追加すればいいわけですか。。
やってみるわ～。
あんがと～
0052nobodyさん04/04/08 10:14ID:???
情報を小出しにするとみんなが混乱する凡例でした。

では次の質問ﾄﾞｿﾞｰ
0053nobodyさん04/04/08 20:22ID:???
詰まったので質問させてください。
「ハンドルネーム＠～」って名前を入れられた時に、＠以下を切り落としたいんですが
名前によっては上手く切り落とせないんです。

$str = "ファイア@炎";
$str =~ /^([^＠^@]+)/;
$str = $1;
print $str;

例えば、この場合「フ」とあとなんか変な文字が$strに入ってしまいます。
入力文字列によっては上手く切り落とせる事もあるんですが・・・
何が悪いんでしょうか？
0054nobodyさん04/04/08 20:41ID:???
$str =~ s/(＠|@).+$//;
00555304/04/08 20:46ID:???
>>54
$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
$str = $1;
print $str;

実行した出力結果：
@

切り落とせてないんですが・・・
00565304/04/08 20:48ID:???
勘違い。

$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
print $str;

出力結果：
フ（と、変な文字）

やっぱり出力できてないんですが・・・
0057nobodyさん04/04/08 20:58ID:???
EUCに変換してから処理するのが吉。
たぶん、sjisでやっていると思うんだけど、
ァの二バイト目=0x40、@=0x40っていうところに注目。
0058nobodyさん04/04/08 21:02ID:???
>>53
$str = "ファイア@炎";
$str =~ /^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|
[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|
[\x20-\x3f\x41-\x7e])*)/x;
$str = $1;
print $str;
0059nobodyさん04/04/08 21:14ID:nuxHv3wJ
pack関数で困ってます。
10進数のIPアドレスを、2進数の文字列に変換したいのですが、

$num2 = unpack("B32", pack("C*", 192,50,218,168));　のIPアドレスの部分を、192,～の固定でなくて、
ファイルから読み取りたいのですが、そこを $file と指定しても読み取ってくれません。
どう書いたらいいのでせうか・・・
00605304/04/08 21:17ID:???
>>58
凄い！それで無事行けました。
perlメモの、「正しくパターンマッチさせる」のsjisへの応用ですよね。

ところで、文字コードを表す部分は分かるんですが、最初の
?: と 最後の修飾詞 x の役目が良く分からないんですが・・・
? は「直前の１文字が0回または1回」ということですが、直前に何も付いてないみたいなんですが・・・
また、x （拡張正規表現）は、持ってるperl本を引いてみた所、「空白文字を無視し、#以降をコメント扱いする」とあります。
でも、空白もコメントも使ってないので、外してみたらマッチしなくなりました。
良ければこれら意味も教えて頂けないでしょうか？
0061nobodyさん04/04/08 21:18ID:???
>>59
>>1
0062nobodyさん04/04/08 21:19ID:???
常識じゃないのか
0063nobodyさん04/04/08 21:27ID:???
>>60
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlre.html

改行やタブも空白文字 (white space) 。
>>58 は改行されているので /x が必要。
/x を外したかったら
/^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20-\x3f\x41-\x7e])*)/
とするべき。
0064nobodyさん04/04/08 21:46ID:???
>>59
$fileには何が入ってるの?
00655304/04/08 21:49ID:???
>>63
あーっ、分かりました。
とんでもない勘違いしてました。空白文字を含むのは$strではなく、パターンの方ですね。
どうもこういう勘違い多いな自分・・・
これで納得できました。どうも有難うございます。
?: については、本調べてたら載ってました。前方一致、ってことですね。
perl5に追加された拡張構文であり、拡張正規表現の x修飾詞とは別に関係ない。
まぎらわしいけど、何とか覚えました。

これで何とか出来そうです。
・・・なんですが、おまけで書いて頂いた「/xを外したかったら」を実行してみたところ挙動が変です。
何度もすみませんが、こういうのどうしても気になる性質で・・・

$str = "ファイア@炎";
$str = /^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20-\x3f\x41-\x7e])*)/;
print $str;# マッチング判定結果表示
$str = "$1 $2 $3 $_";
print $str;

実行結果：
1

------------------------
マッチングは上手く出来てるようなんですが、その文字列がどこに格納されたのかが分からないんです。
$1 に入ってなかったので、それっぽい変数を色々乗せてみましたが全く当たりません。
いったい、どこに行ったのでしょうか・・・？
0066nobodyさん04/04/08 21:52ID:???
>>65
マッチング？
$strに代入して何がしたい？
0067nobodyさん04/04/08 21:55ID:???
もういいよ来るな
何でもかんでも人に聞かずにとりあえず黙って調べてテストしてを繰り返せ
00685304/04/08 21:56ID:???
>>66
あ（恥
すみません、単純なコードミスでした。
エラー出して欲しかった・・・ use strictしてもにエラーでなかったし
00695304/04/08 22:00ID:???
>>67
でも、本当に簡単なミスでも、指摘されるまで気付かないことだってありますよ。
いくらテストしても、エラー出ないからどの行が悪いのかも見当つかないし。

これで完全に解決できたので、以降書き込みには来ません。
答えてくれた方、有難うございました。
0070nobodyさん04/04/08 22:12ID:???
> 指摘されるまで気付かないことだってありますよ。

普段どんなデバッグ手法使ってるのか良く分かった。
0071nobodyさん04/04/08 22:12ID:???
んなもん、やってるうちに簡単なミスなんかしなくなるし
何処でミスしたかもすぐわかるようになるんだよ

一つ質問する
↓
回答どおりしたら解決した
しかし他のわからないことも質問
↓
解決。別の質問
↓
繰り返し

この一連の流れの中に「自分で調べる」を入れろ
せめて2,3時間調べろ
0072nobodyさん04/04/08 22:19ID:???
たしかに言語と自分の癖が分かってくると、あー糞またあのミスかってなるｗ
0073nobodyさん04/04/08 22:21ID:???
>>72
それは財産だ。大事にするﾖﾛｼ
0074nobodyさん04/04/08 22:26ID:???
＞指摘されるまで気付かないことだってありますよ

おまいプログラムやめろ
少なくとも共用サーバでスクリプト走らせるのやめろ
00755904/04/08 22:31ID:1altNbSl
>>64 IPアドレスが一行づつかれたファイルです。
192.168.0.1
192.168.0.10
192.168.0.100
みたなものです。
0076nobodyさん04/04/08 23:28ID:???
>>75
$file = '192.50.218.168';
$num2 = unpack("B32", pack("C*", split(/\./, $file)));
0077nobodyさん04/04/09 00:33ID:PgKEk2Oq
http::liteで、対象のページの一部分だけ取り出す方法はありますか？
例えば、１ＭぐらいあるＨＴＭＬファイルの<title>だけを知りたいので、先頭１０００バイトだけ取るとか。
0078nobodyさん04/04/09 00:47ID:???
>>77
callback を使えばできるんじゃないかという気はするが、試してない
0079nobodyさん04/04/09 01:07ID:6udLpUMW
cgi-lib.plを使用して、HTMLのフォームから送信したテキストを新たなＨＴＭＬページに表示
させるコードが上手く動きません。（perl ver 5.8.0 cgi-lib.pl ver 1.14）

require 'cgi-lib.pl';

&ReadParse;
$namae=$in{'NAMAE'};

print "content-type: text/html\n\n";

print "<html>";
#print $namae;
print "test\n";
print "</html>";

としているのですが、ＨＴＭＬフォームからテキストを送ると「ページを表示できません」が出てしまい
うまく実行されません。cgi-lib.plをコマンドラインから実行すると、間違いなく動いているのですが、
ＨＴＭＬから上記ＣＧＩを実行すると　うまくいきません。
　お分かりのかたいらっしゃるでしょうか
0080nobodyさん04/04/09 01:09ID:6udLpUMW
ｽﾐﾏｾﾝ　↑のコード間違いです

#!/usr/bin/perl
require 'cgi-lib.pl';
&ReadParse;
$namae=$in{'NAMAE'};

print "content-type: text/html\n\n";

print "<html>";
print $namae;
print "</html>";

というコードを書いたのですが、うまくいきません
0081nobodyさん04/04/09 01:21ID:ruDZ3+hJ
>>80
そのスクリプトのファイル名が myscript.cgi だとして

#!/usr/bin/perl
eval {
  require 'myscript.cgi'; # あなたのスクリプトを読み込む
};
if ($@) {
  print "Content-type: text/plain\n\n$@";
}

というスクリプトを実行するとどうなります？
詳しいエラーを見る事ができるはずなんだけど。
0082nobodyさん04/04/09 01:21ID:???
>>80
まずWWWサーバのエラーログを調べる

もしエラーログが調べられないときは、そうだな、
とりあえず改行コードでも疑ってみたらどうだ?
0083nobodyさん04/04/09 01:25ID:???
あと疑うべきは #!/usr/bin/perl の部分とか。
0084nobodyさん04/04/09 01:25ID:???
>>80
じゃあHTMLが間違ってるんだろ
0085nobodyさん04/04/09 01:36ID:???
>>77
http::liteはシランが、headerでrange:を送れば鯖が一部だけ送ってくれる。
0086nobodyさん04/04/09 01:58ID:6udLpUMW
>>81
ありがとうございます。下記のような表示が出たのですがさっぱりです（ちなみにcgiファイル名は「my.pl」

Can't locate my.pl in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.
0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_pe
rl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/ve
ndor_perl .) at /var/www/cgi-bin/test.pl line 3.

>>84
ＨＴＭＬは間違っていないと思います
ちなみに下記
<html>
<meta http-equiv="Content-Type" content="text/html;charset=euc">
<body>
<form method="post" action="../cgi-bin/3-3-1.pl">
名前<input type="text" name="NAMAE"><p>
<input type="submit">
</form>
</body>
</html>

ＨＴＭＬの文字をperlで変数に格納し、それをＨＴＭＬで表示させるだけなのですが
>>83さんもおっしゃるように　perlのパスも本体ＣＧＩやcgi-lib.pl内のパスも確認したのですが
間違っていないと思うのですが、どうしてうまくいかないものでしょう
0087nobodyさん04/04/09 01:59ID:6udLpUMW
↑のＨＴＭＬ間違ってました（たびたびでｽﾐﾏｾﾝ）

<html>
<meta http-equiv="Content-Type" content="text/html;charset=euc">
<body>
<form method="post" action="../cgi-bin/my.pl">
名前<input type="text" name="NAMAE"><p>
<input type="submit">
</form>
</body>
</html>
0088nobodyさん04/04/09 02:08ID:???
test.pl の 3行目にある my.pl なんて見つかりませんよと言われているが？
00897904/04/09 02:24ID:6udLpUMW
>>88
うーん　おかしいなぁ　確かに指定したはずなのですが

ＣＧＩを実行したときのログをみてみたらこんな感じで書いてあった
Argument "NAMAE=ffffff" isn't numeric in subroutine
entry at /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/ModPerl/RegistryCooker.pm line 160.!

もう少し調べてみることにします　ありがとうございました

0090nobodyさん04/04/09 04:37ID:+yDvGh6O
既にヘッダーが送信されているか判断する方法ってありますか？
エラー表示する時に、ヘッダー（content-type）が２重になってしまう場合があるので…。
ヘッダー出力すると同時に、定数か何かでフラグ立てておけば良いんでしょうか？
0091nobodyさん04/04/09 04:39ID:???
ヘッダーなんてただ標準出力に文字を垂れ流してるだから、判別は無理と思われ。
普通にフラグで判断しましょう。
0092nobodyさん04/04/09 04:42ID:???
>>91
素早い返答ありが㌧
フラグ立てることにします。
0093nobodyさん04/04/09 08:40ID:qDAc9oFc
質問します

やりたいこと：
掲示板の投稿済み投稿内容編集フォームで
改行を<ＢR>に変換して保存した本文を
<BR>を改行コードになおして
テキストエリアに投稿済みの本文を表示する

こんな風にやってみた：
１．$text =~ s/<BR>/\x0D\x0A/g;
<textarea cols=60 rows=3 name=text value=$text></textarea>
２．$text =~ s/<BR>/\n/g;
<textarea cols=60 rows=3 name=text value=$text></textarea>

両方ともだめでした。
$textの内容が空になります

よろしくお願いします。
0094nobodyさん04/04/09 08:56ID:???
x <textarea cols=60 rows=3 name=text value=$text></textarea>
o <textarea cols=60 rows=3 name=text>$text</textarea>
0095nobodyさん04/04/09 09:02ID:???
>>94
できました。
タグ間違いだったとは(:;´.(Θ).`;:)
0096nobodyさん04/04/09 16:05ID:???
やりたいこと :
csvの中身を表示したい。

こんな風に自分は書いた ：

open(FILE, "test.csv");
$data = <FILE>;
close FILE;
($a,$b) = split (/,/,$data);
$i = 0;
while ($i < 5){
print "$a"
$i++;
};

結果。同じ列の文字が繰り返される。。
（whileを使わなかったらずっと表示されたので
今は食い抑えてる幹事になってます。）

基本的っぽいけどｻﾊﾟｰﾘなのです。
宜しくお願い致します。。
00979604/04/09 16:30ID:???
できました。。すいません。
0098nobodyさん04/04/09 17:03ID:???
せめてどうやったらできたのかぐらい書いてよ。
0099nobodyさん04/04/09 17:19ID:???
open (FILE, 'test.csv');
while (<FILE>){($_,@_) = split /,/; print;}
close (FILE);
01007504/04/09 18:56ID:gUQPCoa8
75 ：59 ：04/04/08 22:31 ID:1altNbSl
>>64 IPアドレスが一行づつかれたファイルです。
192.168.0.1
192.168.0.10
192.168.0.100
みたなものです。


76 ：nobodyさん ：04/04/08 23:28 ID:???
>>75
$file = '192.50.218.168';
$num2 = unpack("B32", pack("C*", split(/\./, $file)));

↑ありがとうございました。変換できました。
変換後、改行がなくなりこのように↓変換したIP文字列がつながってしまいました。
これを32文字づつ、改行したいのですが、どのような構文？を使用すればいいのでしょうか。
とっかかりが分かりませんので、さわりだけ教えていただければ後は調べますので
よろしければ教えて下さい。

=======================================================
00001100100110110111010011110011000011001101001000110000111111100000110011100101
11010011010101110000110011100110000100010010011010000001000010110110100000000001
10000001000010110110111011011010100000010000101101110100000011011000000100001011
01110100100000101000000100001011011101000011100010000001000010110111010001001010
10000001000010110111011001111000100000010000101101110110111110001000000100001011
10001011000000011000000100001011000011100000000110000001000010111001000000000010
================================================
0101nobodyさん04/04/09 19:03ID:???
>>100
open (FILE, "ip.txt");
while(<FILE>) {
　$num2 = unpack("B32", pack("C*", split(/\./)));
　print "$num2\n";
}
close (FILE);
■ このスレッドは過去ログ倉庫に格納されています