Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0032nobodyさん
04/04/07 02:46ID:???それをImageMagickでまた読み込んで編集して保存してるんですが、
これをわざわざ一度保存せず、編集して書き出すことって出来ないでしょうか？
いろいろ調べたのですが、どうもwin環境だからか、何度試しても動いてくれません。
CGI.pmを利用し、アップしたファイルのファイルハンドルが$fileに入ってます。
$img = Image::Magick->new;
$img->Read(file=>\$file);
↑こんな感じで動くと書いてあるｻｲﾄがあったりするのですが、
読み込んでくれません。
どのようにすれば可能なのか、また例えばwin環境では無理なのか等、
教えていただけませんでしょうか。
0033nobodyさん
04/04/07 03:12ID:???>>1
http://www.imagemagick.org/www/perl.html#exam
0034nobodyさん
04/04/07 05:02ID:???えっと、そのページは翻訳しもって一通り読んでます。
で、そのスクリプト例の項目がどう関係あるのかわからないのですが。。
つまり、そんなこと出来ないということでしょうか？
0036nobodyさん
04/04/07 07:20ID:???ああやっぱりそうですか・・・うちもperlが強制終了しちゃいます。
UNIX系の環境ではどうやら動くようなのですが、
レンタルしてる鯖につっこんで実験ってのはこわくてできないし(強制終了ですからねぇ)
そもそもローカルテスト環境と本番の環境で違うファイルにしなければならないというのは
少々困りものですし・・・。
出来ないなら諦めて今までどおり一旦保存して再読み込みでいくしかないですね。
しかし検索してもこのような問題が出てこないんで、やはり書き方に問題があるような気も。
もうちょっとだけ調べてみます。
0038nobodyさん
04/04/07 16:02ID:9kyfgT/3とは、どういう事なのでしょうか？
よく分りません。
よろしくお願いします。
0040nobodyさん
04/04/07 16:08ID:9kyfgT/3レスありがとうございます。
型グロブということは存じておりますが、
10を代入した結果、どうなるのか?、なぜそうなるのか?が分らないのです。
0041nobodyさん
04/04/07 17:36ID:???*hoge = \10ならまだ分かるが。
0042nobodyさん
04/04/07 18:04ID:s+a2EP68ｽﾐﾏｾﾝ､自分でどうなるかな・・・と。
*hoge = \10
なら型グロブに10へのリファレンスを生成するという事ですか？
型グロブにリファレンスって変な事ないですか？
0043nobodyさん
04/04/07 18:55ID:???型グロブは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:???表示はされるものの文字コードの処理の仕方がわかりませぬ（´Д｀）
よくみかける
$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;
ｷﾐが書いたときには、同じ記号が並ばずに<とか>ってなってたよな？
HTMLとかで読ませると、ｷﾐの書き込みのように記号扱いされてしまうが。
これを実態参照（だっけ？違ったら修正よろ）という。
ようするに、BBSなどで本文にﾀｸﾞとかを書かれると困るから、<や>記号を<とか>に置き換えようってことだ。
ｸｿ適当なんで誰か追記叩き修正ﾌｫﾛｰ暴言罵倒誹謗中傷お願いします。
004644
04/04/07 22:08ID:???そこんとこの意味はなんとなくわかるんですが
if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
while(<IN>){
($d,$DATE,$NAME,$SEX,$KATEGORI,$TEIKA1,$TEIKA2,$HANBAI1,$HANBAI2,$IMAGE,$KANRI) = split(/,/);
print qq( ・・・・
のどこにどんな風に記述すればいいですかのう・・（´Д｀）
0050nobodyさん
04/04/08 01:00ID:???それならjcodeの引数をもうひとつ追加すれば解決。
どっちにしろURIエンコードは関係なさそうだね。
005144
04/04/08 04:13ID:???いや、うまくいくと思ってたらうまくいかなかったので
なんでかなーと・・。
でももうひとつ引数追加すればいいわけですか。。
やってみるわ～。
あんがと～
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:???005553
04/04/08 20:46ID:???$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
$str = $1;
print $str;
実行した出力結果：
@
切り落とせてないんですが・・・
005653
04/04/08 20:48ID:???$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
print $str;
出力結果：
フ（と、変な文字）
やっぱり出力できてないんですが・・・
0057nobodyさん
04/04/08 20:58ID:???たぶん、sjisでやっていると思うんだけど、
ァの二バイト目=0x40、@=0x40っていうところに注目。
0058nobodyさん
04/04/08 21:02ID:???$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:nuxHv3wJ10進数のIPアドレスを、2進数の文字列に変換したいのですが、
$num2 = unpack("B32", pack("C*", 192,50,218,168)); のIPアドレスの部分を、192,～の固定でなくて、
ファイルから読み取りたいのですが、そこを $file と指定しても読み取ってくれません。
どう書いたらいいのでせうか・・・
006053
04/04/08 21:17ID:???凄い！それで無事行けました。
perlメモの、「正しくパターンマッチさせる」のsjisへの応用ですよね。
ところで、文字コードを表す部分は分かるんですが、最初の
?: と 最後の修飾詞 x の役目が良く分からないんですが・・・
? は「直前の１文字が0回または1回」ということですが、直前に何も付いてないみたいなんですが・・・
また、x （拡張正規表現）は、持ってるperl本を引いてみた所、「空白文字を無視し、#以降をコメント扱いする」とあります。
でも、空白もコメントも使ってないので、外してみたらマッチしなくなりました。
良ければこれら意味も教えて頂けないでしょうか？
0062nobodyさん
04/04/08 21:19ID:???0063nobodyさん
04/04/08 21:27ID:???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])*)/
とするべき。
006553
04/04/08 21:49ID:???あーっ、分かりました。
とんでもない勘違いしてました。空白文字を含むのは$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 に入ってなかったので、それっぽい変数を色々乗せてみましたが全く当たりません。
いったい、どこに行ったのでしょうか・・・？
0067nobodyさん
04/04/08 21:55ID:???何でもかんでも人に聞かずにとりあえず黙って調べてテストしてを繰り返せ
006953
04/04/08 22:00ID:???でも、本当に簡単なミスでも、指摘されるまで気付かないことだってありますよ。
いくらテストしても、エラー出ないからどの行が悪いのかも見当つかないし。
これで完全に解決できたので、以降書き込みには来ません。
答えてくれた方、有難うございました。
0070nobodyさん
04/04/08 22:12ID:???普段どんなデバッグ手法使ってるのか良く分かった。
0071nobodyさん
04/04/08 22:12ID:???何処でミスしたかもすぐわかるようになるんだよ
一つ質問する
↓
回答どおりしたら解決した
しかし他のわからないことも質問
↓
解決。別の質問
↓
繰り返し
この一連の流れの中に「自分で調べる」を入れろ
せめて2,3時間調べろ
0072nobodyさん
04/04/08 22:19ID:???0074nobodyさん
04/04/08 22:26ID:???おまいプログラムやめろ
少なくとも共用サーバでスクリプト走らせるのやめろ
007559
04/04/08 22:31ID:1altNbSl192.168.0.1
192.168.0.10
192.168.0.100
みたなものです。
0076nobodyさん
04/04/08 23:28ID:???$file = '192.50.218.168';
$num2 = unpack("B32", pack("C*", split(/\./, $file)));
0077nobodyさん
04/04/09 00:33ID:PgKEk2Oq例えば、１ＭぐらいあるＨＴＭＬファイルの<title>だけを知りたいので、先頭１０００バイトだけ取るとか。
0079nobodyさん
04/04/09 01:07ID:6udLpUMWさせるコードが上手く動きません。（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そのスクリプトのファイル名が myscript.cgi だとして
#!/usr/bin/perl
eval {
require 'myscript.cgi'; # あなたのスクリプトを読み込む
};
if ($@) {
print "Content-type: text/plain\n\n$@";
}
というスクリプトを実行するとどうなります？
詳しいエラーを見る事ができるはずなんだけど。
0082nobodyさん
04/04/09 01:21ID:???まずWWWサーバのエラーログを調べる
もしエラーログが調べられないときは、そうだな、
とりあえず改行コードでも疑ってみたらどうだ?
0083nobodyさん
04/04/09 01:25ID:???0086nobodyさん
04/04/09 01:58ID:6udLpUMWありがとうございます。下記のような表示が出たのですがさっぱりです（ちなみに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:???008979
04/04/09 02:24ID:6udLpUMWうーん おかしいなぁ 確かに指定したはずなのですが
ＣＧＩを実行したときのログをみてみたらこんな感じで書いてあった
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:???普通にフラグで判断しましょう。
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:???o <textarea cols=60 rows=3 name=text>$text</textarea>
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を使わなかったらずっと表示されたので
今は食い抑えてる幹事になってます。）
基本的っぽいけどｻﾊﾟｰﾘなのです。
宜しくお願い致します。。
009796
04/04/09 16:30ID:???0098nobodyさん
04/04/09 17:03ID:???0099nobodyさん
04/04/09 17:19ID:???while (<FILE>){($_,@_) = split /,/; print;}
close (FILE);
010075
04/04/09 18:56ID:gUQPCoa8>>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:???open (FILE, "ip.txt");
while(<FILE>) {
$num2 = unpack("B32", pack("C*", split(/\./)));
print "$num2\n";
}
close (FILE);
0102nobodyさん
04/04/09 19:04ID:???もうくんな発言スンナ
0103nobodyさん
04/04/09 19:40ID:???＞print "$a"
＞$i++;
＞};
ﾜﾛﾀｗ
$aの中身入れてないなら同じのが出て当然だろｗ
0105nobodyさん
04/04/09 21:54ID:???open(FILE, "./aborn.csv");
@list = <FILE>;
close(FILE);
@temp = ();
foreach $rr (@list){
if($rr eq $dellist){
print "$rrを削除しました<BR><BR>";
} else {
push(@temp, $rr);
print "$rrは削除せず<BR><BR>";
}
}
open(OUT, ">./aborn.csv");
print OUT @temp;
close(OUT);
以上のようなソースでプログラムを動かすと、
@listに$dellistと同じ文字列が含まれているのに、その文字列は削除されずに
else以下の「削除せず」をprintして、csvファイルからも削除されませんでした。
「eq」の部分が原因だと思うのですが、==では当然正常に動きませんし…
はて、どうしたものでしょうか。
0106nobodyさん
04/04/09 22:14ID:???http://tohoho.wakusei.ne.jp/wwwperl1.htm#CompStrOperand
http://tohoho.wakusei.ne.jp/wwwperl1.htm#MachingOperand
0107nobodyさん
04/04/09 22:16ID:???0108nobodyさん
04/04/09 22:16ID:???0109105
04/04/09 22:26ID:???今サーバーにアップロードして試してみると、リストからの削除が行えました。
変わりに、文字化けが起こるようになりましたが…
謎。
>>106-108
なるほど、eqにこだわらずneで組めばelse文がいらないというわけですか。
参考になります。
011079
04/04/09 23:21ID:6udLpUMW下記のようにコードを直したら無事cgi-lib.plが処理してくれました
（訂正前） &ReadParse; （訂正後）&ReadParse(*in);
実はこのコード、本にのっていたやつなんですけど、本が間違ってたんですかね。
いろいろ調べた結果&ReadParseの後ろに(*in)を付けないと フォームから渡された
データが in に入らないんですね。 なんかやられたって感じです。
でもみなさんにいろいろ教わった結果、perlのエラーはapacheのログみれば分かることや
その他いろいろのことを知ることができました。アドバイスいただいたみなさん ありがとう
ございました
0112nobodyさん
04/04/10 00:16ID:???日本語の表示についてです。
WindowsXP、AN HTTPD、ActivePerl5.8です。
ソースの文字コードはeucです。
use Encode;
use encoding 'euc-jp';
my $x = "あ";
print $x;
これだと文字化けしてしまいます。
Encode::from_toやEncode::encodeなどで$x文字コードを変換しても上手くいきません。
一応ググッてはみたのですが、見つかったPerl5.8の解説ページはどれも中級者向けといいますか、
読者が5.6以前の文字コードの扱いやjcode.plの扱いを理解しているという前提で書かれたようなものばかりで、
今から5.8でPerlを勉強しようという入門者向けに日本語の扱いを解説したページを見つけられませんでした。
0113nobodyさん
04/04/10 00:44ID:???おまいさんの思ってる「文字化け」の定義を述べよ。
ブラウザ側でエンコードを euc-jp として指定してやれば普通に見えるんじゃないか？
0114nobodyさん
04/04/10 01:04ID:???windowsのコンソールに表示させてる？
ならeuc-jpじゃなくてsjisで書いてencode指定すれば
とりあえず正しく表示される。
こんなのもちゃんと通る。
use encoding 'sjis';
my $x = "ソースを表示";
print "$x(";
print length $x;
print "文字)\n";
$x =~ s/表/提/;
print $x;
0117112
04/04/10 02:22ID:???新しく覚えたことはまず拡張子plでwindowsのコンソールで試し、その後CGIにして動かす、というやり方で勉強していました。
今回は最初のコンソールの段階で上手くいかなかったので、その後のCGIでブラウザ表示するのをやっておりませんでした。
レスを見て、CGIでのブラウザ表示を試したところ、eucで表示が確認できました。
>>113
というわけで、そもそもブラウザでの表示を試していませんでした。
>>114
ご指摘の通り、コンソールで表示させておりました。
ソースをsjisにすることでコンソールでも表示できました。
sjisだと色々問題が発生するのでソースはeucが基本、と書いてあるHPを読んだのでeucにしておりました。
>>115>
Perl5.8だと内部ではUTF8でどうのこうの、というあたりでかなり頭が混乱しております。
なんとか「あ」が表示できたので、これをとっかかりに詳しく勉強していこうと思います。
>>116
そのへん、まだ混乱しています。is_utf8($x)だと真になるので、UTF8なのか。
でも結局無変換のままで上手くいったので、やっぱりeucなのか。
UTF8フラグの立ったeuc？？
この辺がまだきちんと理解できてないので、近いうちにまた壁にぶつかる予感です。
0118nobodyさん
04/04/10 20:34ID:H+y5o94iリンク先に飛ぶときhttp-referrerに任意のURLをぶち込んで飛ぶということは可能でしょうか？
0120nobodyさん
04/04/10 20:44ID:???0121118
04/04/10 20:53ID:H+y5o94iレスありがとうございます。
CGIスレ見てみましたが、出来ないっぽいですね？
0122nobodyさん
04/04/10 21:06ID:???サーバーからはどうにもならんでしょう。
2chみたいにワンクッションさせてみるとか？
0124nobodyさん
04/04/10 22:07ID:zPwA0QL/下のスクリプトが上手く動かないんです
use strict;
{
package Config;
$host = "www.example.com";
}
package main;
print "host = $Config::host\n";
use strictしているときは、$Config::host = "www.example.com"; って書かないといけないみたいですが
これじゃあ、package Configの意味がないですよね？
package Config; のあとに no strict; っていうのを入れないといけないんですか？
どうしたらいいんだろう･･･おしえて。
0126nobodyさん
04/04/10 22:22ID:???$e2=int(rand(6));
while($e2==$e1){
$e2=int(rand(6));
}
$enemy3=int(rand(6));
while($e3==$e1 or $e3==$e2){
$enemy3=int(rand(6));
}
１～６から、ランダムで３つの数字を重複なしで、
取り出すプログラムなんですけど、
しょぼいですよね・・・
なにか華麗な方法知ってる方いれば、教えて下さい。
0127nobodyさん
04/04/10 22:24ID:???$e1=int(rand(6));
$e2=int(rand(6));
while($e2==$e1){
$e2=int(rand(6));
}
$e3=int(rand(6));
while($e3==$e1 or $e3==$e2){
$e3=int(rand(6));
}
0128nobodyさん
04/04/10 22:34ID:???プラグマの影響範囲を誤解している。
http://perldoc.com/perl5.8.0/pod/perlmodlib.html
>>126
1..6 をランダムな順序で持つ配列から 3 つ取り出す。
http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom
0129nobodyさん
04/04/10 23:02ID:???use strictの意味も分からずuse strictしても意味無いですよね？
perl5.6.0未満のバージョンなら
{
package Config;
use vars qw($host);
$host = "www...";
}
perl5.6.0以上のバージョンなら
{
package Config;
our $host = "www...";
}
# ...
print $Config::host;
0130nobodyさん
04/04/11 00:07ID:???何スレか前に同じ質問があった。
そのときは確か、List::Utilが使えれば一番早くて楽だっていう
結論だった気がする。
use List::Util qw(shuffle);
($enemy1,$enemy2,$enemy3) = shuffle 1..6; #@enemy[0..2] の方がいいと思う。
■ このスレッドは過去ログ倉庫に格納されています