【Perl】初心者コーナー Part14
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
02/07/18 16:34ID:jemWJhH31：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0853nobodyさん
02/08/06 11:10ID:???0854art
02/08/06 11:11ID:a25IbhtNお願いします・・助けてください・・（笑）
0855nobodyさん
02/08/06 11:23ID:???$datという変数に代入するにはどうすればいいですか？
0856nobodyさん
02/08/06 11:30ID:yJuB6gJh合成ならカウンタとかでよく見かけるんですが、
分割はどうしてもわかりません。
たとえば500x500の画像を
100x100の5個に分割したりする方法です。
0857856
02/08/06 11:30ID:yJuB6gJh500x500
↓
500x100
まちがえたよー
0858nobodyさん
02/08/06 11:31ID:???投稿毎にファイルを生成するなら、ファイル名の数値を調べてインクリメントするが吉。
効率悪いし、メンテナンスしにくいと思うが。
0859nobodyさん
02/08/06 11:35ID:???もしくはGD.pm
0860856
02/08/06 11:39ID:yJuB6gJh画像を携帯から見ようと思うのですが、
当然機種によって表示できるサイズがちがうので、
表示させる段階で分割させたいのです。
厳密にいえば、
大きな画像の任意の一部を抜き出してブラウザに返すのがいいです。
なので、別に分割してファイルを複数つくる必要はないかもしれません。
GD.pmってモジュールですよね？
まだモジュール使ったこと無いので緊張しますが
ちょっと調べてきます。
0861nobodyさん
02/08/06 12:53ID:3j+94g7Zってやるとエラーが出るんですけど、どうすればいいでしょうか？
0862nobodyさん
02/08/06 13:15ID:???0864nobodyさん
02/08/06 13:23ID:xsMd1/x0掲示板が沢山あり、ログファイルが沢山ある場合、
したの処理を、ログファイルの個数だけ書かないといけないのでしょうか？
良い方法が思いつきません
どうすればよろしいのでしょうか？
#!/usr/local/bin/perl
$file1="log.txt";
$a=(stat($file1))[9];
($x,$mm,$h,$d,$m,$y,$x,$x)=localtime($a);
$m++;
print "Content-type: text/html\n\n";
print"掲示板の更新日は$m/$d $h:$mm";
0867nobodyさん
02/08/06 13:57ID:???@list = <DIR>;
closedir DIR;
@CON = grep { /^*.\.txt$/ } @list;
$dat = $#CON;
0868nobodyさん
02/08/06 14:00ID:???0869nobodyさん
02/08/06 14:00ID:???それだと１個足らなくない？
0872nobodyさん
02/08/06 14:12ID:???出力すると「-1」って出てきたんすけど・・
1個少ないんだったら変数に1足しても問題ないですかね？
>>870
簡単に言わないでよ
0873nobodyさん
02/08/06 14:48ID:xsMd1/x0ありがとうございます。
配列に入れて回したのですが
08/06 14:07 メイン掲示板
08/06 14:09 雑談掲示板
・
・
と出力されるのですが、新しいモノが上に来るようにソートするにはどうしたらよいでしょうか？
print "Content-type: text/html\n\n";
foreach $c (1..$q) {
$access=(stat($file[$c]))[9];
($x,$min,$hour,$mday,$mon,$x,$x,$x)=localtime($access);
$date = sprintf("%02d/%02d %02d:%02d",$mon+1,$mday,$hour,$min);
$sort="$date $name[$c]<BR>\n";
push(@new,$sort);
}
@new = sort { (split(/<>/,$b))[6] cmp (split(/<>/,$a))[6] } @new;
print @new;
0874nobodyさん
02/08/06 14:52ID:???の部分は
$sort= "$date<>$name[$c]<><BR>\n";
でした
0877nobodyさん
02/08/06 16:14ID:32Vwa5NBmy %file2mtime;
@file2mtime{@file} = map{ (stat($_))[9] } @file;
foreach my $file (sort{ $file2mtime{$a} <=> $file2mtime{$b} } @files) {
print $file, "\n";
}
0878nobodyさん
02/08/06 18:57ID:+CLAZ6EKcgiからの出力を、ブラウザの戻るボタン押下時に意図的にリ
ロードさせたいだけなんですが。。。
<%
Response.AddHeader "Expires", "0"
If Request.ServerVariables("SERVER_PROTOCOL") = "HTTP/1.0" Then
Response.AddHeader "Pragma","no-cache"
Response.CacheControl = "no-cache"
Else
Response.CacheControl = "no-cache"
End If
%>
とか
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Expires" content="-1">
とか
試したんですが無理でした。
誰かよろしくお願いしますっ！
0880nobodyさん
02/08/06 19:29ID:???ttp://pc.2ch.net/test/read.cgi/php/1025930486/444
マルチポスト氏ね
0881878
02/08/06 19:36ID:+CLAZ6EKPerl cgiです。。
formにオブジェクトを埋め込めないため、ノーキャッシュ
で制御しようとしてるんですが、IEではうまく動かないん
で、どなたか経験者がいらっしゃたらなぁと。
>>880
答えれねぇんなら出てくん名ぼけが
0882nobodyさん
02/08/06 19:41ID:???向こうのスレでレス返してやってるのは俺なんだがな。
マルチポスト氏ね。
0883878
02/08/06 19:49ID:+CLAZ6EKおおそうか。ならあのページにかかれてある事が
上のソースでやってる事もわかってて書いたんだろうな。
まったく、大変有意義なレスだよな。
ぷ。
0884nobodyさん
02/08/06 19:55ID:???おまえブラウザて何処で動いてるか知ってる（ﾌﾟﾌﾟp
何か思いっきりスレ違いだし、
カタワって可哀相だねｐｐｐ
0885nobodyさん
02/08/06 19:57ID:???マルチポストするようなヤツぁ何をやっても駄目。
0886878
02/08/06 20:03ID:+CLAZ6EKクライアントにきまってんだろがぼけ。
クライアントで動くソース投げ店のがサーバのPerl cgiなんだよ。
あっそうか、Perlつかってcgi作った事のない人だったんだ。
ごめんねぇ。。unixとPerlという閉ざされた世界しか知らないんだ。
かわいそうにねぇ・・・・・・。
あ〜〜、いいこいいこ(* T-)ヾ(￣▽￣;) ヨシヨシ ｗ
0887nobodyさん
02/08/06 20:06ID:???> クライアントで動くソース投げ店のがサーバのPerl cgiなんだよ。
お前がやってるのは VBScript ASPだろ
なんでPerlのスレに書くんだよ。
顔真っ赤にして捨て台詞書くなよ、みっともない・・・
0888878
02/08/06 20:17ID:+CLAZ6EKしかしサンプルで書くときはどんな言語でも書くだろうに・・・。
近くにあるライブラリからもってくるんだからさぁ。
まぁ俺がPerlで書かなかったのが悪かったな。
わりぃわりぃ。
Perlしかしらねぇんだもんな。
0889nobodyさん
02/08/06 20:20ID:???0890マジレス
02/08/06 20:23ID:???つーかサンプルも糞もあるかよ、ここはPerlスレだ。
あとCGIとASPの違いが分からんアホも逝ってよし。
0891nobodyさん
02/08/06 20:26ID:???／ ＼ ＿＿＿＿＿＿＿＿
/ ∧ ∧ ＼ ／
| ・ ・ | ＜ 氏ねよおめーら
| ）●（ | ＼＿＿＿＿＿＿＿＿
＼ ー ﾉ
＼＿＿＿_／
0892nobodyさん
02/08/06 20:26ID:???／ ＼ ＿＿＿＿＿＿＿＿
/ ∧ ∧ ＼ ／
| ・ ・ | ＜ おう、呼んだか？>>889
| ）●（ | ＼＿＿＿＿＿＿＿＿
＼ ー ﾉ
＼＿＿＿_／
0893878
02/08/06 20:31ID:+CLAZ6EKsub printhtml{
my($htmlbody,$mime)=@_;
my $nc="\n"
.'<meta http-equiv="Pragma" content="No-Cache">'
.'<meta http-equiv="Cache-Control" content="No-Cache">'
.'<meta http-equiv="Expires" content="Monday, March 01, 1999 00:00:00 AM GMT">';
&Jcode::convert(\$htmlbody,'sjis');
&Jcode::convert(\$::debug,'sjis');
if($::isnocache){
print $cgiutil::httpheader_nc;
$htmlbody=~s/\<head\>/<head>$nc/;
}else{
print $cgiutil::httpheader;
};
print $htmlbody;
if($::isdebug){print "<h4>DEBUG START</h4>\n".$::debug;};
1;
};
ってやってるんだが、ＩＥのcashに残る。
でもこれはPerlの文法とかじゃねぇから、わっかんねぇな。
スレ違いｽﾏｿ
0894nobodyさん
02/08/06 20:31ID:+On492A+0895nobodyさん
02/08/06 20:52ID:???cgiutilパッケージの中身は分からんは $htmlbodyの中身は分からんは、、、
とりあえずDOSプロンプトかShellで試して出力結果のヘッダに
Pragma: no-cache
Cache-Control: no-cache
<head>〜</head>に
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="co-cache">
が含まれてるか見てみれ
>>894
http://search.cpan.org/
0896878
02/08/06 21:29ID:+CLAZ6EK色々ｽﾏｿ。
HTTPリクエストにもhtmlにも含まれてます。
で、理由としては隠し属性項目でイベントを保存していたため、
戻るで戻ってこられるとイベントが初期値ではなくなっていたためなんですよ。
で、リロードをかけさせるために有効期限とキャッシュレスにしようとしてい
たんですがうまくいかなかったもので。。
java-scriptでリロード時に強引に書き換えるようにして対応しました。
本来リロード時のイベントが、ボタン押下時のイベントを知っているわけ
ないんですが、これしかうかびませんですた。
スレ違いにもかかわらず、申し訳ありませんでした。
それはＺＩＰ圧縮？
0898Piano
02/08/06 23:37ID:???降順で表示させようと
reverse sort (@count);
で実行すると、
9
9
8
7
4
2
16
・・と、なぜか16が最後に来てしまいます。
どなたか分かる方いらっしゃいませんか？
0899nobodyさん
02/08/06 23:41ID:Fh8h+3RQreverse sort {$a <=> $b} @count
で、どうでしょ。チェックしてないけど。
0903899
02/08/06 23:51ID:Fh8h+3RQ0904
02/08/07 00:24ID:ulRsWHQgはないでしょうか？
御存じの方、教えてください。お願いします。
0905nobodyさん
02/08/07 00:36ID:nEZxoP/q0906nobodyさん
02/08/07 06:28ID:4Lzws0bXダウンロードする
属性をCGIを755 LOGを666に変更する
HTMLページに<!--#exec cmd="○○/lacerta/lacerta.cgi"-->
と、埋め込んで
CGIと同じディレクトリにアップする
この設置の仕方は間違ってるのでしょうか？
アップしたHTMLページを開いても何も表示されません・・・。
どなたか、教えていただけませんでしょうか？
ttp://www.kz-island.net/cgi/lacerta.htm
0907nobodyさん
02/08/07 07:12ID:???0908907
02/08/07 07:15ID:???「SSI が有効な設定になっていて
拡張子が shtml になっているのか？」
と言いたかったんだ。
0909nobodyさん
02/08/07 07:54ID:???0910nobodyさん
02/08/07 09:02ID:fr9q9q5sxmlをhtmlに変換する事はできますか？
xmlとxslだけではIEでしか表示できないので普通に手作業で、
msxsl.exeを使ってhtmlへ変換していましたが
今回はcgiでxmlを生成してそこからhtmlへ変換することになったのです。
なのでmsxsl.exeの役割をcgiの中でも出来るのかどうかというわけなのです。
0912nobodyさん
02/08/07 10:56ID:7jIJ9A+d送信するものがファイルのみならうまくいくのですが、
一行コメント等もいっしょに送るにはどうすればいいでしょうか？
というのも、
binmode(STDIN);
とやって標準入力をバイナリモードにしちゃうやりかたしかわからないので
テキストは受信してもめちゃめちゃなんですよ。
0913nobodyさん
02/08/07 11:26ID:???ただ\nとかいう表現方法はお勧めできない。
0914nobodyさん
02/08/07 12:02ID:biTmKPZ6わけじゃないよね。
0915nobodyさん
02/08/07 12:05ID:???テキストファイルをアップロードしたら、まんま送られるだろ。どうめちゃめちゃなの？
>>914
アップロード時に日本語がエンコード？？？
0924920
02/08/07 16:50ID:???それでも>>921の見解は間違いなことにはかわりない。
とりあえず日本語をHTTPでやり取りするときには(ブラウザ側で
自動的に)URLエンコードされるのは当然なんだが、それは知って
いるのかな?
0927921
02/08/07 17:44ID:rbDAoZ/oenctypeがapplication/x-www-form-urlencoded（デフォルト）なら日本語はURLエンコードされる。
しかしアップローダということなので恐らくenctypeはmultipart/form-dataと思われる。
multipart/form-dataではURLエンコードはされない。
以上
0928nobodyさん
02/08/07 18:06ID:???漏れもファイルのほうはそう思うが、
送られてくるテキストの方が掲示板のデータように送られてくるのだとしたら、
URLエンコードされてしまうと思う。
つーか、>>912現れてどうめちゃくちゃなのか言え！
0929921
02/08/07 18:23ID:IJRoW2QJ<input type="text" name="hoge" value="日本語">
<input type="submit">
</form>
これでエンコードはされない
だけどboundaryとかが入るのでnameとvalueの受け取りが面倒。
0930nobodyさん
02/08/07 18:38ID:sSYiyIo60931nobodyさん
02/08/07 18:41ID:mhNc4G4w0932921
02/08/07 18:43ID:2dLUgCtT正解でし（UTF-8）
0934nobodyさん
02/08/07 20:42ID:???これは？
%82%A4%82%F1%82%B1
0936nobodyさん
02/08/07 21:19ID:???0937nobodyさん
02/08/07 21:21ID:???0939 nobodyさん
02/08/07 21:30ID:???perldoc -q comments
で、C Styleのコメントを取り除くscriptを解説してくれている。
それを参考にしる。
0940nobodyさん
02/08/07 23:13ID:???$val =~ s/"/"/g;
$val =~ s/</</g;
$val =~ s/>/>/g;
$val =~ s/\0//g;
このような処理はデコードとはいいませんよね？
なんて言うんでしょうか？
0941nobodyさん
02/08/07 23:15ID:???0942nobodyさん
02/08/07 23:20ID:???もしコメントとして書く場合はどれが適当でしょうか？
■［置換］のEXCEED和英辞典からの検索結果
ちかん
置換
substitution； replacement； 《数学》 a permutation． 〜する substitute； replace； 《数学》 permutate．
0943nobodyさん
02/08/07 23:32ID:???esuke-pu;
↑ これが伝説のPGにだけ許される最高の称号
0944nobodyさん
02/08/08 00:00ID:???ぜんぜんPerlの話じゃないやん。
CGIすれに統合！でめでたしめでたし終わり。
0945nobodyさん
02/08/08 00:19ID:???http://pc.2ch.net/test/read.cgi/php/1025930486/462-
0946nobodyさん
02/08/08 00:22ID:???モジュールはちと面倒くさいけど、普通のスクリプトからコメントを
取るなら多分 perl -MO=Deparseが一番簡単だと思う。B::Deparseなら
q#foobar# とかの"#"に惑わされる事はないし。
0948nobodyさん
02/08/08 00:31ID:???0949nobodyさん
02/08/08 00:32ID:zM69Q9o6アイウエオという文字列があったときに
ア イ ウ エ オ
文字ごとに空白を
ってあける方法ってありますか？
あるとしたらどうやるのでしょうか？
簡単にできそうで２バイト文字の扱いがよくわかりませんでした・・・
0950nobodyさん
02/08/08 00:41ID:???ttp://www.din.or.jp/~ohzaki/perl.htm#JP_Split
ここ参照。
0951９４７
02/08/08 01:25ID:???#!/usr/bin/perl
my @files= ('/path/file.pl');
for my $file ( @files ){
open(R, $file) || next;
open(W, ">$file.txt") || next;
while (<R>){
last if /^__(?:END|DATA)__$/;
next if /^[\s;]*$/ || (/^[\s;]*#/ && $.!=1);
1 while s/^(.*[\w"'\)\]\}\s];|.*\)\s*\{)\s*#.*/$1/;
s/;[;\s]+\n$/;\n/;
print W unless (!/^=cut/ && /^=\w+/) .. /^=cut/;
}
close(R); close(W);
}
0952nobodyさん
02/08/08 01:34ID:htQeibpH正規表現じゃなくて良いなら。応用は自分で考えて。
$hoge = index($value,'アイウエオ');
if($hoge > -1){
for($count = 0; $count < 4; $count++){
substr($value,$hoge+2,0) = ' ';
$hoge += 3;
}
}
レス数が950を超えています。1000を超えると書き込みができなくなります。