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

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

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

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

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

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

お勧めサイトは >>2 以降

前スレ　http://hibari.2ch.net/test/read.cgi/php/1295170172/
0438nobodyさん2012/01/14(土) 21:36:35.23ID:???
車輪の再発明はいいんだけど、大抵は独学のトホホなプログラムができあがあるから、せめて一度
既存モジュールの中身を読んでくれ。
0439nobodyさん2012/01/14(土) 23:37:55.97ID:???
先生のために宿題をするのか、自分のために宿題をするのか違い。
0440nobodyさん2012/01/15(日) 20:18:01.72ID:???
単位のためだろ
0441nobodyさん2012/01/15(日) 20:45:40.76ID:???
そういうの全く理解できないんでごめんな
0442nobodyさん2012/01/18(水) 21:06:05.29ID:???
元ファイルの内容を書き換えて別ファイルに保存する方法を教えてください。
元ファイル　aaa.txt
変換プログラム　trans.cgi
変換後のファイル　bbb.txt

aaa.txt　に書いてある「あ$kanaお」を読み込んで
trans.cgi にて$kana = きくけ;　として変換し
bbb.txt　に「あきくけお」で出力するには、どうしたらいいのでしょうか。

open関数で　+<　という読み書きでファイルを開いても
空テキストが作成されるだけで、うまくいきません。
どうかよろしくおねがいします。
0443nobodyさん2012/01/18(水) 21:27:56.62ID:???
open(my $infh, ？<:utf8？, ？input.txt？);
open(my $outfh, ？>:utf8？, ？output.txt？);
while(my $line = <$infh>){
　　～処理～
　　print $outfh $line;
}
close($outfh);
close($infh);
0444nobodyさん2012/01/18(水) 22:19:08.77ID:???
>>442
http://perldoc.jp/docs/perl/5.10.1/perlfaq5.pod

my %var = (FOO => 'bar');
open my $fh, '+<', $file or die $!;
read $fh => my $text, -s $fh;
$text =~ s/__([A-Z]+)__/$var{$1}/g;
seek $fh, 0, 0;
print $fh $text;
truncate $fh, tell;
close $fh;

open my $sfh, '<', $src_file or die $!;
open my $tfh, '>', $tmp_file or die $!;
while (<$sfh>) {
　　s/__([A-Z]+)__/$var{$1}/g;
　　print $tfh $_;
}
close $tfh and close $sfh or die $!;
rename $tmp_file => $src_file or die $!;
04454422012/01/18(水) 22:35:01.78ID:???
>>443さん
>>444さん

お返事ありがとうございました。
じっくり読んで頑張ってみたいと思います
0446nobodyさん2012/01/25(水) 02:08:42.13ID:8GsK3GVU
ファイルの置換について質問させてください。
コマンドラインから、
echo "test.txt" | xargs perl -pi -e 's/hoge/HAGE/g'
とすると正しく置換されるのですが、
ブラウザからapacheをとおして、スクリプト内で上記のコマンドを、
`echo "[フルパス]test.txt" | xargs perl -pi -e 's/hoge/HAGE/g'`
や
system "echo ¥"[フルパス]test.txt¥" | xargs perl -pi -e 's/hoge/HAGE/g'"
とするとうまく置換されないのはなぜでしょうか？
またこのケースですとスクリプト内での記述はどのようにするのが適切でしょうか？宜しくお願い致します。

0447nobodyさん2012/01/25(水) 03:35:55.61ID:???
CGI実行時のユーザ権限は
そのユーザ権限でファイルや当該ディレクトリは書き込み可能になっているか
をまずチェック。
0448nobodyさん2012/01/25(水) 03:57:31.07ID:Arlh9fb/
447さん
お返事ありがとうございます。ディレクトリとファイルは権限777にして試してみたのですが、
置換されませんでした。あとスクリプト中の文字のエスケープ漏れもみなおしてみたのですが、
結果変わらずでした。さらに調べてみます。ありがとうございます。
0449nobodyさん2012/01/25(水) 04:06:26.93ID:???
どう出来ないのか
エラーは出てないのか
端末でスクリプトを走らせたらどうなるか
0450nobodyさん2012/01/25(水) 08:23:33.82ID:???
Apacheのerrorログを見てみる ←基本
0451nobodyさん2012/01/28(土) 22:01:51.13ID:???
errorログを見て特に問題はないと思っていたら．．．

sendmailのログでしたorz←
0452nobodyさん2012/01/29(日) 11:48:32.08ID:???
コマンドラインやめてopen(FILE,"[フルパス]test.txt")しちゃいなよ
0453nobodyさん2012/01/31(火) 17:42:02.72ID:???
質問質問！
&sub1(qq(asdasdqwdasdasd));
sub sub1
{
while($_[0] =~ /asd/gs )#←①
{
print $_[0];#←①でマッチした中身を出力したいが、subの引数
}
}
こんな感じのプログラムを作ったのですが
$_[0]の中身が更新できなくて困っています・・・
どなたか回避する方法を教えてください！お願いします
0454nobodyさん2012/01/31(火) 17:56:37.52ID:???
/asd/gs
　↓
/(asd)/gs


あとついでに書き直した。

sub1(qq(asdasdqwdasdasd));
sub sub1{
　my $str = shift || '';
　while($str =~ /(asd)/gs){
　　print $1;
　}
}

慣れてくれば良いけど、初心者であるうちは $_ をそのまま使わずに関数内で変数を用意して
そこへ格納したほうがいいよ。
0455nobodyさん2012/01/31(火) 18:23:59.58ID:???
>>454
2つほど質問があるのですがいいですか！
0456nobodyさん2012/01/31(火) 18:26:09.85ID:???
お礼を書くのを忘れていました
>>454　さん　ありがとう御座います。
0457nobodyさん2012/01/31(火) 18:52:11.00ID:???
don't ask to ask
0458nobodyさん2012/01/31(火) 21:02:02.01ID:???
CGIのデータベースを運用しています。

auの端末で検索できるものとできない機種があります。
同じ2009年にでたモデルでもできるできないがあります。
例えばCA002はできるけど、K002はだめ。

できないものは、何も検索フォームに入れないで検索してもダメです。

Jcode.pl 2.13でエンコードしてますが、
これが悪いのでしょうか？

どうしたら、文字検索をできるようにできますか？

0459nobodyさん2012/01/31(火) 21:33:09.50ID:???
>>458
携帯サイトのWebプログラムを語ろう Part3
http://kohada.2ch.net/test/read.cgi/php/1232544986/
0460nobodyさん2012/01/31(火) 22:38:52.20ID:???
表示してる文字コードはなにか

端末が送ってきてる文字コードは本当に希望したものか
0461nobodyさん2012/01/31(火) 22:46:58.04ID:???
>>460
Shift_JISです。
0462nobodyさん2012/01/31(火) 22:57:27.90ID:???
utf-8 で書きませう
0463nobodyさん2012/01/31(火) 23:06:58.71ID:???
Jcode.pmの好きなおいらがアドバイスしにやってきたょミ☆
初心者スレだしねミ☆
0464nobodyさん2012/01/31(火) 23:43:18.05ID:???
>>462
邪悪なutf-8ｲﾗﾈ
0465nobodyさん2012/02/01(水) 00:41:51.19ID:???
たしかに utf-8 はマッピングミスとかあるけど、
他からデータを持ってきたりとかしない場合には utf-8 で問題無い。
0466nobodyさん2012/02/01(水) 01:42:35.88ID:???
Shift_JIS vs UTF-8 のゴングが今、スレ内に鳴り響きました！
0467nobodyさん2012/02/01(水) 04:46:09.17ID:???
まずはアクセスログと標準入力に何が渡されたかを見る。
0468nobodyさん2012/02/01(水) 06:04:45.99ID:???
>>466
プログラム板でやれ
0469nobodyさん2012/02/01(水) 23:55:30.88ID:???
続きはSJIS板で
0470nobodyさん2012/02/03(金) 01:56:38.79ID:???
cp932板はありますか？
0471nobodyさん2012/02/03(金) 02:11:46.79ID:???
あるよ
0472nobodyさん2012/02/04(土) 02:53:54.65ID:???
LWP::UserAgent で指定 URL をアクセスして、リダイレクトされた際に実際にアクセスした URL を知るにはどうしたら良いでしょうか？

header('Location') で調べれば良いと思ったものの、リダイレクトされた後には Location ヘッダは無く、
max_redirect(0) でリダイレクトさせなければ Location ヘッダを取得できて、リダイレクト先を知ることは出来ました。

max_redirect(0) でアクセスして、Location ヘッダがあれば max_redirect(1) とかにしてアクセス。
リダイレクトが１回で済まなければ max_redirect(2) でアクセスしてみる。

と言ったことをやってるのですが、これが非常に面倒なので結果的にアクセスした URL が取得できればと考えて質問させていただきました。
0473nobodyさん2012/02/04(土) 03:45:11.91ID:???
>>472
response_done ハンドラか response_redirect ハンドラに URL を記録する処理を追加する。
http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm#Handlers
0474nobodyさん2012/02/04(土) 09:09:19.56ID:???
んなことしなくても、
HTTP::Response オブジェクトは使われた HTTP::Request オブジェクトを丸々保持してるし、
リダイレクト前の Response も previous メソッドでたどれる。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res = $ua->get("http://t.co/hog7vmt5");
do { print $res->request->uri, "\n"; } while ($res = $res->previous);
__END__
http://www.asahi.com/national/update/0204/TKY201202030789.html
http://t.asahi.com/5gxs
http://t.co/hog7vmt5
04754732012/02/04(土) 09:40:24.08ID:???
>>474
成程、そっちをみれば良かったのか。勉強になったよ。

use LWP::UserAgent;
my $r = LWP::UserAgent->new->get('http://t.co/hog7vmt5');
print map $_->request->uri . "\n", $r->redirects, $r;
__END__
http://t.co/hog7vmt5
http://t.asahi.com/5gxs
http://www.asahi.com/national/update/0204/TKY201202030789.html
0476nobodyさん2012/02/04(土) 16:24:03.95ID:???
>>473-475
自分には >>474 さんの書き方がしっくりきたので、
これでいこうと思います。
ありがとうございました。



どうでもいい事だけど・・・
do{ }while( ) ってあまり好きじゃないｗ
ループの条件式が後に来るってーのが、なんか馴染めない (^-^；
0477nobodyさん2012/02/05(日) 04:49:54.12ID:???
>>476
> do{ }while( ) ってあまり好きじゃないｗ
> ループの条件式が後に来るってーのが、なんか馴染めない (^-^；

その方が都合のいいケースもたまにあるでしょ。
最低1回は処理が必要、って時が。たまにね。
04784742012/02/05(日) 10:00:34.05ID:???
動作というより記法について言ってるのでは。
特にブロックの中身が複数行のときは最後の while を見るまでループだってことがわからんのが痛い。
あとまあ、動作も実際気持ち悪い。本物のループブロックじゃないから next とか使えんし。
まともに書く時はちょっと記述増えることになっても普通の while と last とかを組み合わせるほうがいい。
0479nobodyさん2012/02/06(月) 18:29:54.91ID:ryr2jQRg
Perlによるネットワークプログラムの質問です。
Perl でアクセスしたいサイトがあるのですが、Perlからhtmlを読むことが出来ません。
IE8の「ソースを表示」では表示できるのですが。

アクセスしたいサイト ：http://cinema.pia.co.jp/
Perlのスクリプトの場所 ：http://x68000.q-e-d.net/~68user/net/sample/http-client-2.pl
その説明 ： http://x68000.q-e-d.net/~68user/net/http-3.html

【実行結果】
perl http-client-2.pl -GET http://cinema.pia.co.jp/
HTTP/1.1 200 OK
Date: Mon, 06 Feb 2012 09:25:43 GMT
Server: Apache
Last-Modified: Fri, 28 Aug 2009 06:41:24 GMT
ETag: "304a0-2-f9082d00"
Accept-Ranges: bytes
Content-Length: 2
Connection: close
Content-Type: text/html

1

で終わってしまい、肝心のHTMLのBODYの部分を表示する事が出来ません。
どなたか分かる方教えてください。
0480nobodyさん2012/02/06(月) 20:02:58.69ID:???
LWP 使えば？
0481nobodyさん2012/02/06(月) 20:18:45.51ID:???
>>480
オレもLWP使うに1票
0482nobodyさん2012/02/06(月) 22:10:48.93ID:???
wget使えば？
0483nobodyさん2012/02/06(月) 22:53:24.14ID:???
一度やってみたかったのでtelnetにコマンドを流し込みます。
覚えるともう、病みつきです。ftpもこれでやってます。
sendmailだって大丈夫です。
04844792012/02/07(火) 01:13:45.57ID:eo0HNsOB
>>479 です。返信ありがとうございます

>>480 >>481
LWP 使ってみました。http://www.sea-bird.org/doc/Solaris8/Perl_4.html
出来ました
>>482
wget をPerlから？使う方法が分かりませんでした。コマンドとして使うという事なら目的と違います
>>483
上記チュートリアルサイトにて telnet も試しましたが、駄目でした


実は本当にやりたいことは別にあったので、すみませんが質問をやり直させてください

このサイトは、映画レビューサイトなのですが、
http://cinema.pia.co.jp/user/xxxxx/imp/all/ (xxxxxは数字)
にて、各ユーザーのレビュー一覧を見る事が出来ます
(実は自分のレビューを抽出したいだけです)
しかし、Perlからのアクセスでは、LWPを使ってもここではじかれてしまいます
(IE8の「表示→ソース」では見れるが、Perlにprintさせると違うものになっている)

どなたか原因分かりますでしょうか？
0485nobodyさん2012/02/07(火) 01:25:44.20ID:???
「違うもの」が何だか分からないけど、ユーザーエージェントをIEにしてみたら？
0486nobodyさん2012/02/07(火) 01:48:21.80ID:???
>>484
use LWP::UserAgent;
use HTTP:Request::Common;
my $ua = LWP::UserAnget->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)');
my $req = GET('http://cinema.pia.co.jp/user/xxxxx/imp/all/');
my $res = $ua->request($req);
if(open(my $outfh, '>', 'debug.html')){
print $outfh $res->content() || '';
close($outfh);
}
04874792012/02/07(火) 03:24:39.22ID:???
>>479 です。ありがとうございます

>>485 駄目でした。ソースの190行目辺りからが違ってきます
上手くいく時は、以下のようになります。良く分かりませんが。
<div id="mainImpMain">
<form method="get" class="common">
<ul class="pagedLink">

>>486
出来ました。ありがとうございました。
0488nobodyさん2012/02/07(火) 23:59:17.86ID:???
>>487
何がだめだったのか、ちゃんと理解できてる？
0489nobodyさん2012/02/08(水) 00:00:54.11ID:???
HTTP ヘッダに独自のヘッダを付加しようとしてるんですけど、
自分自身が呼ばれて起動された際の HTTP ヘッダってどうやって確認するのでしょうか？

use CGI の header はヘッダを出力するためのものっぽいし・・・
0490nobodyさん2012/02/08(水) 00:27:39.96ID:???
>>489
それはあんたのスクリプトがどうやって呼び出されているかによる。
httpd に Apache を使ってて CGI 経由で呼び出されているなら
Apache のマニュアルと CGI の仕様書を読んでくれ。
http://httpd.apache.org/docs/
http://www.studyinghttp.net/rfc_ja/rfc3875

あと HTTP の仕組みもきちんと理解してくれ。
http://www.studyinghttp.net/rfc_ja/rfc2616
0491nobodyさん2012/02/08(水) 00:51:03.57ID:???
HTTP ヘッダの理解を深める為にマニュアルや RFC を求めてるんじゃなくて、
自身のスクリプトが呼ばれた際の HTTP ヘッダを得る方法を伺っているわけでして・・・
04924792012/02/08(水) 01:09:59.52ID:???
>>488
目的のスクリプトは書けたのですが、気持ち悪いので知ってるなら教えてもらえますか？
0493nobodyさん2012/02/08(水) 04:36:08.44ID:???
「教えてもらえますか？」
↑
最近の若い奴は、物事の尋ね方も知らないのか？ﾌﾞﾂｸｻﾌﾞﾂｸｻ
0494nobodyさん2012/02/08(水) 07:53:34.31ID:D9+63/xk
<!-- link -->から<!-- /link -->までのタグ内に存在するURLとその行の「～」で囲まれてる部分を
抜粋するようなプログラムを作成したいと思います。

例えば、次のような文章があった場合、
------------------------------------
ほげほげふがふが
http://example.com/hogehoge1
ほげほげふがふが
http://example.com/satitama1/saitama.html
<!-- link -->
リンク一覧
～テスト～　http://example.com/hogehoge2/test.hmtl
～さいたま～　http://example.com/satitama2
東京
<!-- /link -->
------------------------------------
結果は
------------------------------------
<a href="http://example.com/hogehoge2/test.hmtl">テスト</a>
<a href="http://example.com/satitama2">さいたま</a>
------------------------------------

のようにしたいのですが、どのように書いたらよいでしょうか？

尚、URLを抜き出す正規表現は次のように書きました。
(https?|ftp)(:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)


環境は、CentOS5　perl5.10です
0495nobodyさん2012/02/08(水) 10:31:20.53ID:???
>>494
http://perldoc.jp/docs/perl/5.10.1/perlfaq6.pod#How32can32I32pull32out32lines32between32two32patterns32that32are32themselves32on32different32lines63

my $protocol = qr/(?:https?|ftp)/;
my $format = '<a href="%2$s">%1$s</a>' . "\n";
my $text = do { ... };
my @link;
while ($text =~ m{<!-- link -->(.*?)<!-- /link -->}gs) {
　　my $links = $1;
　　push @link, sprintf $format, $1, $2
　　　　while $links =~ m{～(.*?)～.*?($protocol://[!#-;=?-\[\]_a-z~]+)}gos;
}
print @link;
0496nobodyさん2012/02/08(水) 12:09:45.01ID:???
>>493
その割には「お前ら教えろ」で回答貰えたりするけどな2ch
0497nobodyさん2012/02/08(水) 23:05:10.70ID:???
>>496
それはむしろネタとして受け入れられてしまうんだろうなｗ
0498nobodyさん2012/02/19(日) 12:41:02.48ID:???
私の働きが悪いせいか、私の物はほとんど買ってくれません。
下着は、妻と娘のお下がりです。
おまけに洋式トイレ、便座が上がってるとか、飛沫が飛んでるとか、いちいち五月蝿いんです。
おかげで、トイレは座ってするように強要され、もうブリーフの前、開ける必要が無いんだからと、私達のお下がりで十分でしょう。と、ここ何年も私の物は買ってくれません。
今では開き直って、ブラジャーもしています。
家に居る時は、娘のスカートを穿き、外出は娘のパンツ、ジーンズ穿いていきます。
娘は、始めは困惑していたが今では慣れ、何でも貸してくれます。
妻の洋服、パンツ、スカートはウエストがちょっときつい。
ストレッチの物は、勝手に着ています。
0499nobodyさん2012/02/19(日) 13:22:18.26ID:???
cat >>498 > /dev/null
0500nobodyさん2012/02/19(日) 15:19:47.97ID:???
next if $num == 498
0501nobodyさん2012/02/19(日) 17:53:14.70ID:???
Global symbol "$num" requires explicit package name at >>500 line 1.
0502nobodyさん2012/02/19(日) 22:33:36.65ID:???
どうせなら、>>498 は、そのカキコ内容を perl で記述すべし。
0503nobodyさん2012/02/20(月) 14:28:00.53ID:???
use warnings; use utf8; use Corp; use Family;
my $family = Family->new();
$family->husband('>>498'); $family->wife('百合子(仮)'); $family->daughter('楓(仮)');
my $corp = Corp->new(); $corp->salaryCalculation();
$family->income($family->husband(), $corp->salary());

if($family->income($family->husband()) > 250000){
　　# トイレ
　　my $toto = Toilet->new();
　　$toto->type('EU'); # JA or EU
　　my $urine = $family->urine($family->husband()); # 小便をする
　　$toto->urine($urine);
　　if($toto->is_splash()){ $toto->forced_to_sit(1); } # トイレの用足しには座りを強制
　　# 下着
　　if($toto->forced_to_sit()){ $family->underwear($family->husband(), $family->underwear($family->wife()); }
　　# 他の着衣
　　if($family->underwear($family->husband()) eq $family->underwear($family->wife())){
　　　　$family->brassiere($family->husband(), $family->brassiere($family->wife());
　　　　$family->skirt($family->husband(), $family->skirt($family->daughter());
　　　　$family->jeans($family->husband(), $family->jeans($family->daughter());
　　}
}else{
　　$family->underwear($family->husband(), 'BOXER PANTS');
　　$family->brassiere($family->husband(), undef);
　　$family->skirt($family->husband(), undef);
　　$family->jeans($family->husband(), 'EDWIN');
}

>>498 じゃないけど、これが限界っす＞＜
娘や妻への下着のセットは省いたｗ
0504nobodyさん2012/02/20(月) 14:29:13.01ID:???
収入がちゃんとある場合の下着で、ブラとスカートはちゃんと undef にしてるところを評価して欲しいですｗ
0505nobodyさん2012/02/20(月) 22:20:39.95ID:???
わろた
0506nobodyさん2012/02/21(火) 10:11:33.62ID:???
修正
×　$corp->salary()
○　$corp->salary($family->husband())

サラリーを得るのに名前を渡してなかった＞＜


×　if($family->income($family->husband()) > 250000){
○　if($family->income($family->husband()) < 250000){

不等号の向き間違えたｗ
0507nobodyさん2012/02/24(金) 16:30:51.95ID:???
初めまして。

RSSのデータから、日付時刻とタイトル、そのリンク先URLを一覧にして取得したいと考えています。

・ブラウザに「取得」ボタンなどを表示し、それをクリックすることで最新の一覧を表示
・以前に取得したものは取得しない

先ずは上記2点を実装したいです。

良い方法や参考サイトなどをご教示頂きたいです。
よろしくお願いいたします。
0508nobodyさん2012/02/24(金) 17:02:28.77ID:???
>>507
>>1-2

こんなCGI探してます 23
http://kohada.2ch.net/test/read.cgi/php/1219654359/
依頼されたツールを誰かが作るスレ
http://kohada.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://kohada.2ch.net/test/read.cgi/php/1150508106/
自作CGIを評価するスレ
http://kohada.2ch.net/test/read.cgi/php/1049514428/
自分の作ったCGIスクリプトをデバッグするスレ
http://kohada.2ch.net/test/read.cgi/php/1011174442/

http://kohada.2ch.net/test/read.cgi/php/1036141603/420-435
0509nobodyさん2012/02/24(金) 17:22:17.71ID:???
>>508
最後のスレが役に立ちそうです。ありがとうございます。
0510nobodyさん2012/02/25(土) 00:54:16.96ID:???
なぜマスコミは財務省の犬になるのか？

全国紙では唯一、増税批判の姿勢を取っていた産経新聞に、
昨夏、国税の税務調査が入った。
財務省にとって税務調査は言論統制の最強の武器で、
2009年には朝日、読売が申告漏れを指摘され、
それを機に朝日は増税礼賛へと傾斜し、
読売は財務省幹部の天下りを受け入れた経緯がある。

国税庁という「警察力」は、財務省の最強の武器なのです。
何しろ、徴税というのは「裁量範囲」が広い業務で、
調査官の「判断」により合法とされたり、
脱税とされたりしてしまうのです。
「去年はＯＫだったのに、今年は何でダメなんだ！」
といった事態は普通に起こります。
0511nobodyさん2012/02/25(土) 13:09:52.88ID:???
眞子様は素敵

まで読んだ
0512nobodyさん2012/02/27(月) 00:22:44.82ID:???
貞子は素敵

まで読んだ
0513nobodyさん2012/02/27(月) 00:26:08.69ID:???
素数

に見えた
0514nobodyさん2012/02/27(月) 00:46:41.84ID:???
素股
0515nobodyさん2012/02/27(月) 07:22:57.09ID:???
眞子様は素股!?
0516nobodyさん2012/02/27(月) 14:07:22.77ID:???
貞操は国家機密事項
0517nobodyさん2012/02/28(火) 00:06:11.43ID:0AwG+yg0
質問なのですがPerlでこういうサイトって作れますか？
ttp://findrjp.com/formen/
これはPHPだと思うんですけど
作るとしたらelsifで作る感じでしょうか？
こういうのってすぐ作れますか？
0518nobodyさん2012/02/28(火) 00:51:16.58ID:???
お前には無理
0519nobodyさん2012/02/28(火) 00:59:39.36ID:???
お前に出来たらチンパンジーでも出来るよ
0520nobodyさん2012/02/28(火) 01:10:42.34ID:???
そうだねelsifさえ使いこなせれば簡単に作れるよ。でもelsifはかなり難しいから頑張ってね。
0521nobodyさん2012/02/28(火) 01:35:37.84ID:0AwG+yg0
皆様生暖かいコメントありがとうございます。
どうせテメーらにはできないんだろｗｗｗｗｗ
って挑発したらヒント教えてくれますか？
elsifは分かります
0522nobodyさん2012/02/28(火) 10:18:18.70ID:???
はいはいマルチマルチ。
0523nobodyさん2012/02/28(火) 14:34:14.89ID:???
実行中のスクリプトの場所に関して質問です。

スクリプト中で開くファイルはスクリプトのあるディレクトリのサブディレクトリに置いており、
全てフルパスで開くようにしています。
昨日初めて mod_perl を入れたところ、FindBin $Bin や Cwd が Apache のディレクトリになっています。

$ENV{'SCRIPT_FILENAME'} を使おうかと思ったのですが、デバッグでコンソールで実行することもあるため
$ENV{'SCRIPT_FILENAME'} は使えません。

$0 では cron でも mod_perl でも CGI でもコンソールでも期待する値が得られました。

./hoge.pl で実行して dirname($0) すると ./ 返ると書いてある場所もありますが、当方では
確認できませんでした。

そこで疑問に思ったのが、$0 を 100% 信用してもいいのか？ ということです。
「他のプログラムにより強制的に書き換えられる」 という可能性は今は無しでお願いします。
0524nobodyさん2012/02/28(火) 14:46:37.42ID:???
ちょっと勘違いがありました。

$0 は perl に与えられた path みたいですね。
HTTPd とかはフルパスを作って渡してくれてるっぽいけど、
コンソールではそうではない。

むぅ。。。
0525nobodyさん2012/02/29(水) 01:59:02.18ID:???
mod_perl を導入してスクリプトが走るのが軽いからと F5 連打してたら
Not a CODE reference ～
っていうエラーが出た。
そのエラーが言う行は

main();

としかやってないのに。。。
0526nobodyさん2012/02/29(水) 11:28:36.69ID:???
mod_perlが返すパスも元を追えば$0を元に生成してたと思う
0527nobodyさん2012/03/02(金) 13:17:08.38ID:???
すみません、Web制作板からこちらに飛ばされて来ました。

ユーザーによる新規会員登録後、そのユーザー毎にディレクトリを自動的に生成し、
ユーザディレクトリ毎に容量制限を割り当てたいのですが、可能なのでしょうか？

ディレクトリを自動生成するところまではできています。
0528nobodyさん2012/03/02(金) 18:09:30.62ID:???
ファイルが作成されようとする度に全ファイルサイズを得るか、
quota の導入。
quota を入れるなら、システムに実際にユーザーの作成が必要。
0529nobodyさん2012/03/03(土) 19:01:18.46ID:???
if ( 現在使用サイズ + これから書き出すサイズ < 制限サイズ ) {
　ファイル書き込み
　現在使用サイズを書いたファイルorDBを更新（現在使用サイズ＋これから書き出すサイズ）
}

サイズ取得はuse bytes; $data_size = bytes::length($data); かな。
0530nobodyさん2012/03/03(土) 19:19:52.03ID:???
$^0って何でしたっけ。
検索しにくくて、、、、こういうのどうやって探せばいいんでしょう。
perlvarになかったので特殊変数ではないっぽい
0531nobodyさん2012/03/03(土) 19:27:25.41ID:???
何でしたっけと言われても、少なくともPerlにおいては特殊変数ではないしそれ以外の何かの意味もない。
0532nobodyさん2012/03/04(日) 02:19:05.56ID:???
$^O ならOS名なんだけどネ
0533nobodyさん2012/03/04(日) 12:49:16.62ID:???
>>532
そんなのすぐ気づいたしｗ
05345302012/03/04(日) 17:01:24.24ID:???
ありがとうございます、OS名でぐぐったらいろいろ出てきました。
ゼロじゃなくて大文字のオーだったんですね。

OS名ということはシステムからPerlに提供されているものだと思って、%ENVと同じところに記述されているはずって当たりをつけたら
perlvarにありました。
0535nobodyさん2012/03/04(日) 20:39:47.27ID:???
531恥ずかしすぎだなｗ
05365322012/03/05(月) 05:40:34.80ID:???
>>535
そんなことはない。$^0 は確かに特殊変数でもなんでもなかった訳だし。
ためしに$^0をプリントさせたらエラーで実行できなかったし。
0537nobodyさん2012/03/05(月) 22:13:10.43ID:???
だが普通すぐ気づくだろう。
0538nobodyさん2012/03/06(火) 01:30:36.74ID:???
「普通すぐ気づく」なら530の質問は最初からされてない
■ このスレッドは過去ログ倉庫に格納されています