Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0396nobodyさん
04/12/18 22:25:58ID:Zy8umN1o誕生記念age
0397nobodyさん
04/12/18 22:34:22ID:???0398nobodyさん
04/12/18 23:29:49ID:???. ,,-'''~;;;;;;;;;;;;;;;;;;;;;;~'-_,,,,_
. ／;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;~ヽ,
. /;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,;;;;;;;;;;;;;;;;ヽ
/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,;;;i;l;;;;;;;;;;;;;;;;;;;l
. /;;;;;;;;;;;;;;;;,;;;;;;;;;;;;;;;;;;;;;;;/l;;l;l＼;;;;;;;;;;;;;;;l
l;;/;;;;;;;;;;;/l;;;;;;;;;;;;;;;;;;/;///l;l ＼;;;;;;;;;;l
. l;;l;;;;;;;;;;;;/;l;;;;;;;;;;;;;;;;;//// l/ ヽ;;;;;;;;l
l;l;;;;;;_,,,,l- '''''''''~~~''~ ' ~''''''--,, .ll;;;;;;;l
''-l',-'l _,,-'''(~)' '~l~(~),-,_'' l;l;;;;;;l
. l.l l ' l;;;;;;ol .lo;;;;;;l ' /~ヽ;;l
. l;ヽ l ~~~ , ~~~ / ﾉ;;;l
. .l;;l;;;i~''l ,__, /-i''l;;;;;;l
l;;l;;;l;l;;;;ヽ,_ .／;;;;l;l;l;;;;;;l
. l;;ll;;;l;l;;;;;;;;;l~'''i-,,_ _,,,-i'''~;ll;l;;;;;l;;ll;;;;;;l
l;;ll;;;l;;l;;;;;;;;;ll,/'l ~~ lヽ,_ll;l;;;;l;;;l;;;;;;;l
l;;ll;l;l;;l;;;,-''~ lﾉ '/ '-,,_;l;;;;l;;;;;;l
. l;/;l,,-'~ l_ _/ ~'-,;l;;;;;l
l,-i~l l l~'' '~/ .//'-,;l
i'l l. l l l ./ .// / 'l
. l. l. ヽヽヽ _,,-'~-l /-'''-,_ /./. / l.l
. l iヽ ヽヽ,''~,---,ﾍ,-,ﾍ--,,~''-'／／.i /,.l
l| lヽl ヽ,_~ヽ ,-/l~lヽ,, /~'',／ .l // l
/l ヽ l /＼/.l l l lヽ-'ヽ~'' .l// .l
. /;l ヽl. ＼ l l l l ／ l/ l
0399nobodyさん
04/12/18 23:30:21ID:???(⌒＼:::::::::／⌒(⌒∨⌒)
(￣＞::( ﾟДﾟ)<(⌒＼:::::::／⌒)
（￣／:::::::: (＿＞::( ﾟДﾟ)::＜
／(（⌒∨⌒（＿／U::U＼__）
/ (⌒＼::::::::／ （＿∧＿）`∨⌒) ､@,
<(__＞::( ﾟДﾟ)::＜__し//J＼::::::／⌒;@@^
|ヽ（＿／::::::::＼＿)（＿＞::( ﾟДﾟ).つ|／｀
| ヽ. （＿∧＿) // (＿(ﾉ:::::::＼＿)
| ＼し|.|J //／／（＿∧＿)
l `.:7￣￣￣￣￣/ し"J
ヽ ／ .:::／
/￣￣ヽ(,,ﾟДﾟ) ~￣ヽ ＜ おめでとうございます！
ヾﾆﾆ=／./ﾊゞ＼=ﾆﾝ
/ ／ /| |ヽ ＼
（__￣l/__U"U V｀"
0400nobodyさん
04/12/20 08:55:27ID:???いや、絶対なんか便利なモジュールがあると思うんですが、ちょっと検索してもスパッとでてこないので……
0402nobodyさん
04/12/20 10:07:18ID:???ｔｘｔファイルのアドレスを送ってファイルオープンしようとしたら出来ませんでした
アドレス自体は、確認したところちゃんと送られてるようでしたし
ファイルも、送られてくるアドレスでなく、相対パスをいれたら開くことが出来たんですが
urlではファイルのオープンは出来ないのでしょうか？
0404nobodyさん
04/12/20 11:17:15ID:???mod_perl 環境下で Apache::Request の headers_in() を使え
という話になるわけだな
0405nobodyさん
04/12/20 13:25:42ID:???ただ、どうしても生のヘッダ全てが欲しいならしょうが
ないが、CGIでも環境変数経由である程度は情報もらえる
ので、それでなんとかなることもある。
0407400
04/12/20 13:51:18ID:???む、mod_perl必須ですか。mod_phpがなかったのでPerlならと思ってみたんですが……今のレン鯖じゃだめかー
やりたかったのはIf-Modified-Sinceをぶんどることなので環境変数経由じゃダメっぽい。
レスありがとうございました。
0409nobodyさん
04/12/20 15:59:24ID:???次のような状況で、エラーは出ないのですがこれは問題ないのでしょうか。
ご指導下さい。
script.cgiでuse strict;って書いてコーディングを厳格化しています。
そこで、require "library.pl";としてあります。
library.plには、宣言されていない変数が使用されていますが大丈夫でしょうか。
library.plではstrictしていないのでこれは問題ないのでしょうか。
よろしくお願いします。
0410nobodyさん
04/12/20 16:07:28ID:???use strict;でもscript.cgiの記述が対象になるだけで
requireされたライブラリの中身までは見ない。
0411nobodyさん
04/12/20 22:25:10ID:???FTP使えなくてTeraTermからviでコーディングさせられてて、超しんどいです。
できたら予約語ハイライトがあったら嬉しいですが
これよりマシな環境なら何でもいいので、どうかお願いします。ｍ（_ _）ｍ
0412nobodyさん
04/12/20 22:28:11ID:???0414nobodyさん
04/12/21 00:58:35ID:???自分のPCからFTPクライアントが使えないのか、shからもFTP出来ないのか、
>>412って事だから、この際PerlでFTPクライアント組んじゃえ。
そしたら自分でFTPサーバ立てれば(もしくはどっかにUP)、shから落とせるな。
Net::FTP使えば、ワンライナー程度でも十分いけそうな感じ？
ま、別にFTPにこだわる理由は無いのだが・・・
0415411
04/12/21 01:59:02ID:???レス有難うです。
とりあえず入力補完があるらしいemacsで頑張ります。
非武装サーバにログインして、そこからssh経由で開発サーバに接続
という2段構えになっていて、どっちのサーバも設定触れないので・・。
スレ違い申し訳ない。平にご容赦を。
0416nobodyさん
04/12/21 06:35:50ID:???scpとか。
コピペでviに流し込むとか(teratermだと無理かな?)。
Unix板の方が適切なレスもらえると思うけど。
0417nobodyさん
04/12/21 20:22:36ID:???0418nobodyさん
04/12/21 22:20:45ID:???Perlについての質問箱 14箱目
http://pc5.2ch.net/test/read.cgi/tech/1101649274/
0419nobodyさん
04/12/22 01:13:08ID:???0420nobodyさん
04/12/22 02:02:21ID:???Windows上からアップしたいならWinScp使えば？
0421nobodyさん
04/12/22 19:14:08ID:PL97VF7o配列に格納したいのですが、なかなか上手くいきません・・。
全部グローバル変数とかでやるなら、
open FH '<', "data.csv";
$i = 0;
while(<FH>){
chomp;
$count = sprintf("data%03d", $i);
@$count = split(/;/);
$i++;
}
close(FH);
と記述して一応は出来たのですが、最近use strict;なるものを知ってからは全く手が出なくなってしまいました。
どういった記述をすれば別々の配列に格納することが出来るのでしょうか？
まだuse strict;について全然理解していない段階で聞くのもどうかと思ったんですが、思い切って書いてみました。
説明も上手く出来なくて申し訳ありませんが、何かご指導お願いできないでしょうか。
よろしくお願いいたします。
0422nobodyさん
04/12/22 19:23:36ID:???何これ？？？
0425nobodyさん
04/12/22 20:06:11ID:???ﾜﾗﾀ
0427nobodyさん
04/12/22 20:45:13ID:???配列の配列を使う。
my @count;
open(FH, '<', "data.csv") or die $!;
while(<FH>){
chomp;
push(@count, [ split(/;/) ]);
# これはこんな意味
# my @dummy = split(/;/);
# push(@count, \@dummy);
}
close(FH);
アクセスするには？
$count[$i]->[$attr]; # 明快
$count[$i][$attr]; # 同じ意味だけど、私は嫌い
例えば$count[1]->[1]とは？
$count[1]に配列のリファレンスが入っているので、
それを->[1]を使いデリファレンスする
ということ。
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html#LISTS_OF_LISTS
0429nobodyさん
04/12/22 22:48:45ID:???>>427の通りで出来ると思うけど、こっちもついでに >
http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html
0430nobodyさん
04/12/22 22:56:49ID:???ま、なんとなくそういう前提で書こうとしてるだけの気はするけどな。
どうしてもそうしなければならない理由はいくら考えても思いつかないし。
0431nobodyさん
04/12/23 00:32:14ID:???use strictを記述すると 変数名に型宣言をしないとエラーが表示される
ということで、早速以下のようにコードを書いて試してみたのですが
エラーがまったく出ずに
ブラウザには「test : 0」と通常通り表示されるのみです。
何故エラーが出ないのでしょうか。
#!/usr/bin/perl -w
use strict;
$a = 0;
print "Content-type: text/html\n\n";
print "test : " . $a;
0432nobodyさん
04/12/23 00:37:33ID:???0434431
04/12/23 00:45:14ID:???$aでなく$abcにしたら見事エラーがでてページが表示されませんでした。
知りませんでした…
ありがとうございました。
0435nobodyさん
04/12/23 00:49:46ID:???つーかperldocに思いっきり書いてあるから。
0436nobodyさん
04/12/23 00:52:21ID:???これですね。
Because of their special use by sort(),
the variables $a and $b are exempted from this check.
0438nobodyさん
04/12/23 01:48:55ID:???となると本当に極めるにはPerlのソース読むが一番と。
ま、確かにそうだな。
0440nobodyさん
04/12/23 14:15:05ID:???9を16回(4.9999999999999999)繰り返すとなんで5以上の判定なんだ。
print "数値を入力: ";
$value = <stdin>;
chomp ($value);
if ($value >= 5)
{
print "5以上\n";
}
else
{
print "5未満\n";
}
0441nobodyさん
04/12/23 14:49:47ID:???0442nobodyさん
04/12/23 15:00:41ID:???0を足してみれば分かるかも。
$value = 4.9999999999999999;
print(0+$value);
Perlの内部で値を正しく表現できないと表現誤差が出る。
そういうときは、
use bignum;
を宣言する。
0443nobodyさん
04/12/23 15:37:47ID:???0444nobodyさん
04/12/23 23:37:19ID:a8M2UJvQ使いたいモジュールが入ってるか調べたいのですがどうやって調べられますか？
0445nobodyさん
04/12/23 23:41:49ID:???0446nobodyさん
04/12/23 23:59:18ID:???expires値も食わせてるし、IEの設定をヤワにしても駄目。
Firefox1.0はちゃんと食ってるんですが…。
IEに独特な制約とかって、ありましたっけ。
0450nobodyさん
04/12/24 00:58:03ID:???use PHP::Perlinfo;
perlinfo();
こうやってみましたけど、500エラーになっちゃいました。
0454nobodyさん
04/12/24 08:09:11ID:o66Ux/q0やりたいことは、画像ファイルをアップしてもらったときに、その画像を表示させる際、widthとheightの指定をするために、数値が必要なのです。
表示する際に取得しても、アップされたときに取得してdatファイルに書き込んでもどちらの方法でもいいんですが、
いいやりかたがありましたらお教え下さい。
0455nobodyさん
04/12/24 08:22:07ID:???Image::Magickが使えるならもっとお手軽。
0456450
04/12/24 10:56:48ID:tsjI5bY5だからレンタルサーバーだからわかりませんて。
0457nobodyさん
04/12/24 11:24:35ID:???別に.pm無くても調べれるし、そういうスクリプトも配布されてるけどな。
てめーのその書き方が気に入らないから教えない。
勝手に調べろ。どーせすぐ見つかる。
0458nobodyさん
04/12/24 11:42:50ID:???RPM使うのが手っ取り早いんじゃ？
0461nobodyさん
04/12/24 13:21:51ID:???0462nobodyさん
04/12/24 13:30:52ID:???0463nobodyさん
04/12/24 13:36:23ID:???-> レンタル業者のサポートセンターに電話して確認汁
「500エラーになってしまいます」
-> レンタル業者のサポートセンターに電話してエラーログを教えてもらう
一番確実、簡単、早いヽ(ﾟ∀ﾟ )ノ
0464nobodyさん
04/12/24 13:48:24ID:???use CGI::Carp qw(fatalsToBrowser);
を頭の方にいれとくだけでエラーメッセージが
ブラウザに出るようになるからかなりやりやすく
なると思うのだが。
0465nobodyさん
04/12/24 17:25:57ID:???0466nobodyさん
04/12/24 17:30:09ID:???結局サーバでやるしか無い場合もちらほら。
0468nobodyさん
04/12/24 21:08:00ID:???ActivePerl ならリポジトリに以下のサイトを加えると PPM で入るな。
http://www.bribes.org/perl/ppm
0469nobodyさん
04/12/24 22:32:19ID:cTzXcA78通常のＰＣ宛には正常に届きますが、ドコモに送ることができません。
画面上ではエラーにはなりません。
携帯のドメイン指定受信は間違いありません。
require "jcode.pl";
$mailer = '/usr/lib/sendmail';
$mlfrom = '[email protected]';
$mlto = '[email protected]';
$mlsb = "件名";
$body = "ほげほげ";
jcode'convert(*mlsb, "jis");
jcode'convert(*mlms, "jis");
$mlhd = "From: $mlfrom" . "\n" . "To: $mlto" . "\n" . "Subject: $mlsb" . "\n\n";
$err = 0;
open(MAIL, "| $mailer -t") or $err = 1;
if ($err == 0) {
print MAIL $mlhd;
print MAIL $mlms;
print MAIL $body;
close(MAIL);
$msg = 'メール送信正常に処理しました。';
} else {
$msg = 'メール送信エラー';
}
0470nobodyさん
04/12/24 23:08:26ID:???0471nobodyさん
04/12/24 23:12:43ID:cTzXcA78前に、Net::SMTPとかいうの使ったら送れたんですが・・・。
0472nobodyさん
04/12/24 23:13:38ID:cTzXcA780473nobodyさん
04/12/24 23:20:03ID:???sendmailのログを見ろ。これ以上はperlいじってもわからない。
「メール送信エラー」になるのなら、$!を表示させるべし。
0474nobodyさん
04/12/24 23:23:02ID:???・送信を規制しているIPアドレスがある（らしい）
・スクリプトを実行しているドメインは$mlfrom と一致しているか？
0475nobodyさん
04/12/25 13:35:49ID:???0476nobodyさん
04/12/25 15:46:52ID:???$bodyはjis変換しないの？
$mlmsってどっから出てきた？
MIME-VersionとかContent-typeとかのヘッダー付けないの？
ちなみにbase64使って件名を変換するならこれでいいはず・・・
use MIME::Base64;
&jcode'convert(*mlsb, 'jis');
$mlsb = encode_base64($mlsb);
$mlsb =~ s/\n//g;
$mlsb = "=?ISO-2022-JP?B?" . $mlsb . "?=";
0477nobodyさん
04/12/25 16:12:32ID:???http://www.din.or.jp/~ohzaki/perl.htm#JP_Base64
0478nobodyさん
04/12/25 23:20:20ID:bFVNXg4wchmod 0777,<*>;
単純にやるならこれで大丈夫なものの、
ディレクトリ > ディレクトリ > ファイル
のように階層が深くなると書き方が判りません。
何か定石はないでしょうか？
0479nobodyさん
04/12/25 23:31:08ID:???http://www.itmedia.co.jp/help/tips/linux/l0647.html
0481478
04/12/25 23:49:48ID:bFVNXg4wありがとうございます。
ただ、Perlでの記法が知りたいのです。
言葉足らずで申し訳ありません。
0482nobodyさん
04/12/26 00:16:31ID:???type="file"を使うときはenctype="multipart/form-data"にしろ、とあったので、
form要素にそれを記述したら、書き込み自身できなくなりました。
サーバーによってファイルのアップロードができない、とかそういうのはあるんでしょうか？
0485482
04/12/26 01:58:00ID:???データの受け取り方がテキストとは違うようですね。
0486nobodyさん
04/12/26 02:11:01ID:???フォームからCGIへ値を渡す時、何を使ってデコードしてるんだい？
CGI_Lite.pmあたりを使ってりゃ、問題は無いはずだよん。
0487nobodyさん
04/12/26 02:14:01ID:???0488482
04/12/26 02:24:06ID:???if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
とやって、$bufferを散々弄繰り回しておりました。
type=fileを使うのは初めてなので緊張してます。
CGI_Lite.pmというものを探して使い方を勉強してみます。
有難う御座いました。
0489482
04/12/26 03:25:48ID:???あとは、これを画像ファイルとして生成するだけなんですが、
GIF89aから始まる文字列の中のどこに元々のファイル名が含まれてるんでしょうか。
抽出方法がありましたら教えてくださいますようお願い致します。
単純に文字列の中には見つかりませんでした。
0490nobodyさん
04/12/26 03:28:57ID:???0491482
04/12/26 03:31:54ID:???回答有難う御座います。
ということは、<input type="file">のパスを抽出出来るようにしなくちゃいけないわけですね。
なんだかいろいろ見えてきたような気がします。頑張ります。
0492nobodyさん
04/12/26 04:28:34ID:???0493nobodyさん
04/12/26 09:31:51ID:mhqMgdk4PHPからperlをexecで実行させる処理を書いてるのですが
perlスクリプトへの引数で
エスケープが必要な文字ってなにがあるのでしょうか？
試した限りでは
" は \"
\ は \\
にして " で囲えばいいかなと思ったのですが。
0494nobodyさん
04/12/26 10:04:43ID:???print qq|ここに"でも\でも好きなだけ書くがよい|;|
0495nobodyさん
04/12/26 10:08:15ID:???■ このスレッドは過去ログ倉庫に格納されています