Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0163nobodyさん
04/04/11 23:31ID:???if (!-e image/$new){
mkdir("image/$new",0777);
chmod(0777, "image/$new");
}
0164nobodyさん
04/04/11 23:34ID:???0165163
04/04/11 23:42ID:???理由は
if (!-e image/$new){
が
if (!-e "image/$new"){
にするのわすれてました・・・｡ﾟ(ﾟ´Д｀ﾟ)ﾟ｡
0166nobodyさん
04/04/12 02:29ID:???if (mkdir("image/$new", 0777)) {
chmod(0777, "image/$new");
}
elsif (!-d "image/$new") {
die;
}
0168nobodyさん
04/04/12 03:42ID:???0169nobodyさん
04/04/12 04:10ID:???0170nobodyさん
04/04/12 06:57ID:???umask効いてる時は、mkdirのパーミッション指定が効かなかった記憶がある。
0172nobodyさん
04/04/12 10:13ID:???0173nobodyさん
04/04/12 11:40ID:???0174nobodyさん
04/04/12 18:49ID:DgDkioXO（例）japan/korea どのような構文を使えばいいのでしょうか？
0175nobodyさん
04/04/12 18:50ID:???0176nobodyさん
04/04/12 18:54ID:???0177nobodyさん
04/04/12 18:57ID:???0178nobodyさん
04/04/12 19:02ID:???0179nobodyさん
04/04/12 19:38ID:???0180nobodyさん
04/04/12 19:42ID:???0181nobodyさん
04/04/12 19:57ID:???($hoge,$foo) = split /\//, 'japan/korea';
こんな感じですんでまた来てね♥
0182nobodyさん
04/04/12 20:12ID:???0183nobodyさん
04/04/12 22:06ID:???# 侮ｦ不可狽ﾈ頼ｴ
これってもちろんPerlのバグですよね？
0187nobodyさん
04/04/12 22:51ID:???ＰＥＲＬで「ｃｇｉを呼び出すＨＴＭＬ」を吐き出すｃｇｉ を作ったのですが
クエリーがうまくわたらないのです。
１．最初の（固定の）ＨＴＭＬでは、ファイル中のクリッカブルマップからたとえば
test1.cgi?hogehoge
をリンクしています。
２．test1.cgiでは QUERY_STRING から hogehoge を取り出し
データファイルと照合して hogehogehoge というアイテム名を取り出してるので
HTMLファイルに、
<A href="test2.cgi?hogehogehoge> と出力させています。
３．test2.cgi では、 QUERY_STRING から hogehogehoge を取り出すようにしているのですが
ここで 空文字列しか来ていないようで、２．のHTMLファイルのリンクをクリックするとエラーです。
test2.cgi は確かに呼び出しています。
一連の動作でやるとエラーなのですが、２．のHTMLが表示された段階でブラウザにソースを吐かせ、
それを別のHTMLファイルとして起動してやると、そこからのリンクでは、test2.cgi にちゃんと
hogehogehoge が渡っています。
何か設定を忘れているでしょうか？
0188nobodyさん
04/04/12 23:11ID:???↓
<A href="test2.cgi?hogehogehoge">
0189nobodyさん
04/04/13 00:51ID:???Redhat8.0のperl5.8.0でLWP使って
レスポンスヘッダを編集したいんですが、
newの書式が分からないです。マジで。
require HTTP::Response;
$rc = '200';
$msg = 'OK';
$header = 'Accept-Ranges: bytes\n';
$header .= 'Content-Length: 186965910\n'
$header .= 'Content-Type: text/html\n\n';
$content = '';
$res = HTTP::Response->new($rc, $msg, $header, $content);
print "$res";
と書いたんですが、InternalServerErrorで進めません。
HTTP::Responseでレスポンスヘッダを編集する方法教えてください。
お願いします。
0190nobodyさん
04/04/13 01:00ID:???なんかグタグタですな。。。
use HTTP::Response;
$header =<<"EOS";
Accept-Ranges: bytes
Content-Length: 186965910
Content-Type: text/html
EOS
186 MB の HTML なんてブラクラですね。。。
0191189
04/04/13 01:04ID:???お早い回答ありがとうございます。
いや、ヘッダー情報をいじったり削除したかっただけなんで、
値はどうでも良いかと思ってテキトーに設定しました。気をつけます。
0192nobodyさん
04/04/13 07:51ID:???Windowzで「ヌルポ」と文字化けします。
これってもちろんPerlのバグですよね？
0193nobodyさん
04/04/13 08:21ID:OVsnEkWRTEXTAREAの内容について改行の処理をしようとすると
数字の羅列になってしまいます。
$msg = $FORM{'msg'}; #バッファからセット。URLデコード済。
# $msg = ~ s/\r\n/<BR>/g;
この状態だと「$msg」の中身はちゃんと文字列になっているのですが
下のコメントをはずすと途端に数字の羅列になります。
（文字列を変えても同じ数字になります。）
どうすればこの状態を回避できるでしょうか？
0194nobodyさん
04/04/13 08:29ID:???$msg =~ s/\r\n|\r|\n/<BR>/g;
このようにコーディングしてみたらいけました。
0196nobodyさん
04/04/13 15:08ID:???何かちゃんとした名前があったような気がしたんだけど。
何だっけ。
カタカナ4文字でスがついたような気がする。
0197196
04/04/13 15:09ID:???名前がなかったかも。
0198nobodyさん
04/04/13 15:42ID:sCIWFJ4B表示させる、ということをやっています。
番号が入っているcar_numフィールド（11番目）には
[****-****-****-****]
という形でデータが入っています。
しかし、番号確認画面でその末尾４ケタのみ表示させたいのですが、
なかなか良い考えが浮かびません。
今は以下のように書いて丸々16ケタ表示させています。
諸先輩方、アドバイスよろしくお願いいたします。
<tr>
END
if ($odr[10] == 2){
print"$odr[11]"
}
print <<END;
</td>
0200199
04/04/13 16:05ID:???エボック秒だわ
0202199
04/04/13 16:06ID:???0205nobodyさん
04/04/13 18:00ID:???抜き出してPERLで使いたいのですが、どうすれば良いのでしょうか？
例えば
$string = "FilesystemSizeUsedAvailCapacityMounted on"
の一行から、Size, Usedだけを取り出して使いたいとすると、
@pairs = split(/(\t)/, $string);
print "@pairs[1] @pairs[2]";
としても上手く行きません。(\s)*でも無理なようです。
0206nobodyさん
04/04/13 18:18ID:???print "$pairs[1] $pairs[2]";
0207205
04/04/13 18:21ID:???@pairs = split(/\t/, $string);
だと、何故か全て@pairs[0]に全文が入ってしまい、
@pairs[1]以降は空になってしまうようです。
0209205
04/04/13 18:40ID:???shellのdfコマンド出力から一行抜いてきたstringです。
dfは何を使って区切っているのでしょう？
Filesystem 512-blocks Used Avail Capacity Mounted on
/dev/disk1s9 39870600 36823240 3047360 92% /Volumes/disk1
/dev/disk3s2 320144448 267850648 52293800 84% /Volumes/disk2
0210nobodyさん
04/04/13 18:42ID:???何も調べずに的外れなコードを書く奴もDQNだが、解答する奴もそれに劣らずイカレてるな。
>>205
> データから一部の数字だけ
とあるのにコードに数字が一切ないのは何故だ？
my(@data) = ($string =~ /([A-Z][a-z]+)/g);
print "$data[1], $data[2]\n";
お前の望むことはとりあえずこれで出来るが、本当にこんなことがしたいのか？
0211nobodyさん
04/04/13 18:44ID:???$stringを切って配列に代入しようとしてるなら
$stringをprintしてみれば何区切りかわかることだろ。
0213210
04/04/13 18:50ID:???おいおい…(絶句)
もう何も言うまい。ほらよ。
my %data;
my @fileds = ('Filesystem', '512-blocks', 'Used', 'Avail', 'Capacity', 'Mounted on');
@data{@fields} = split / /, $string;
use Data::Dumper;
print Dumper(\%data);
0215205
04/04/13 19:00ID:???みたいな感じの文章出力に使う用です。
0217nobodyさん
04/04/13 19:08ID:???0218nobodyさん
04/04/13 19:36ID:???WinXP+cygwin使用
$ df -h /cygdrive/c | perl -MData::Dumper -ne 'print Dumper split /\s+/'
$VAR1 = 'Filesystem';
$VAR2 = 'Size';
$VAR3 = 'Used';
$VAR4 = 'Avail';
$VAR5 = 'Use%';
$VAR6 = 'Mounted';
$VAR7 = 'on';
$VAR1 = 'c:';
$VAR2 = '74G';
$VAR3 = '39G';
$VAR4 = '35G';
$VAR5 = '52%';
$VAR6 = '/cygdrive/c';
0219205
04/04/13 19:40ID:???で出来ました。ありがとうございます。
0220nobodyさん
04/04/13 23:40ID:???187で質問した者です。
WEB動作環境は勤め先にあるので返答が遅れました。（アクセス制限がかかってるので）
ここに書いた例が間違っていて、実物はちゃんとダブルクォート閉じてました。
いろいろやってみて、どうも
Ａ． ＣＧＩが出力したＨＴＭをそのまま（連続で）表示した場合と、
Ｂ． それをソース表示して「保存」し、改めて表示した場合で
振る舞いが違うようです。こんなことがあるのかいなと思うのですが．．．
Ａ．Ｂ．のＨＴＭでは、hrefを使って別のCGIを引数つきで呼んでます。
そのCGIを、サーバにあった ENV.PL（環境変数を表示するやつらしい）と換えてみると
Bで表示される環境変数の多くがAでは出てこず、QUERY_STRINGもありませんでした。
（空文字列でなく、環境変数そのものが出て来ない）
ひょっとするとPERLの問題ではないかもしれませんが、スレ違いなら誘導してください。
明日はサーバーを変更してやってみます。
0221nobodyさん
04/04/14 00:50ID:???x <A href="test2.cgi?hogehogehoge">
o <A href="http://〜/cgi-bin/test2.cgi?hogehogehoge">
0223nobodyさん
04/04/14 06:12ID:???回答ありがとうございます。
最初の例では詳しく書いていませんでしたが、どちらのCGIの参照も
http:// から記述してます。（厳密には場所は一段違うところ）
222もそういう主旨ですよね？
0224nobodyさん
04/04/14 15:57ID:???CGI: Common Gateway Interface part 11
http://pc5.2ch.net/test/read.cgi/php/1055597189/
0225nobodyさん
04/04/14 19:03ID:ALtQW+6b187,220,223です。
誘導ありがとうございました。実は、サーバー変更（自分のPCでAN HTTPD走らせて）したら
問題なく環境変数が渡りました。問題のあったサーバーはNT＋IISです。
どうもCGI機能まわりのようなので、あちらで聞いてみます。お騒がせしました。
0226nobodyさん
04/04/14 20:57ID:1L/HDnzJこちらへ質問させて頂きます。
a.pl
b.pl
というスクリプトで、a.plからb.plへ標準出力で引数を渡し
b.plで受け取った引数を加工して、同じく標準出力で
a.plへ返すには、どうすれば良いのでしょうか？
open(FD,"./b.pl data1 data2 |");
という感じでやってみたのですが、a.pl⇒b.plへ
うまく渡されません。
どなたか、ご教授お願い致します。
0227nobodyさん
04/04/14 21:06ID:???0228226
04/04/14 21:38ID:1L/HDnzJ0229nobodyさん
04/04/15 14:38ID:???@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;
で出力される物を掲示板などのhtmlに出力したいのですがどうすればいいでしょか？
print format DATA;
みたいなアホな事してみましたがやはりエラーです。
ぐぐっても該当しそうな記事がみつからないし図書館のperlクックブックは
貸し出し中・・
先輩方よろしければお助けください。
0230nobodyさん
04/04/15 15:06ID:???0231229
04/04/15 15:19ID:???0232nobodyさん
04/04/15 17:41ID:???format =
@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;
formatは半角スペースでレイアウトするからhtmlへ出力するなら
<pre>で囲んで使うとかしないと。
固定ピッチになって間が抜けて見えるから掲示板には向かない気がするが。
0235233
04/04/15 22:16ID:???あ、writeでエラーになるってことね…。
format DATA =
@<<< @<<<<<< @<<<<<< @<<
$a,$b,$c,$d
.
$~ = 'DATA';
write;
0236nobodyさん
04/04/15 22:22ID:???0237nobodyさん
04/04/16 03:04ID:OgytMPQdkey $hash
key %$hash
と色々やってみたのですが 「keyの引数はハッシュじゃないとダメ」とエラーになります
0238nobodyさん
04/04/16 03:09ID:OgytMPQd0239nobodyさん
04/04/16 03:19ID:5vM41xl8なぜでしょう？
0241nobodyさん
04/04/16 03:27ID:5vM41xl8どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ
0242nobodyさん
04/04/16 03:35ID:???そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。
0243nobodyさん
04/04/16 03:45ID:5vM41xl8役立たずですね
0244nobodyさん
04/04/16 03:56ID:???暇つぶしなだけ
0245nobodyさん
04/04/16 03:59ID:2Due2Uz0早く寝ろ
0246nobodyさん
04/04/16 04:03ID:???漏れは今起きた
0247nobodyさん
04/04/16 04:03ID:???0248nobodyさん
04/04/16 05:09ID:5vM41xl8自力で解決しました。
役立たずさんは早く寝てください。
0249nobodyさん
04/04/16 06:03ID:???0250nobodyさん
04/04/16 06:56ID:???>なぜでしょう？
これでどう解決すればいいんだよ
き違いはイラク行ってろ
0251nobodyさん
04/04/16 09:58ID:???0252nobodyさん
04/04/16 10:28ID:???0253nobodyさん
04/04/16 10:33ID:???0254229
04/04/16 10:48ID:???>>233
>>234
みなさん、ありがとうございました。うまく出力できるようになりました。
あれから起動hddが逝って換装後os再インストなどでご報告遅れてしまいました。
>>232
ん〜そうですねぇ。間が抜けてみえちゃいますねぇ。
一応管理用のデータ表示程度に出力させたかったので御の字なんですが
本当はこれ以外の出力のさせ方しらなかったのです。
純粋にプログラム初心者なperl初心者なのでhtmlタグの知識などもほとんどなかったり。
ほかにも出力の出し方探してみようと思います。どうもでした。
0255nobodyさん
04/04/16 11:25ID:???グローバル変数の値が初期値に戻ってしまいます
なぜでしょう？
240 名前：nobodyさん 投稿日：04/04/16 03:24 ID:???
>>239
そうなるようなコード部分があるから
241 名前：nobodyさん 投稿日：04/04/16 03:27 ID:5vM41xl8
>>240
どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ
242 名前：nobodyさん 投稿日：04/04/16 03:35 ID:???
初期値を代入した部分が再度実行されれば戻るでしょ。
そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。
243 名前：nobodyさん 投稿日：04/04/16 03:45 ID:5vM41xl8
>>242
役立たずですね
0256nobodyさん
04/04/16 11:39ID:TQSKBaOOhttp://anonymouse.ws/anonwww.html
↑これみたいに、URLｸﾘｯｸしたら串刺さった状態で該当サイトに飛ぶようなスクリプト探してるんですが、
こんなのって普通に配布されてるんでしょうか？
だとしたらどういう検索ワードで探せばよいか教えてほしいんですけど・・・
0257nobodyさん
04/04/16 12:35ID:???>>1
http://pc5.2ch.net/test/read.cgi/php/1078568723/
■ このスレッドは過去ログ倉庫に格納されています