Perlコーディング初心者質問スレ Part 51
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
2006/07/27(木) 17:04:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0896nobodyさん
2006/09/09(土) 03:06:29ID:FjbM6rE4$filename = "filename.dat";
chown www,GROUPNAME,"$filename";
としても反映されません。
ユーザ：root
グループ：wheel
でログインをした状態でコマンドラインから色々試してみたところ
自分自身のユーザ・グループ以外には変更できないのですが
www,GROUPNAME とするにはどのようにしたら良いのでしょうか。
0898nobodyさん
2006/09/09(土) 04:10:20ID:???uid, gidでやっても？
chown scalar(getpwnam('www')),scalar(getgrnam('GROUPNAME')),"$filename";
0900nobodyさん
2006/09/09(土) 04:59:01ID:???auでフォームから送信すると次のページのURLに
?x-up-destcharset=17
と付くんですがなぜですか?
また、これを表示させない方法があれば教えてください。
0902896
2006/09/09(土) 05:29:02ID:???で解決して喜んではいたのですが
ユーザ名,グループ名 では駄目だった理由が知りたくて
戻って参りました...どなたかお教えください。
perl chown で検索した解説サイトではほぼ全てが
「chown ユーザ名,グループ名,ファイル名」
という説明になっているということは一般的にはuid,gid形式では
指定しないのでしょうか。
環境はFreeBSD+perl5.8.8です。
0906nobodyさん
2006/09/09(土) 10:19:37ID:???まずperldocではちゃんと数値のUID,GIDと明言されてる。
そして、素人が作ったPerl解説サイトはデタラメ書いてる場合もある。
それはそうとして、どこでどう検索したのか書いてみろ。
yahooとgoogleで「perl chown」のTOP5件チェックしたが正しかったぞ。
0907895
2006/09/09(土) 10:32:15ID:???ありがとうございます。
ファイルスコープなるものとブロックスコープなるものがあったんですね。
>>901
名前は知りませんでしたが、myはブロックスコープで動くと思っていました。
後者の出力が正しいとするなら、
前者はブロックの外でmy宣言してるのにもかかわらず、
ifのブロック内で$testが出力されているのが不思議だったのです。
0908nobodyさん
2006/09/09(土) 11:39:12ID:???スコープがネストされてる場合内側から外側のスコープが見えるよ
他の言語でも言うグローバル変数はそういう使い方
0909895
2006/09/09(土) 13:05:50ID:???知りませんでした。ありがとうございます。
{
my $block;
{・・・・・・}
{
{・・・・・・}
}
}
などでも・・・・・・の位置から$blockをみれるということですか。
ということはサブルーチンに移るときだけ気をつければいいんですね。
0911nobodyさん
2006/09/09(土) 21:10:29ID:???0916nobodyさん
2006/09/09(土) 21:38:39ID:???local $Data::Dumper::Deparse = 42 ;
とかで必要すよ義務っすよ must っすよ。
0917nobodyさん
2006/09/09(土) 21:48:54ID:???ま た コ ン パ ク ト か
0918nobodyさん
2006/09/09(土) 22:11:50ID:???{
my $x = "soto_x ";
my $y = "soto_y ";
{
my $y = "naka_y ";
print "naka: ", $x, $y, "\n";
}
print "soto: ", $x, $y,"\n";
}
{
print "yoso: ", $x, $y, "\n";
}
ファイルスコープについては、この延長で「ファイルを丸ごと取り囲む見えないブロック」があると考えれ。
サブルーチンに移る時に何を気をつけるのかは知らんが。
0919895,907
2006/09/09(土) 22:28:45ID:???localは環境変数など複数あってはいけない変数に違う値を付ける場合に必要なんですね。
>>918
分かりやすい説明ありがとうございます。
サブルーチンに移るときに気をつけるというのは
引数を渡すのを忘れて、変数を直接参照しないように
ということです。言葉足らずですみませんでした。
0920nobodyさん
2006/09/09(土) 22:29:47ID:???他にも、こういう使い方とかってしないもんかね？
my $hoge = { fuga => 1, piyo => 2 };
{
local $hoge->{piyo} = 3;
print $hoge->{piyo};
}
print $hoge->{piyo};
0921nobodyさん
2006/09/09(土) 22:58:48ID:???必然性があるならやったらいい。
しかし設計としてはほめられたもんじゃない。
そこに合理性がない上に恥じらいもないなら、少なくとも僕はそれをクソと呼ぶ。
0922nobodyさん
2006/09/09(土) 23:09:18ID:???cpan Net::Amazon
すると
Undefined subroutine &main::UpdateHTML_blib called at -e line 1.
NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : ﾘﾀｰﾝ ｺｰﾄﾞ '0xff'
Stop.
nmake -- NOT OK
と出てインストールできません。どうしたらインストールできるでしょうか？
ズブの素人なのでなってない質問の仕方と思いますが、
神様達の優しさに期待します。よろしくお願いします。
0923nobodyさん
2006/09/10(日) 00:17:14ID:???もしくはppmにしておきなさい
わからなければ検索
0924nobodyさん
2006/09/10(日) 12:43:26ID:???print pack ("H*","$d16")
で、$d16のなかに00が含まれているとプリントがその手前までしかされません・・・
何が原因でしょうか？
0925nobodyさん
2006/09/10(日) 13:34:34ID:???どこにprintしてるのか知らんがnullは文字列の終端。
表示する端末によっては表示が打ち切られたり、半角スペースに置き換えられて続行したり…
バイナリエディタの右側の枠のようなものを作りたいの？
0926924
2006/09/10(日) 15:17:01ID:???はい。Perlで簡易バイナリエディタを実験的に作ってみようと思いまして・・・
00は違う値に置き換えてからprint表示する必要があるのですか。
ありがとうございます。
0927924
2006/09/10(日) 15:17:52ID:???print先はモニタです。
0928nobodyさん
2006/09/10(日) 16:54:55ID:???まあモニタなのは分かるけど…
nullに限らず各制御コードは何かに置換することでエスケープするのは必要だね。
手っ取り早いのは tr/ -~/./c (US-ASCII以外を置換)とかを通すこと。
マルチバイトに対応させるならもう二捻り。
0929nobodyさん
2006/09/10(日) 17:19:33ID:JN7kssrH一文字分タイプする労力減るだろ？とか悦に入ってんの？
elseif と else if で混乱してた方がまだマシ。泣きそう。
0932nobodyさん
2006/09/10(日) 18:45:21ID:???0933nobodyさん
2006/09/10(日) 22:10:15ID:us6Jx56Pprint <<EOF
ほげほげ\n
ほげほげ\n
.
.
.
EOF
で出力すると、当然
ほげほげ
ほげほげ
.
.
.
というテキストファイルが出来、出力させたい
ほげほげ\n
ほげほげ\n
.
.
.
というようなファイルを得ることが出来ません
どのようにすれば上記の望む出力結果を得ることが出来るのか教えていただけると幸いです。
0934nobodyさん
2006/09/10(日) 22:20:08ID:???EOF が付加されるってこと？ EOF って付加されたっけ。
とりあえず binmode あたりを試してみては。
0935nobodyさん
2006/09/10(日) 22:22:03ID:???改行している時点で、(見えませんが)改行コードは入っています。
改行コードではなく、"¥n" という文字が表示されて欲しいなら、
print <<EOF;
ほげほげ¥¥n
ほげほげ¥¥n
EOF
とすれば良いでしょう。
0936nobodyさん
2006/09/10(日) 22:23:57ID:us6Jx56Pありがとうございます
エスケープを重ねるんですね
試してみます
0939nobodyさん
2006/09/10(日) 22:41:36ID:9Coln3UPすげー。初めて知った。
0940nobodyさん
2006/09/10(日) 22:58:04ID:???0941nobodyさん
2006/09/11(月) 01:05:25ID:???ソケットに繋いでGET送って、
@get = <SOCKET>;
をすると、ごく希にそこで止まってしまうので、
時間切れにさせるか、もっと安全に扱いたいんだけど、
どうするのが普通ですか?
0943nobodyさん
2006/09/11(月) 01:39:19ID:???さくっとぐぐってみたら、
> タイムアウト処理ではシグナルを使うため、Windows 系サーバでは使えません。
という記述を見かけたのですが、windowsのActivePerlでは無理ですか?
0944nobodyさん
2006/09/11(月) 01:52:52ID:???0945nobodyさん
2006/09/11(月) 02:06:35ID:???0946nobodyさん
2006/09/11(月) 02:09:00ID:???The Unsupported function alarm function is unimplemented at 〜
というエラーになってしまいました
代案は何かありませんか?
0947nobodyさん
2006/09/11(月) 04:52:42ID:???携帯用の掲示板でアンカーを付けたいんですがこれだとURLが
〜〜.cgi?mode=view&No=>>番号
みたいに番号に>>が入ってしまうんですが数字のみにするには
どうしたらいいですか?
0948nobodyさん
2006/09/11(月) 05:01:11ID:???すみませんこうでした
0949nobodyさん
2006/09/11(月) 05:37:20ID:???[>>] の箇所、[] の使い方を誤解していると思われ。
正しくない正規表現からでマッチさせるべきテキストの例もないので
希望にそうか分からないが、一例を。
s/>>(\d+)/>><a href="〜〜.cgi?mode=view&No=$1">$1<\/a>/g;
0950946
2006/09/11(月) 23:55:32ID:???でも、肝心のアラームが作動してくれません
ttp://www.futomi.com/lecture/signal/alrm.html
このあたりを丸コピーしたのですが、
alarm 10;
@get = <SOCKET>;
alarm 0;
という部分でやっぱり止まります
一まとまりの処理の間でしか時間を見てないんじゃないかと思うのですが、
回避する方法はありますか?
0951nobodyさん
2006/09/12(火) 00:15:09ID:???@get = <SOCKET>;
の部分を、
for (1..100) { print "$_\n"; sleep(1) }
とかに置き換えれば、それはちゃんとタイムアウトします
0952nobodyさん
2006/09/12(火) 00:39:45ID:???0953nobodyさん
2006/09/12(火) 01:25:51ID:???ちょっと理解を超えてるので、
@get = <SOCKET>;
と同等のことをしてくれるタイムアウト処理内蔵の安全なパッケージとか
無いでしょうか
0954nobodyさん
2006/09/12(火) 04:41:17ID:???0955nobodyさん
2006/09/12(火) 12:24:04ID:???ActivePerlでwebから何か読もうとする人はみんな同じ問題を
抱える筈なのに、あんまり困ってないのは、
windowsでそんなことする人がいないということなのかな
0956nobodyさん
2006/09/12(火) 12:39:47ID:???0957nobodyさん
2006/09/12(火) 13:15:50ID:???0958nobodyさん
2006/09/12(火) 21:02:42ID:???> windowsでそんなことする人がいないということなのかな
Web から何か読もうとすれば、誰もが LWP を使うからだと思うよ。
0959nobodyさん
2006/09/12(火) 21:45:18ID:???誰もがということにしたい？ｗ
0961nobodyさん
2006/09/12(火) 22:38:52ID:???0962nobodyさん
2006/09/12(火) 22:41:32ID:???あーあとLWP知らない人(笑)
0963nobodyさん
2006/09/12(火) 23:16:43ID:???せめて LWP が何であるかくらいは調べてよぅ。
たぶんあなたの手元に POD 内臓のソースが転がってるはずだから。
0965nobodyさん
2006/09/13(水) 00:45:01ID:???0966nobodyさん
2006/09/13(水) 00:57:01ID:???一日動かしてみてどうなるか
0967nobodyさん
2006/09/13(水) 03:07:31ID:???0968nobodyさん
2006/09/13(水) 21:40:08ID:???残念ながら「ActivePerlでwebから何か読もうとする」という目的が明らかになったのは >>955 の時点なのですよ。
>>966
LWP::UserAgent を使いませんか。タイムアウト処理が欲しいのでしょう?
0969nobodyさん
2006/09/13(水) 23:09:53ID:???POSTする必要もあるので、GETだけLWP使うのも変だし、書き直します
0970nobodyさん
2006/09/14(木) 04:13:24ID:???0971nobodyさん
2006/09/14(木) 06:58:33ID:???0973nobodyさん
2006/09/14(木) 11:55:45ID:???0974nobodyさん
2006/09/14(木) 16:13:18ID:CaEHA0hfどうやればいいのでしょうか？
たとえば文字列"coding"にはマッチしませんが"コーディング"にはマッチする
というような奴です。
0975nobodyさん
2006/09/14(木) 16:20:33ID:???0976nobodyさん
2006/09/14(木) 16:20:44ID:???0977nobodyさん
2006/09/14(木) 16:28:49ID:???0978nobodyさん
2006/09/14(木) 16:43:31ID:???別に7Fでもいいけど。
0980nobodyさん
2006/09/14(木) 20:12:42ID:5VQgHCQX掲示板で検索フォームを作ってます
検索文字列を全角スペースで区切ると上手くヒットしません・・・
$key_wordはちゃんと区切り文字（半角または全角スペース）で分割されてると表示れるのですが
$key_word =~ s/ / /g;
$key_word =~ s/\t/ /g;
@words = split(/ /,$key_word);
↑これ間違ってますでしょうか？
0981nobodyさん
2006/09/14(木) 20:47:10ID:???じゃだめなん？
0982nobodyさん
2006/09/14(木) 20:53:52ID:???0984nobodyさん
2006/09/14(木) 21:04:27ID:???0986nobodyさん
2006/09/14(木) 21:14:21ID:???0988980
2006/09/14(木) 22:24:36ID:???&jcode'convert(*key_word, "sjis");
これ入れてもダメでした・・・
もっとヒント下さい＾＾；
0989nobodyさん
2006/09/14(木) 23:57:45ID:???$baka =~ s/\t+/\s/g;
@aho = split(/\s/,$baka);
0991nobodyさん
2006/09/15(金) 00:19:23ID:???OSやインタプリタのバージョン、コードの内容からも
ある程度個人の特定が可能です。質問の際にはなるべく
最小限のコードだけを提示して、回答を貰えばラッキーというスタンスで臨みましょう。
0994980
2006/09/15(金) 02:03:11ID:???検索ルーチンのミスでした＞＜
0995nobodyさん
2006/09/15(金) 05:01:24ID:EabJRhNLレス数が950を超えています。1000を超えると書き込みができなくなります。