Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0784nobodyさん
05/01/16 16:22:42ID:???これはご存知？
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Private_Variables_via_my_
> “my”は、それを囲んでいるブロック、条件文 (if/unless/elsif/else)、
> ループ(for/foreach/while/until/continue)、サブルーチン、eval、
> あるいはdo/require/useされたファイルに(lexicalに)閉じ込められる変数を定義します。
{
my ($a, $b, $c) = qw(1 2 3);
}
# 他で参照していない限り、ここで$a,$b,$cは無くなります。
print $a, $b, $c; # use strictならエラー
グローバル変数をundefするというのなら、
undefするより別の名前の新しい変数を作るべきです。
0787784
05/01/16 19:35:11ID:???sortに使う特殊な変数ですね。
http://www.perldoc.com/perl5.8.4/pod/perlvar.html
> $a
> $b
> Special package variables when using sort(), see perlfunc/sort.
> Because of this specialness $a and $b don't need to be declared
> (using use vars, or our()) even when using the strict 'vars' pragma.
> Don't lexicalize them with my $a or my $b if you want to be able to use them
> in the sort() comparison block or function.
0788nobodyさん
05/01/16 21:59:39ID:???> グローバル変数をundefするというのなら、
> undefするより別の名前の新しい変数を作るべきです。
undefにはメモリの開放という働きもあるので、一概にはいえない。
0789nobodyさん
05/01/16 22:18:34ID:???（´,_ゝ｀）ﾌﾟｯ
0790nobodyさん
05/01/16 22:48:38ID:???チンカス君はメモリの開放という表現が嫌いかな?
↓これを
$size = 10;
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
undef有効にして実行
$ time perl test.pl
real 0m8.430s
user 0m1.549s
sys 0m0.334s
undefをコメントアウトして実行
$ time perl test.pl
real 0m12.044s
user 0m1.540s
sys 0m0.673s
sizeは実装メモリで加減してくれ。
0791nobodyさん
05/01/16 23:26:56ID:???$size = 1;
timethese(10000, {
'(1)' => '&test1;',
'(2)' => '&test2;',
});
sub test1 {
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
}
sub test2 {
$a = '0' x (1024 * 1024 * $size);
$b = '1' x (1024 * 1024 * $size);
}
Benchmark: timing 10000 iterations of (1), (2)...
(1): 272 wallclock secs (227.82 usr + 40.47 sys = 268.29 CPU) @ 37.27/s (n=10000)
(2): 251 wallclock secs (247.34 usr + 0.08 sys = 247.42 CPU) @ 40.42/s (n=10000)
0792nobodyさん
05/01/16 23:31:53ID:???0793nobodyさん
05/01/17 01:20:52ID:???馬鹿?
実装メモリの1/4位は取ってみろ。
test1は何見てんの $a確保→開放→$b確保→戻る 意味ねー
0795nobodyさん
05/01/17 02:34:12ID:???undef有効の場合
>>790は各々1回しか実行しない。
$a確保→$a開放→$b確保
使用メモリ: $sizeMB
>>793は各々10000回実行する。
$a確保→$a開放→$b確保→$a確保→$a開放→$b確保→
使用メモリ: 2*$sizeMB
全然違う。
0796nobodyさん
05/01/17 03:49:42ID:???$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/>>/>>/g;
$res =~ s/([^>])<blockquote>/\1<\/p><blockquote>/g;
としてみました。
$resは書き込まれた内容をp要素で括ったものなので、
<p>>から始まる は、文頭から引用だった場合、
<br>>から始まる は、文頭ではなく、行頭から引用だった場合、です。
最後の行は、もしも、文頭ではなく、行頭だった場合、その前のp要素を閉じる、という処理です。
現状では問題は発生しませんが、
「こんな書き込み方をされたらこんな問題出るだろ」というのとかありましたらお教え下さい。
次はネストに挑戦しようと思ってるんですけど、この段階で穴がありそうな気がして前に進めません。
0797784
05/01/17 07:07:24ID:???確かに変数を増やすのはメモリを使いますが、>>790のような何MBというデータは
果たして本当にグローバル変数で確保しておく必要があるのでしょうか。
メモリの1/4を使うというというのなら、設計から見直して、変数を局所化する方法を
探してみたほうが良いと思います。
0798nobodyさん
05/01/17 07:55:49ID:???想定している$resの内容がちょっとわからないけど、
$res = "<p>>引用<br></p>";
<blockquote><p>>引用</p></blockquote><p></p>
# 続くP要素内がカラになる
$res = "<p>>引用</p>";
<p>>引用</p>
# 引用できない
0799772
05/01/17 08:55:35ID:???作成中はuse strictしてるので、局所化はしています。
undefしたいのは気持ち的な問題で、コードを自分で読むときに
この変数は用無しというのをハッキリさせたいだけです。
あほらしいと思いますが、ブロック内でのローカル変数も
たまにundefしています。メモリ云々は考えていません。
0800772
05/01/17 09:03:45ID:???my ($a,$b,$c,$d) = qw/1 2 3 4/;
print $a,$b,$c,$d,"<br>";
($a,$b,$c,$d) = (undef) x4;
printf qq|%s -> %sdefined\r|, $_, defined $$_ ? q|Not| : q|| foreach(qw|a b c d|);
全部definedになりました。しかし３行目(undef行)をコメントアウトしても結果は同じでした。
どういうことでしょうか？
print defined $a;
でやると結果は変わりました。ちゃんとundefが聞いてるようです。
0802nobodyさん
05/01/17 10:46:32ID:1F0SQQP0この配列の中から0以上50未満の一番大きい数値を値として持っている
のは何番目かを簡単に調べることはできますか？
sort関数はなにやらややこしいので、いまいち理解できていませんが、
やはりsort関数を使わないと難しいでしょうか？
0804802
05/01/17 11:52:05ID:1F0SQQP0ありがとうござまい。とりあえず作ってみました。
１つのサイズの上限を決めて改行分割の最大限サイズで分割するものです
一応動くのですが他に思いつかないので無限ループをしています。
$limitがいくつであってもループから抜けれるようにはしてありますが、
できれば無限ループは怖いし、共用サーバでは他人に迷惑をかける可能性があｒますので
避けたいです。
無限ループを使わずにこれと同じような処理をすることは不可能でしょうか？
0805802
05/01/17 11:55:51ID:1F0SQQP0my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
my $p = "あいうえお\nかきくけこ\nさしすせそ\n";
my @mail = $p =~ /$ascii|$twoBytes|$threeBytes/og;
my @return;
my $i = 0;
foreach (@mail){
if ( $_ =~ /\n/ ) {push @return,$i}
$i ++;
}
@return = sort { $b <=> $a}@return;
my @text;
my $befor = 0;
my $limit = my $limit2 = 4;
while ( 1 ) {
my $limit3 = $limit;
foreach ( @return ){
if ( $_ >= $befor and $_ <= $limit ) {
push @text,join '',@mail[$befor..$_];
$befor = $_;
$limit += $_;
}
}
last if $limit > $#mail + $limit2 || $limit == $limit3;
}
foreach (@text) {print $_ ,"<br><br>"}
0806nobodyさん
05/01/17 12:30:59ID:???$n = (sort {$a[$b]<=>$a[$a]} grep { $a[$_] >= 0 && $a[$_] < 50 } 0..$#a)[0];
あるいはList::Utilのreduce使って
$n = reduce {$a[$b]>$a[$a]? $b: $a} grep { $a[$_] >= 0 && $a[$_] < 50 } 0..$#a;
reduceはO(n)だからO(n×log n)のsortより要素数が多ければ速くなるだろうと
期待できますが、要素数少なければsortの方が速いかも。
0807nobodyさん
05/01/17 16:41:34ID:wVIIMywn値を返したいのですがどうすればいいでしょうか？
0808nobodyさん
05/01/17 17:14:50ID:???2： System("su
passwd
useradd $username その他のオプションも
exit");
これじゃ無理だと思いながらやたンですけどヤパリ無理でした
0811nobodyさん
05/01/17 21:05:30ID:fcKelFvpコードを書くのにforを使って書けば済むのですがgrep等を使ってもっと
簡潔に書きたいと思っています。
しかしgrepは恐らく配列全部参照するので配列数が多くなるにつれて
処理が遅くなってしまうのではないかと思い、以下のようなものを書いてみました。
@test = (1..999999);
$Atime = time;
for($i=0;$i < @test;$i++){
if($test[$i] eq "1"){
print"ひっと\n";
last;
}
}
$rest = time - $Atime;
print"time:$rest\n";
$Atime = time;
print"ひっと\n" if grep ("1" eq $_,@test);
$rest = time - $Atime;
print"time:$rest\n";
sleep(9999);
やはり、forに比べてlastしない分grepのほうが遅くなりました。
grepのように簡潔にかけてforと同じもしくはそれ以上の速度が出せるような
コーディングの仕方はないものでしょうか・・
アドバイスお願いします。
0812nobodyさん
05/01/17 21:39:56ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_tell_whether_an_list_o
0813811
05/01/17 22:07:21ID:???大変貴重なページを教えていただきありがとうございます。
How can I tell whether an list or array contains a certain element?
あたりに載ってますね。それ以外にも勉強すべき内容が沢山あって本当に助かりました。
0814nobodyさん
05/01/18 01:27:26ID:5YMtxRb8CIGでアクセスログの取得を考えています。
ログ取得に関する部分は下記の通りです。
if(open(FL,">> $file")){
print LOG "時間\tIP\tHPST\tなど…\n";
close(FL);
chmod 0666,$file;
}
ログの解析や表示に時間がかかるのは問題ないのですが、
保存には負荷がかからないようにと考えています。
追加書込モードなら負荷や破損を押さえられると思うのですが、
20万〜30万行程度の蓄積となると負荷は相当違ってくるものなのでしょうか？
0815814
05/01/18 01:29:10ID:5YMtxRb8ログ取得に関する部分は下記の通りです。
if(open(FL,">> $file")){
print FL "時間\tIP\tHPST\tなど…\n";
close(FL);
chmod 0666,$file;
}
0816nobodyさん
05/01/18 01:43:47ID:Oto1zFxVIEで見た場合、画像が無い時のｘが表示されてしまいます。
これをうまいこと出さないで、imgタグでスクリプトを呼び出す事は出来るでしょうか？
0818nobodyさん
05/01/18 02:46:19ID:sIFYihq9このぐらいの数を管理するのに良い方法ってありますか？
使っているサーバはPHPは使えません。
今まで修正・削除などを
「ファイル開く→全データ取り込む→該当データを検索→処理→処理結果を反映して保存」
この単純な方法でやってきたんですが、もっと良い管理方法がありますか？
0820nobodyさん
05/01/18 03:43:06ID:mDYssaxTprint <<END_OF_MESSAGE;
…
$ { PrintMessage() }
…
END_OF_MESSAGE
sub PrintMessage {
#ここにある配列を加工したものを上に出すにはどうしたらいいでしょう？
}
0821nobodyさん
05/01/18 03:52:41ID:???その関数PrintMessageではデータの加工ぐらいしか行わない方が良い。
${}を使ってヒアドキュメント内で出力させるようにするにはprintを使わないと行けない上に、
出力した物は${}があるところではなくヒアドキュメント内の一番最初に出力される。
だから、一回ヒアドキュメントやめるか、配列とか変数に入れといてヒアドキュメント内で出力した方が吉。
0823nobodyさん
05/01/18 04:22:12ID:mDYssaxT> 出力した物は${}があるところではなくヒアドキュメント内の一番最初に出力される。
げげっ、それは知りませんでした。書き直します。
ありがとうございました。
0824nobodyさん
05/01/18 08:32:39ID:???副作用じゃなくて文字列返す関数にして、スカラー式を
文字列リテラルに埋め込む慣用句の${\(式)}使えばいい。
print <<END_OF_MESSAGE;
…
$ { \PrintMessage() }
…
END_OF_MESSAGE
sub PrintMessage {
my $s = "適当な文字列";
return \$s;
}
0825nobodyさん
05/01/18 10:17:22ID:aExMxO8Wmy $b = "aio,r,3s2r,waaaas,tuuu,huor";
$bの中から$aにないものを削除したいんですが、どうすればいいでしょうか？
$aにあるものを削除するのはわかるので、$aにあるものを$bから新しく$cに移す
という方法は思いついたのですが、なんかいけてないんですよねorz
もっとかっこいいやりかたできませんか？
人間の脳みたいに、違うものという判断をしたら該当部を削除するといった処理を。
0826nobodyさん
05/01/18 12:15:23ID:???こんなんでどうでしょう？
#--------------------------------------------
my $a = "aeo,huor,tuuu,gfd";
my $b = "aio,r,3s2r,waaaas,tuuu,huor";
$a = ',' . $a . ',';
$b =
join ('',
map { (index ($a, ',' . $_ . ',') < 0) ? '' : $_ . ',' }
split (/,/, $b) );
chop $b;
#--------------------------------------------
0827826
05/01/18 12:17:02ID:???私も質問なんですが、
ライブラリとかモジュールは、 @INC の中から勝手にファイル検索して読み込んでくれるんですが、
「そのライブラリの中の階層にあるテキストファイル」
を同じように*簡単に*読み込む方法ってありますでしょうか？
例えば、
--------------------------------------------
lib/
|- Hoge.pm
|- Hoge/
|- Hoge1.txt
|- Hoge2.txt
honya.cgi
--------------------------------------------
があるとして、
--------------------------------------------
# honya.cgi
unshift (@INC, qw(lib ../lib) );
--------------------------------------------
--------------------------------------------
# Hoge.pm
my $dir = ''; # ←ここに勝手にファイルのあるフォルダを検索していれたい
open (TXT, $dir.'/Hoge1.txt');
--------------------------------------------
foreach (@INC) 〜 でやればなんとかできるんですが、
もっと上手い方法でできるなら教えてください。
調べてもわからなかったのです。
そういうことを書いてあるページとかあったらそれでもいいですので。
0828nobodyさん
05/01/18 12:22:27ID:???sub PrintMessage{
my $message;
# ...
return \$message;
}
print <<EOT;
${ PrintMessage() }
EOT
>>821
ごく一般的なイディオムだと思うが？
>>824
知識が半端過ぎますから！残念！
0829nobodyさん
05/01/18 12:33:26ID:???関数の戻り値は文字列にして${}の中でリファレンスとる方が
オレは好きだな。
sub PrintMessage{
my $message;
# ...
return $message;
}
print <<EOT;
${ \PrintMessage() }
EOT
0830820
05/01/18 13:25:04ID:fG6Vu+xI入ってしまいます。
print <<END_OF_MESSAGE;
…
@hairetu
…
END_OF_MESSAGE
配列の中身を出すには、↑のようなやり方はまずいんでしょうか？
0831nobodyさん
05/01/18 13:38:49ID:???配列を文字列リテラルに埋め込むときは要素間に特殊変数$"($LIST_SEPARATOR)の値が
埋め込まれる(デフォルトは空白)。
これが嫌ならば$"を空文字列にしておくか、配列をつなげた文字列を作って別の変数
にいれてそれを埋め込むか、式を埋め込む慣用句で${\join('', @hairetu)}などと
する。
0832820
05/01/18 13:43:04ID:fG6Vu+xIおお、ありがとうございます！
> ${\join('', @hairetu)}
↑これでうまくいきました。（ぺこり
0833nobodyさん
05/01/18 14:21:05ID:???0835nobodyさん
05/01/18 15:03:27ID:???使うと自動的に数に変換するので、明示的にatoiのような
ことをする必要はない。
しかし、atoiとは違って小数点を含んだ文字列は適当小数
に変換してしまうので、厳密にatoiと同じ仕様が欲しければ
CPANモジュールのatoiのようなものを使うか自前で似たような
ことをしなければならない。
0836nobodyさん
05/01/18 15:10:10ID:???0837nobodyさん
05/01/18 16:19:26ID:???すまん、POSIXのatoiはC-specificなので存在しなかった。
整数部が欲しければintを使えということになっている。
もちろんperlのintだとCのint型があふれるような大きな
数でもそれなりに変換できてしまうので、全く同じでは
ない。
例えば手元のC処理系ではatoi("9999999999999")は
2147483647になるが、perlでint("9999999999999")
はそのまま9999999999999だった。
その辺まで同じにしようと思うとXSでatoi呼ぶモジュール
作る方が楽かもな。
0838nobodyさん
05/01/18 16:52:34ID:SYAXE7mKどうかけばいいんでしたっけ？？？
0840nobodyさん
05/01/18 23:32:22ID:???use benchmark;
と書きましたが、syntaxｴﾗｰになりました。
どうすればよいですか？
#! パス
use benchmark;
print 'テスト';
0841nobodyさん
05/01/18 23:41:37ID:???use Benchmark;
print 'テスト';
0843nobodyさん
05/01/18 23:46:14ID:???0845nobodyさん
05/01/19 00:29:44ID:???DOS窓でテストしていますので、今はコメントアウトしています。
0847nobodyさん
05/01/19 12:21:25ID:???何か良い選択肢は無いでしょうか？
0848nobodyさん
05/01/19 12:58:46ID:???0849nobodyさん
05/01/19 17:43:55ID:ay48KDLy下のソースでJPEGのサムネイルを作ってるんだけど
$simg = Image::Magick->new;
$simg->Read($inimage);
$simg = $simg->Transform(geometry=>$width_size);
$simg->Write($putsam_jpg);
アニメーションGIFを$inimageにした場合
うまくJPEGに変換できず
***.jpg.0
***.jpg.1
***.jpg.2
のようなファイルが出来てしまいます。
１フレーム分だけの情報を使って
JPEG画像にするにはどうしたらよいのでしょうか？
0850nobodyさん
05/01/19 19:06:38ID:???$simg->[...]で1枚だけ適当に取り出せばいいんじゃないかな。
$simg = Image::Magick->new;
$simg->Read($inimage);
$simg = $simg->[0]->Transform(geometry=>$width_size);
$simg->Write($putsam_jpg);
とか。
0851nobodyさん
05/01/19 20:17:15ID:ms2pliGvIPC-SharedCacheと言うモジュールを見つけたのですが
windows環境では使えないみたいです。
windows環境で共有メモリを使えるようにする方法はないものでしょうか？
OSは2000SP4です。
助言いただければ幸いです。
#必死こいてドキュメント英訳したのに・・最初にactivestate行って使えるか確認しとくんだった。
0852nobodyさん
05/01/19 23:06:54ID:yPuKv0T8htmlのページから
< a href="abc.cgi">Ａ氏</a>
< a href="abc.cgi">Ｂ氏</a>
というようなリンクでabc.cgiを呼び出した時、abc.cgi側で、
Ａ氏、Ｂ氏のどちらのリンクで呼び出されたかを判断するに
は、どうすれば良いでしょうか？Ａ氏で呼ばれた場合と、Ｂ氏
で呼ばれた場合で処理を変えたいのですが。。なにか関数とか
あるのでしょうか？
なにか的外れなことを言ってたらすいません。ｍ(_ _)ｍ
0853nobodyさん
05/01/19 23:11:38ID:???<a href="./abc.cgi?auther=B">B氏</a>
とか、
続きどぞー
↓
0854nobodyさん
05/01/19 23:36:11ID:???<a href="./abc.cgi?orewa=B">B氏</a>
とか、
続きどぞー
↓
0855nobodyさん
05/01/20 00:21:57ID:yz6Kh3Ct0856nobodyさん
05/01/20 00:41:51ID:???Win32::MemMap というモジュールなら共有メモリを使えるとの噂は聞いているのだが、
入手方法すらわからん状態なので、俺の代わりに見つけてきてくれ
0857nobodyさん
05/01/20 01:00:19ID:xH8/53fr>854
>855
852ですが、せっかく回答頂いたのですが、なにせ素人でいまいち
分かりません。。
"?"の後は変数名でしょうか？html側で変数に値をセットしておけば、
abc.cgi側で参照できるのですか？（全然違う？？）
できれば、cgi側の記述はどうなるか教えて下さい。ｍ(_ _)ｍ
0858nobodyさん
05/01/20 01:19:09ID:???本とか見ながらやってるんじゃないのか？
とりあえず簡単に書いてあるところをひとつ。
http://perl.misty.ne.jp/13.html
0859nobodyさん
05/01/20 04:36:12ID:???なにをどう簡単にしたいのか解らんが、サブルーチンにするんじゃだめなのか？
後、foreachを使わない短い書き方を質問したのであれば1行版を使ってくれ。
#========== サブルーチン版 ============
my $full_path = search_inc('Hoge1.txt');
sub search_inc{
my $file = shift;
foreach my $path(@INC){
my $full_path = "$path/$file";
if(-f $full_path){
# ファイル名がいらなければ
# return $path;
return $full_path;
}
}
}
#========== 1行版 ============
my $full_path = (grep{-f}map{"$_/Hoge1.txt"}@INC)[0];
# ファイル名がいらなければ
my $dir = (grep{-f"$_/Hoge1.txt"}@INC)[0];
0862851
05/01/20 14:57:39ID:???CPANを検索してWin32-MMFというモジュールを見つけてきました。
http://search.cpan.org/~roger/Win32-MMF-0.09e/MMF.pm
多分同じような目的で使えるのではないかと・・・
activestateにはモジュールが用意されいなかったためppmが使えず
早速
http://digit.que.ne.jp/work/index.cgi?Perl%a5%e2%a5%b8%a5%e5%a1%bc%a5%eb%2f%a5%a4%a5%f3%a5%b9%a5%c8%a1%bc%a5%eb%28CPAN%29
ここの手引き通りにCPANでWin32-MMFをインストールしようとしたのですが
最後のMAKEの時に失敗してしまうようです。
0863851
05/01/20 14:58:39ID:???Copyright (C) Microsoft Corp. 1991,1993. All rights reserved.
KKCFUNC が組み込まれました.
マイクロソフトかな漢字変換 ﾊﾞｰｼﾞｮﾝ 2.51
(C)Copyright Microsoft Corp. 1992-1993
PKSFX (R) FAST! Self Extract Utility Version 2.04g 02-01-93
Copr. 1989-1993 PKWARE Inc. All Rights Reserved. Shareware version
PKSFX Reg. U.S. Pat. and Tm. Off.
Searching EXE: C:/PERL/ADDED/NMAKE15.EXE
Inflating: NMAKE.ERR
Inflating: NMAKE.EXE
PKSFX: (W18) Warning! README.TXT already exists. Overwrite (y/n)?y
Inflating: README.TXT
C:\Perl\added\nmake15.exe -- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
このような感じです。DBIやHTTP::Liteなどは問題なくMAKEも完了し
正常にインストールされる為、原因がわかりません。
0864851
05/01/20 15:07:00ID:???OSはwin2000sp4とxpSp1で各OSにて
ActivePerl-5.6.1.638-MSWin32-x86.msi
ActivePerl-5.8.4.810-MSWin32-x86.msi
の２つを試してみましたが全部同じ結果が出てしまいます。
他のモジュールについてはインストール可能でしたがwin32-APIだけは
同じような理由でインストールできませんでした。
C:\Perl\lib
C:\Perl\lib\auto
にファイルをぶち込めばインストールできそうかなと思うのですが
C:\Perl\lib\autoに入れるべきデータ、dll等を生成してくれないため試すことができません。
0865nobodyさん
05/01/20 18:15:40ID:8gUpqVNOEncodeモジュール使ってやると
$str = "%A5%A8%A5%F3%A5%B3%A1%BC%A5%C9%A4%B9%A4%EB%A5%C6%A5%B9%A5%C8";
$str =~ tr/+/ /;
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ego;
from_to($str, "euc-jp", "utf8");
とやったんですが
$strの中身が \¨\ó\³¡¼\ɤ¹¤ë\Æ\¹\È こんな感じになってしまいます
別にEncodeモジュールなしでもいいので
教えてplz
0866865
05/01/20 18:29:47ID:???0867nobodyさん
05/01/20 20:15:11ID:???君もまた豪快なことをするな。
nmake15.exe は自己解凍ファイルなのに、
それを解凍せずそのまま C:\perl\added\ に置いただろう?
まあいずれにしても、もはやコーディングの話題ではないので、話が続くようなら
ttp://pc5.2ch.net/test/read.cgi/php/997829243/ とかに移った方がいいかもしれん。
0868nobodyさん
05/01/20 21:58:37ID:2X1THOk4例えば$data{"test"} = "foo";というデータがあって
undef($data{"test"});としても$data{"test"}=undefとなって削除できないです･･･。
0869851
05/01/20 22:03:45ID:???・・・おっしゃる通りでした。てっきコンパイラそれ自体だとばかり思っていました。
そうすると逆に正常にインストールできたモジュールのほうがおかしいことになりますね。
誘導までして頂いてありがとうございます。
因みに
nmake15.exeを解凍し、でてきた
NMAKE.ERR
NMAKE.EXE
README.TXT
を同様にC:\perl\added\に置いて設定しましたがエラーがでてしまいました。
これからは誘導先に移らせて頂きます。
0871nobodyさん
05/01/20 22:08:28ID:2X1THOk4DBMファイルに一定の連想配列が保存されている時に、それらのデータを読み込まず
任意の連想配列のみを削除することは出来ますか？
データを空にすることはできるのですが、その連想配列自身を消すことが出来ないんです･･･。
0872nobodyさん
05/01/20 22:08:48ID:???delete $data{'test'};
ですたm(_ _)m
0873nobodyさん
05/01/20 22:32:19ID:2X1THOk4ありがとうございます。やってみたんですが、やっぱり消すことが出来ません。
ハッシュの書き込みなんですが以下のようにやってます
%writehash = (%writehash, %$data);
%$dataが追加するデータです。
もとのデータを%$dataに読み込んでdeleteし、
%writehash = %$data;
とすれば実現できたんですが、一度データを読み込まなければいけないので、、、
0874nobodyさん
05/01/21 00:08:52ID:???手元ではdeleteで消えるけど何が違うんだろうね。
% perl -e 'use DB_File; tie %h, "DB_File", "db"; $h{"foo"} = 1; $h{"baa"} = 2;'
% perl -e 'use DB_File; tie %h, "DB_File", "db"; foreach(keys %h){print $_,"\n"}'
foo
baa
% perl -e 'use DB_File; tie %h, "DB_File", "db"; delete $h{"foo"};'
% perl -e 'use DB_File; tie %h, "DB_File", "db"; foreach(keys %h){print $_,"\n"}'
baa
0876nobodyさん
05/01/21 12:37:45ID:AnHfdE4Zwhile(1){
if ($a == 1){ ここで二つの無限ループを抜け出したいんです}
}
}
ifの中になんと書けば２つ一気にでられますか？
activeperl5.6.1が自宅環境でサーバでは5.8.1のようです。
宜しくお願いしますm(_ _)m
0877nobodyさん
05/01/21 12:52:16ID:???while(1){
while(1){
if($a == 1){ last NUKERU; }
0878876
05/01/21 13:49:59ID:AnHfdE4Zラベルを使えばいいんですね。
でもラベルってループ文が出てくるより前に書くのですか？
無限ループになりそうで怖くて試せません。
後ろに付けてもぬけれましたが、その後の処理をしてくれませんでした。
while(1){
last A;
print 1;
}
A:
print 2;
表示結果は白紙です。どういうことですか？
0879876
05/01/21 13:51:47ID:AnHfdE4Z0880nobodyさん
05/01/21 16:01:36ID:AnHfdE4Zuse CGI:cookie;
などの::はどういう意味でしょうか？
モジュールは通常ファイル名とpackage名が同じでないといけませんよね？
でもactiveperl5.6.1に標準付属のモジュールは結構ファイル名とpackage名が
違うのがあります。
どうしてそれで正常に動作できるのでしょうか？
package名なんてファイルを開いて見ないとわかりませんよね？
0881nobodyさん
05/01/21 16:16:38ID:???フォルダ内にあるよってことさ。
だから例えば
use lib '/home/ユーザ名/public_html/cgi-bin';
のようにしてcgi-binの中にCGIというフォルダを作成して、その中にCookie.pmを
コピーすればCGI::Cookieの名前で呼び出せる。
まあ標準付属のモジュール以外使えないサーバ使ってる人間にとっては常識なんだがね。
0882880
05/01/21 17:23:19ID:AnHfdE4Zそうなのですか？
今CGI::Sessionをインストールされていないサーバで
自分のPCに入っているPerlモジュールのCGIフォルダをまるごとコピーして
ユーザディレクトリ内にやってみたのですが下記のようなエラーがでました。
Can't locate auto/CGI/Session/autosplit.ix in @INC (@INC contains:
incの中身列挙) at /usr/lib/perl5/5.8.1/AutoLoader.pm line 160.
at /home/tme46901/html/cgi-bin/CGI/Session.pm line 9
test.cgi syntax OK
つまりこれはAutoLoderの160行辺りのauto/CGI/Session/autosplit.ix
このモジュール？ファイル？が見つからないっていうエラーですよね？
実際にAutoLoderの160行付近を捜すと
$path ="auto/$calldir/autosplit.ix";
多分これが原因なんだろうなと思います。
で、なんとなく自分のPCに入っているコンパイル済みのautoディレクトリごと
アップし、use libを一行増やしましたがエラーの内容は変わりませんでした。
これはautosplit.ixを見つけられないというエラーではないのでしょうか？
0883nobodyさん
05/01/21 17:52:07ID:???お前が省略した@INCの中身のどれかのディレクトリの下に
auto/CGI/Session/autosplit.ix があればよし、なければ
インスコがうまくいってないということだな。
■ このスレッドは過去ログ倉庫に格納されています