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

Perlコーディング初心者質問スレ Part 55

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2007/05/30(水) 11:34:01ID:???
Perlのコーディングで困ってる人のスレです。

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

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >>2-10

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
06316302007/08/03(金) 01:38:06ID:???
リロード…orz
06326292007/08/03(金) 01:45:51ID:???
>>630
氏ねって書かれるんだろうけど、ローカルでテストできる環境を整えたり、
telnetでperl -cできる環境を持てる初心者って、あまりいなそうな気がするけどね。
この人だって、エスケープしたり、"を閉じ忘れるくらいの初心者なわけだし。

俺は未だにローカルでテストできる環境を持ってなかったりするし、排他処理にflockを使ってたりするから、
windowsで書いてて、なかなか満足するテスト環境にも恵まれてない。

今はようやくtelnetが使える外部鯖が手に入ったから、コマンドラインでチェックできるけど、
何がいいたいかというと、文法をチェックできる環境を整えるのって、cgiをいじったりするより、
案外難しいんだってこと。
0633nobodyさん2007/08/03(金) 01:57:50ID:???
>>632
えと、いちおうその辺も想定しまくったうえで

せめて use CGI::Carp qw(fatalsToBrowser); でも入れてね
「500エラーです」では何もわからないけど、まともなエラーメッセージ出るようになるよ

という気持ちで書いたわけですよ。
「氏ね」と思う人も当然いるだろうし、「環境構築とかわかんねーよ」な人もいるんだろうけど
それについてあーだこーだ言うつもりはないんです。少なくとも「氏ね」とは思ってません。
06346292007/08/03(金) 02:06:36ID:???
>>633
いや、別に俺もそんなに反論的な意見でもなかったです＾＾

use CGI::Carp qw(fatalsToBrowser);
は俺も使ってますが、結構ダメなこともあるんで、正直微妙ですｗ
0635nobodyさん2007/08/03(金) 02:11:08ID:???
>>639
勉強の為に
> use CGI::Carp qw(fatalsToBrowser);
のダメなところを教えていただけませんか？
0636nobodyさん2007/08/03(金) 02:15:29ID:???
>>635
俺も初心者だから、よくわかんないけど、
> use CGI::Carp qw(fatalsToBrowser);
って書いてても、500が出るときは出るってこと。

perl -wcより、出てくるメッセージは親切だと思う。使って損はない。
0637nobodyさん2007/08/03(金) 07:59:24ID:???

>>636

それマジで言ったん? ソースあんならすぐ出せ。

マジなら2ちゃんねら総力を挙げて潰すが。
0638nobodyさん2007/08/03(金) 08:20:11ID:???
> 2ちゃんねら総力
できもしないこといわないでくださいｗ
0639nobodyさん2007/08/03(金) 08:49:48ID:???
これ同一人物？
流行ってんの？
http://pc11.2ch.net/test/read.cgi/tech/1150900544/78n
http://pc11.2ch.net/test/read.cgi/tech/1181500187/757n
0640nobodyさん2007/08/03(金) 08:57:50ID:???
たった２つ３つで「流行ってんの？」はないだろ〜
0641nobodyさん2007/08/03(金) 09:47:07ID:???
>>637
俺のバックには○○がついてるんだぜ！みたいな…

ねらー気取ってんじゃねぇよカス厨
自分で何もできないくせに虚勢張ってんじゃねぇよばーか＾＾
0642nobodyさん2007/08/03(金) 09:54:48ID:???
二行目に
> use CGI::Carp qw(fatalsToBrowser);
を入れて500が出るなんて、シェバング間違えてるぐらいじゃないか。
0643nobodyさん2007/08/03(金) 10:26:00ID:???
流行らせるんだよ！！
2ちゃんねら総力を挙げて。
0644nobodyさん2007/08/03(金) 11:22:32ID:???
2ちゃんねら総力を挙げてオナニー
0645nobodyさん2007/08/03(金) 14:56:52ID:???
>>637 はたまに見かけるコピペだよ。
ニュー速とかにもある。
0646nobodyさん2007/08/03(金) 15:05:53ID:???
ただのVIP用語らしい。
0647nobodyさん2007/08/03(金) 16:08:03ID:???
このコピペはニュー速で流行り出したらしい
0648nobodyさん2007/08/03(金) 17:19:15ID:???
『VIP用語』って
どんなけ長い用語だよ
0649nobodyさん2007/08/03(金) 22:35:25ID:oY004xfP
CGIからplの関数を呼び出して、
さらにplがあるところからDBにアクセスする
ということをしたいのですが、うまくいきません。

手法としては、plから相対でDBにアクセスするか、
plの絶対アドレスからアクセスしたいと思っているのですが、
どのようにすれば可能でしょうか？
0650nobodyさん2007/08/03(金) 22:53:25ID:???
日本語でやれ
0651nobodyさん2007/08/03(金) 22:56:09ID:???
>649
おまえは文章もまともに書けないのか？
0652nobodyさん2007/08/03(金) 23:21:30ID:oY004xfP
>>650,651
ライブラリ自身の絶対パスを取得する方法はありませんか？
0653nobodyさん2007/08/04(土) 00:01:01ID:???
DBって何。ﾊﾞｰｸﾚｰなんとか？SQLiteとか？DBI？
0654nobodyさん2007/08/04(土) 00:21:38ID:???

use File::Spec;
use Cwd;

print File::Spec->catfile(getcwd, __FILE__);
0655nobodyさん2007/08/04(土) 00:33:18ID:TU5rHtE+
>>654
ありがとうございます。問題解決しました
0656nobodyさん2007/08/04(土) 16:32:08ID:???
はじめまして。

bbbb
aaaa　←ここをggggにしたい
dddd
eeee
cccc
aaaa
ffff
って感じで改行(\n)で区切られたデータファイルがあって、
そこに新データggggを書き込みたいのですが、
その際にaaaaが存在すれば一番最初にあらわれるaaaaのところに
ggggを上書きしたいんですが、どうすればよいでしょうか。

・aaaaが存在しなければ通常通りにデータ末尾にggggを
・二番目以降のaaaaはそのまま置き換えない
を実現したいのです。

下だと失敗してしまいます。
よい方法をお願いできませんでしょうか。
open(f,"+<hoge.dat");
flock(f,2);
$data = <f>;
if($data =~ m/aaaa/){$data =~ s/aaaa/gggg/;}
else{$data .= "gggg\n";}
seek(f,0,0);
truncate(f,0);
print f $data;
flock(f,8);
close(f);
exit;
0657nobodyさん2007/08/04(土) 17:05:20ID:???
$hoge_of{$data}++して、
$hoge_of{aaaa} == 1のとき　$data = 'gggg'
$hoge_of{aaaa} != 1のとき　$data .='gggg'
0658nobodyさん2007/08/04(土) 17:13:18ID:???
$data =~ s/aaaa/ggggg/is;
で終わり
0659nobodyさん2007/08/04(土) 17:16:52ID:+PxwZdc+
open(FILE, "+< hoge.dat");
flock(FILE, 2);
my @dat = <FILE>;
my $hit;
foreach(@dat){
if(/^aaaa$/){
$_ = 'gggg';
$hit = 1;
last;
}
}
push @dat, "gggg\n" if !$hit;
seek(FILE, 0, 0);
print FILE @dat;
truncate(FILE, tell(FILE));
close(FILE);
0660nobodyさん2007/08/04(土) 17:30:25ID:RQKCxjR+
perlをインストールする時、Freeはどれを選択すればいいんですか？
(Windows使用)


ttp://www.activestate.com/downloads/
0661nobodyさん2007/08/04(土) 17:36:26ID:+PxwZdc+
ActivePerl 5.8.8.822 and ActivePerl 5.6.1.638
http://www.activestate.com/store/download.aspx?prdGUID=81fbce82-6bd5-49bc-a915-08d58c2648ca
0662nobodyさん2007/08/04(土) 17:43:21ID:RQKCxjR+
>>661 もう一つ教えてください。下記の２種類あるんでが
どれを選択すればいいんですか？

Windows (x86)
AS package
MSI

Windows 64-bit (x64 AMD64)
AS package
MSI
0663nobodyさん2007/08/04(土) 18:25:57ID:???
>>662
http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.822-MSWin32-x86-280952.msi
0664nobodyさん2007/08/04(土) 18:30:12ID:???
msi のがいい
64bit は OS が 64bit である場合のみ
既に開発してて過去の古いソースが有りソレを何が何でも生かしたいのであれば 5.6 系がいいかもしれないけど
そうでなければ Perl は Ver 5.8 系をオススメ
06656562007/08/04(土) 19:43:16ID:???
>>657->>659

有難うございます。
さっそく試してみます。
0666nobodyさん2007/08/04(土) 19:53:57ID:???
build818以降PPM4になってアレだから5.8.8build817が個人的にはよい。
build815もいいけど、816はバイナリ互換がないから死ぬ。
0667nobodyさん2007/08/04(土) 20:01:14ID:???
>>666
アレって何だよ! 具体的に言えよ!
0668nobodyさん2007/08/05(日) 04:19:15ID:???
>>667
GUIバージョンになったのがイヤとかいう話じゃね?
それでも ppm3 で以前のを使えると思うが。
0669nobodyさん2007/08/05(日) 05:40:21ID:ZbLLWuy9
perlをこれから学びたいと思っているのですが
jcode.plって必ずつかわなければいけないのでしょうか？

文字コードはeucで作る予定です。
0670nobodyさん2007/08/05(日) 06:34:40ID:???
>>669
やめた方がいいと言われそうだけど、俺は好きだｗ
0671nobodyさん2007/08/05(日) 09:31:45ID:???
jcode.plはできる限り使わないほうがいい。
0672nobodyさん2007/08/05(日) 10:59:54ID:???
今からやるならせめてJcode.pm、できればEncode.pmがよさげ。
# 新しいJcodeはEncodeのラッパーだったっけ？
0673nobodyさん2007/08/05(日) 11:07:42ID:???
>672
です
Encode.pm が全部やってるはず
0674nobodyさん2007/08/05(日) 20:17:05ID:???
>>669
use Encode;

文字コードはUTF-8でやった方がいいよ。
0675nobodyさん2007/08/06(月) 17:56:09ID:???
在庫管理の機能をつけたいのですが
入荷毎の履歴から古いものから順番に在庫を減らす工程がわかりません。

$num='30';
---log
1<>29<>
2<>4<>
3<>16<>

---
というログをwhileで読み込んで行き、
$readline_num-$num がマイナスになるようなら
差分数値を次のreadline_numに…
という流れだと思うのですが
どうにもこうにも形にできません。

結果的には最初のlogが
---log
1<>0<>
2<>3<>
3<>16<>

---
という風になり、最終的に全部が0になるようならエラーを返したいのです。

アドバイスよろしくお願いいたしますm(_ _)m
0676nobodyさん2007/08/06(月) 18:03:22ID:???
エスパー頼む
0677nobodyさん2007/08/06(月) 18:06:59ID:???
というか素朴な疑問。
テキスト系ＤＢ作ってる人って、区切り文字は何にしてる？
俺はタブなんだけど、<>って良く見るけど、どういう意味があるんだろう。
データに<>を含まないからっていうのは、もちろんだけど。
0678nobodyさん2007/08/06(月) 18:18:04ID:???
>>677
KENT流れ
0679nobodyさん2007/08/06(月) 18:32:44ID:???
漏れ的にはデータ内にHTMLタグが含まれてたときには
全部排除する前提だから<>という入力は
１００％ありえないという前提で<>にしている、と思う
0680nobodyさん2007/08/06(月) 18:37:53ID:???
でも、セコイこと言うと、<>の方が１バイト多くね？
フィールドが数十個あって、レコードが１０００以上とかあると、バカに出来ないような気がする。


まあ、大量のデータ扱うなら、ＤＢ使えっていうことでＦＡなんだろうけどｗ
0681nobodyさん2007/08/06(月) 18:43:51ID:???
俺の場合は毎度車輪の再発明してもしょうがないので、csvにするかStorableにするか
DB使うかといったあたりで場合に応じて使い分けだな。独自形式でテキストに保存って
いうのは基本的にやらない。
0682nobodyさん2007/08/06(月) 18:56:30ID:???
>>681
でも、csvって"の扱いがいやらしくない？そういう車輪は発明されてるんだろうけどｗ
0683nobodyさん2007/08/06(月) 18:59:48ID:???
>>675
whileでループ作って1行ずつマイナス処理してマイナスなら数値を0に置き換えて次の行、
プラスならその数値に置き換えてループ脱出して終了
ファイル（または配列）の終端に達したら、エラー送出してループ終了
でいいんじゃないの？

とりあえずなんかコード書いてみれば？
0684nobodyさん2007/08/06(月) 19:06:10ID:???
>>675
俺的には、何でもforeachとsplit
perl書くようになって、この２つは一番汎用してるかも。
0685nobodyさん2007/08/07(火) 02:30:26ID:???
今はData::Dumperは流行らないか。
06866692007/08/07(火) 02:43:38ID:???
遅くなりました。
たくさん回答頂いてしまい恐縮です。
Encode.pmを使ってみることにします。
ありがとうございました。
0687nobodyさん2007/08/07(火) 09:10:50ID:???
最近はaudreyのYAML::Syckをよく使う
0688nobodyさん2007/08/07(火) 10:41:18ID:???
Encode.pmって半角カナに完全対応してたっけ？
日本語入力がある場合は結局jcode.plが最適だったのでは。
0689nobodyさん2007/08/07(火) 10:50:16ID:???
あの手軽さを考えたら未だにjcode.plから抜け出せない。
0690nobodyさん2007/08/08(水) 08:23:14ID:???
>>688-689
何をもって「完全」かは知らんけど、Encode::JP::H2Z のような実装は
用意されている。jcode.pl は UTF-8 扱えない時点で選択肢外なので、
1. Encode + 自前の補助コード
2. Jcode Ver 0.88
3. Unicode::Japanese
の優先順位で使ってるかな。
0691nobodyさん2007/08/08(水) 10:53:06ID:???
半角カナより機種依存とか拡張外字とかの扱いに困ってるんですが
みなさんどうしてますか？
0692nobodyさん2007/08/08(水) 21:52:51ID:???
もう大分定着してきたと思うが、shiftjis使ってるやつは
cp932にしたら大分マシになると思う。
0693nobodyさん2007/08/08(水) 23:28:38ID:???
教科書立ち読みしてたら
シフトJIS使うときは、
２バイト文字の後半部分がC５のもの、
たとえば表とかつかうときは
表￥
ってしないと文字化けするから！
とかって書いてあって、はぁ？とおもった
これってperlでなくてもwebアプリつくるひとは
全員必須の知識なの？
0694nobodyさん2007/08/08(水) 23:34:32ID:???
知ってて損は無いけど、古すぎな知識。
0695nobodyさん2007/08/09(木) 00:51:15ID:???
正確に言えば、Webアプリ限定ですらないよな。
0696nobodyさん2007/08/09(木) 00:55:40ID:???
unicode万歳やで〜
0697nobodyさん2007/08/09(木) 01:01:57ID:???
utf-8がいちばん扱いやすい。
0698nobodyさん2007/08/09(木) 01:22:31ID:???
Unicodeキライ
0699nobodyさん2007/08/09(木) 01:59:23ID:???
結局ＤＢも使わず、jcode.pl、eucでショッピングカート作った。
0700nobodyさん2007/08/09(木) 03:02:11ID:???
>>699
設置サーバや運用者の技術レベルによってはありかもね。
「文字コードって何？」ってレベルだと Shift_JIS で問題が
出ないよう作った方が後々面倒が無くていいけど。
0701nobodyさん2007/08/09(木) 08:19:14ID:???
文字を変更したのに
表示される文字が変更されない

my $msg="abcdefg ".$DT->{unkoname}."あいうえお".$count."かきくけこ";

このあいうえおの部分を
test
に変更して
my $msg="abcdefg ".$DT->{unkoname}."test".$count."かきくけこ";
にしたのに、表示されるのはあいかわらずあいうえおのまま。なんで？
0702nobodyさん2007/08/09(木) 09:15:01ID:4ANcM0VH
windowsにperlの5.6と5.8を共存させたいのですが
どのようにしたらいいのでしょうか？
0703nobodyさん2007/08/09(木) 09:24:55ID:???
>>702
つ[ VMwarePlayer ][ Linux ]
0704nobodyさん2007/08/09(木) 09:47:24ID:???
ひょっとしたら管理モードにしないで
スクリプト更新したからデーターが壊れたかも
「スクリプトをいじるときには
必ず管理モードにしてください、そうでないと
最悪、データーが壊れます」
って説明書読んだら書いてあった
0705nobodyさん2007/08/09(木) 10:14:54ID:???
>>702
仮想化なしでそのままふたつインストールする技はないのでしょうか？
0706nobodyさん2007/08/09(木) 11:14:03ID:???
入れてみろ
0707nobodyさん2007/08/09(木) 11:17:39ID:???
片方入れると片方アンインストールされてしまうんですよ
0708nobodyさん2007/08/09(木) 12:15:41ID:???
>>705
つ[Partition Logic][デュアルブート]
0709nobodyさん2007/08/09(木) 12:31:51ID:UyK8ofDd
ビスタならできるんじゃない？いや、分からんけど。
0710nobodyさん2007/08/09(木) 13:28:54ID:???
つ[ ttp://sakaguch.com/PastBBS/0030/B0015057.html ]
0711nobodyさん2007/08/09(木) 13:57:44ID:???
ActivePerl の 5.005 と 5.8 なら Win98SE上に両方インスールしてる。
インストール先を別ディレクトリにして、環境変数PATHの設定や
PPMの設定ファイルをちょこちょこ変更するだけで普通に使えている。
0712nobodyさん2007/08/09(木) 18:13:34ID:???
まあ、今時 Win98SE なんかつかってるばかは氏ねばいいと思うんだけど。
0713nobodyさん2007/08/09(木) 19:18:02ID:???
再起動の時に必ずフリーズした98SE
0714nobodyさん2007/08/09(木) 20:28:15ID:qod+hj3t
sleep関数は3日(259200秒)とか指定して実際3日待機して
くれるものなのでしょうか。

ご教示いただけますと幸いです。
0715nobodyさん2007/08/09(木) 20:33:12ID:???
…やってみれば？
0716nobodyさん2007/08/09(木) 20:33:24ID:???
サーバーのＣＧＩ実行制限時間に達するとKILLされます
0717nobodyさん2007/08/09(木) 20:42:53ID:???
>>715
今からでは試すのにちと間に合わなかったので(あさって納品)
質問させていただきました。

>>716
なるほど。
危なそうなので別の方式をとります。
有難うございました。
0718nobodyさん2007/08/09(木) 20:44:14ID:???
定期実行させたいならcronで回してくださいな
0719 ◆lVJAPUTeX. 2007/08/10(金) 03:28:51ID:???
>>677
タブ区切りにしている。
タブは空白文字に置換しても差し支えない場合が多いことと、CSV程ではないけどExcelで読み込みやすいため。

>>680
せこいこと言うと、Perlなんて遅いから全部アセンブラで書くべき。:-p

>>702
Cygwin入れて、片方は
/usr/local/perl5.6
みたいなディレクトリにインストールする作戦も。
0720nobodyさん2007/08/10(金) 03:31:07ID:???
>>717
おまえプロじゃないだろ
学校の宿題は友達にうつさせてもらえよ
0721 ◆lVJAPUTeX. 2007/08/10(金) 03:36:03ID:???
>>675
エスパーになって考えてみた。(在庫減らすところだけ。)
@zaiko = ({id => 1, num => 29}, {id => 2, num => 4}, {id => 3, num => 16})
という配列に読み込んだと想定。

my $i = 0;
while($herasu and $i < @zaiko and $zaiko[-1]{num}) {
my $s = min($zaiko[$i]{num}, $herasu);
$zaiko[$i]{num} -= $s;
$herasu -= $s;
$i++;
}
0722nobodyさん2007/08/10(金) 10:42:02ID:???
>>721さん
本当にありがとうございますm(_ _)m
0723nobodyさん2007/08/10(金) 11:00:12ID:???
でも在庫管理で難しいのは、排他処理がなってなかったり、どの段階で在庫を減らすかとか、
実物の在庫管理をどうするか、という問題の方が大きいような希ガス。perlの話と離れてｽﾏｿ
0724nobodyさん2007/08/10(金) 12:55:11ID:???
>>723さん
そうですね、排他処理は色んな方のスクリプトを参考にしていきます。
どの段階、実在庫管理、というのは永遠の課題です。アドバイス感謝です。
0725nobodyさん2007/08/10(金) 18:54:38ID:???
そんなのが永遠の課題ってすごいなｗｗｗ
廃業するべき。
0726nobodyさん2007/08/10(金) 19:01:05ID:???
在庫管理で失敗するのは在庫があるかないかのフラグだけにするからだ。
0727nobodyさん2007/08/10(金) 23:52:43ID:???
在庫を管理しようとするから難しくなる。
発想を逆転させるんだ。
0728nobodyさん2007/08/11(土) 03:10:13ID:???
管理を在庫にするんだ。
0729nobodyさん2007/08/12(日) 12:56:10ID:???
在庫にたんぽぽを載せるようにするんだ。
0730nobodyさん2007/08/12(日) 21:21:39ID:sl0Dt6RW
UTF8フラグのついた文字(char)のバイト数を知りたいのですが
$byte = length($char)とすると当然ながら答えはどれも1になります。
現在は
utf8::encode($char);
$byte = length($char);
urf8::decode($char);
として凌いでいますが、もう少しスマートなというか、
違う書き方できますか？
■ このスレッドは過去ログ倉庫に格納されています