【Perl】初心者コーナー Part17
レス数が950を超えています。1000を超えると書き込みができなくなります。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 8
http://pc.2ch.net/test/read.cgi/php/1032704121/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0856nobodyさん
02/11/16 19:38ID:???君の脳に問題がある。＜理由
もしくは君の言語能力に問題が。
0857854
02/11/16 19:41ID:y1C/hDJGかえたらオッケーだったんですけど、変数とかパスの中に使うとダメなんすか？
ﾁｮー初心者ですいませんがお願いします。
0859nobodyさん
02/11/16 20:18ID:meodONVA「書き込む」をクリックすると
CGIWrap Error: Execution of this script not permitted
Execution of (diaryh/diaryh.cgi) is not permitted for the following reason:
Script is not executable. Issue 'chmod 755 filename'
というエラー表示がでてしまいます。
エースにはサポート掲示板がないので、大変困っています。
お手数ですが、どうぞよろしくお願いします。
0861nobodyさん
02/11/16 20:44ID:IpoPd8nuやっぱりお金をはらってレンタルサーバーかりないと練習にならない
のでしょうか？
0862nobodyさん
02/11/16 20:56ID:???0863nobodyさん
02/11/16 21:01ID:???勉強するならまずローカル環境を用意しる！
ActivePerlとApacheをインスコすればオフラインでCGIテストできて(ﾟдﾟ)ｳﾏｰ
レンタルサーバーで練習するのは他のユーザーの迷惑になるので止めよう。
0864nobodyさん
02/11/16 21:53ID:???それともずっとエラーメッセージをこのスレにコピペするの？
0865デフォルトの名無しさん
02/11/16 22:30ID:???0866nobodyさん
02/11/16 22:36ID:li3X+/+9たとえば $file の中身が userid.dat という文字列で
ここから userid を得たいので
$file =~ s/\.dat$//;
とかやれば、userid を得られると思うが、元の文字列をファイル名としても使いたいので
いつも
$file =~ s/\.dat$//;
$id = $file;
$file .= ".dat";
とやったり
$file =~ /(.*)(\.dat$)/;
$id = $1;
のようにしていますが、これを１行で書きたい。
0868nobodyさん
02/11/16 22:52ID:li3X+/+9うぉぉォォ、、鬱くしい。
さんくす。
0869nobodyさん
02/11/17 00:04ID:rKD6R3WV教えて下さい。あと、素材があったら貼っといて下さい。
0872rubyist@カラアゲうまうま
02/11/17 01:11ID:???それがPerlスレ
0875nobodyさん
02/11/17 01:41ID:???あほだね〜♪ あほだねえ〜♪ Perl厨がPHP本買ってる〜♪。
0876843
02/11/17 01:46ID:???相談に乗って頂き、ありがとうございます。
確認ということですが、$hogeを生成する方のスクリプトは以前動作確認済みだった為、
以下のような今回追加したい部分だけを抽出した
テスト用のスクリプトを作成し、生成される$hogeには
適当な数値をあらかじめ代入してテストしていたのです。
&decode;
$hoge="001";
$cou=$form{"$hoge"};
print "Content-type: text/html\n\n";
print "<html><head>";
print "<META HTTP-EQUIV=Content-type CONTENT=text/html; charset=euc-jp>";
print "<title>test</title>";
print "<body>";
for($i=0; $i<$cou+1; $i++){print "$hoge";}
print "<form action=sample.cgi method=post>";
print "<input type=text size=4 name=$hoge><input type=submit value=送信>";
print "</form></body></html>";
sub decode{省略}
これを実行した結果、name=001の属性を持つ
テキストボックスを表示するところまでは上手く行きましたが、
送信ボタンを押した後に入力した数の分だけ表示される筈の『001』が表示されないのです。
そもそも、値を最初から代入してテストするという思考自体が間違っていたのでしょうか。
（849さんのご指摘の『勘違い』が正しいのかも・・・）
至らない初心者で本当に申し訳ありませんが、
何とぞもう少しご教授いただけませんか。よろしくお願いします。
0877nobodyさん
02/11/17 02:09ID:???0879nobodyさん
02/11/17 04:24ID:???まさか君Perlを ｗｅｂで使うことしか考えてないのか？
ちょっとしたＳｙｓｔｅｍ管理みたいなことやらせるのに
ＰＨＰとかは向いてないでしょ （ｗ
0880nobodyさん
02/11/17 04:34ID:???Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Perl
0881nobodyさん
02/11/17 05:35ID:???0882nobodyさん
02/11/17 08:12ID:???PerlEditorとかなんか挙動不審なんですけど…
(･∀･)ｲｲ!エディタに乗り換えたいよ…
0883nobodyさん
02/11/17 12:27ID:???追いつめられた羊のような事を書かないで欲しいです。
PerlはWEB使うことが主流です。
そんな使い方をする人なんて極々わずかです。いや今は他の言語を使います。
あなたはWEBはPHPを使ってるんですか？Perlでしょ？
だったらもっとPerlを応援してください。
Perl最高！ Perl最高！ Perl最高！
0886nobodyさん
02/11/17 14:00ID:???0887nobodyさん
02/11/17 16:44ID:eZnGzPxh0888nobodyさん
02/11/17 16:48ID:???自分周辺の狭い世界だけで語るなボケ
0889nobodyさん
02/11/17 16:51ID:???0891887
02/11/17 16:55ID:eZnGzPxhwhile (<DATA>){
if (/set|SET/){
print "$line : $_<br>";}
$line++;
}
0892nobodyさん
02/11/17 17:12ID:???while (<DATA>){
if (/set|SET/){
print "$line : $_<br>";}
$line++;
print;
}
0893887
02/11/17 17:12ID:eZnGzPxhさっきのHTMLの中に埋め込むタグは<SET1></SET1>と対にさせて、その中身を取り出すってかんじです
0894nobodyさん
02/11/17 17:26ID:???＞中身を取り出す
いったいどっちがやりたいの？
0895887
02/11/17 17:36ID:eZnGzPxhｽﾏｿ
まず、HTML内の<SET1>この文字を取り込む</SET1>から対象文字「この文字を取り込む」をを読み込む。
その後、「この文字を読み込む」を消し、別の文字列を代入
こんなかんじです。どうぞおながいします
0896nobodyさん
02/11/17 21:00ID:JxVm/eIS文字列の最後に改行コードが入ってる為か抜けられません。
chopで改行コードを取り除かずにEOF(改行)のまま認識させるためにはどうしたら良いでしょうか？
0897nobodyさん
02/11/17 22:33ID:???頭に書いてあるではないか。
print Jcode->new($str)->h2z->tr($from, $to)->utf8;
これが理解できないのなら、おそらく一般的なモジュールの使い方が理解できていない
ので、少し戻ることをお勧めする。
また、英語のマニュアルが読めないと、プログラミングにいちじるしい支障をきたすこ
とが多いので、あなたが職業プログラマなら即刻退職を、趣味のプログラマなら英語の
マニュアルに慣れることを勧告する。
>>895
HTML::Templateを使ってみることをお勧めする。
>>896
@hoge = ();
$i = 0;
while ($hoge[$i] = <STDIN>) {
print "$hoge[$i]", "\n";
$i++;
}
と書いてみたらC-dで抜けられたが、どういうコードを想定しているのか教えて欲しい。
それから、改行を削るのは通常chompで行なう。chopは削った残りを返り値として欲しい
場合などに使う。
0899test ◆wSaCDPDEl2
02/11/17 23:08ID:???挫折。
わかる方宜しくおねがいします
0900nobodyさん
02/11/17 23:11ID:???HTMLでは、独自に定義したタグを使うことはできない。
そのため、「完成品」からは、独自タグが消えていなければならない。
HTML::Templateでは、独自タグを残せないので>>895の用件を満たせないと指摘したい
のだと思われるが、もしそうなら用件がおかしい。
しかしながら、>>887を見ると独自タグ自体に意味はないものと考えられるため、上の
ような回答を行った。
0901nobodyさん
02/11/17 23:16ID:???どんな風に挑戦したかソース出してみ。
俺は意地悪だからアドバイスをする気はあっても、答えをそのまま載せる気はなくてね。
0902nobodyさん
02/11/17 23:16ID:???とりあえずこちらのスレへどうぞ
【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
0905896
02/11/18 00:12ID:JyAtIJIy現在、Perlでキーボードから一行ずつ文字列を入力し、
その文字列を保存するスクリプトを組んでいるのですが、
文字列入力をするループから抜ける終了判定として文字列"EOF"が入力された時にしたいんです。
しかし、<STDIN>でキーボードから"EOF"と入力した場合、最後に改行コードが入ってしまって
while ($hoge[$i] ne "EOF")
だとEOF(改行)とEOFが一致しないんです。
改行コードを取り除けば可能ですが、それだと保存した際に一行になってしまいますよね？(多分
何か良い方法はありますでしょうか？？
0907896
02/11/18 00:34ID:JyAtIJIyそのやりかたがわからないんです･･･
0908nobodyさん
02/11/18 00:37ID:Lol6CcQnPHP研究所？
0911rubyist@カラアゲうまうま
02/11/18 00:47ID:???0912nobodyさん
02/11/18 00:57ID:???print OUT substr(scalar(<STDIN>), 0, -1);
close(OUT);
0913896
02/11/18 01:12ID:JyAtIJIyぐぁ！？出来ました。ループ抜けられました。感動。
これは^以降から$の間の文字が一致すれば終了って意味かな。正規表現？
力不足でどのような処理か理解出来てませんけど、ありがとうございました。
>>910
キーボードから文字列EOFが入力されたときに、
EOFの後ろについてしまう改行コードを取り除くことなくEOFと比較したかったんです。
>>911
改行コードを取り除い、更に後からまた付け足すんですか？
まぁその方法もまだわからないんですが・・・。
0914nobodyさん
02/11/18 14:52ID:???でも、例えば格納データとかが多いとどうしても
配列を多く使わないといけない場合とかありますよね。
配列が多すぎて動かないとかいう事あるんですか？
0916nobodyさん
02/11/18 14:57ID:???「ただし、試すならローカルで」も付け加えといてね。
0917てすとさん
02/11/18 15:22ID:I0IdwfDh肝心のCGIで$FORM{'child'}を取り出そうとしても中身が空っぽになってしまいます。
どうしてでしょうか？
サーバーエラーが出るわけでもなく、フォームの中身が全て空なこと以外は正常動作します。
また、method="post"を削るとちゃんとデータが送信されていることがURLに出てきます。
フォームに書き込んだ情報をCGIで表示するだけなのに、てこずってしまっています…。
0918nobodyさん
02/11/18 15:37ID:???0919てすとさん
02/11/18 15:57ID:I0IdwfDhデコード忘れてた、鬱氏。
４時間くらいそれで詰まってた、マジで死にたい…
0921nobodyさん
02/11/18 19:09ID:19d2puZrログ保存部分までは出来たのですが
週別に新規ファイルを作成して保存うまくいきません
具体的には 月〜日曜 を一週間として
翌週には新しいログファイルを作成するというのを考えてます
しかし
・新しい週になったかどうか
という判定がうまくいきません
何か良い方法は無いでしょうか？
0922nobodyさん
02/11/18 19:25ID:???0923nobodyさん
02/11/18 19:41ID:19d2puZr翌週の月曜日まで新規ファイルにならないのです･･･
0924nobodyさん
02/11/18 19:45ID:ODy6L3pp0925nobodyさん
02/11/18 20:03ID:???毎起動ごとにログの保存チェックをしろ。
0926nobodyさん
02/11/18 20:54ID:19d2puZrそのアルゴリズムがうまくいかなくて悩んでます
0928rubyist@カラアゲうまうま
02/11/18 21:24ID:???0929nobodyさん
02/11/18 22:48ID:???http://pc.2ch.net/test/read.cgi/unix/1000303370/697
を書き込んだものです。
急いで、数を数える必要があるので、こっちでも聞きます。
awkで書こうと思ったのですが、perlでもできそうなので、
質問しますた。
スクリプト書いてくだされば、助かります。我がまますみません。
0930nobodyさん
02/11/18 22:55ID:???if文とかで、返り値を否定したい時はどうすればよいのでしょうか？
if(!(-d "存在するディレクトリ")){〜〜〜} とか
if(-d !"存在するディレクトリ"){〜〜〜} とかやってみたのですがダメでした
今現在、
unless(略){
if(略){〜〜}
}
ってカンジで書いてるのですが、なんとか一回ですませたいので…
if(!略 and 略){ ←みたくしたいのです…
どうか御教授ください
0931nobodyさん
02/11/18 23:04ID:???if (!(-d "存在するディレクトリ") and 略) {
!(-d "存在するディレクトリ") もしくは not -d "存在するディレクトリ" で「存在しない」になるはずだけど。
0932nobodyさん
02/11/18 23:09ID:???0933デフォルトの名無しさん
02/11/18 23:10ID:???＞if(!(-d "存在するディレクトリ")){〜〜〜}
＞if(-d !"存在するディレクトリ"){〜〜〜}
両方ＯＫよ。
＞unless(略){
＞ if(略){〜〜}
＞}
略の部分が同じなら常に真。
＞if(!略 and 略){
これもそう。
0934デフォルトの名無しさん
02/11/18 23:11ID:???0936843
02/11/18 23:31ID:???ありがとうございます。
まだこちらでは依然として動いてくれないのですが、
考え方自体は間違っていないのですね。
$i=1のところを$i=0にしてしまったようなケアレスミスが
こちらに残っているのだと思います。
もう少し自分で頑張ってみて、どうしてもできないようでしたら
また相談させていただきます。本当にありがとうございました。
0937935
02/11/18 23:37ID:???さらに「自然観察会」ってのも数えたいので、スクリプトの登場まってます！！
0939nobodyさん
02/11/18 23:41ID:???0941929
02/11/18 23:59ID:???スクリプトの登場まってます！！
0942930
02/11/19 00:02ID:???あれれー(;;´Д｀) とりあえずnotが見た目わかりやすいし、それでできたのでそれで行きます
ありがとうございますた
>>932
自分で最初やってみた時はだめだったんですよぅ
>>933
もっかい実験してみたところif(!(〜略の方はおっけだったみたいです
-d !"存在する(略"はやっぱりだめぽでした
if(!"もうだめぽ" eq ""){print "ほんとにだめじゃん";}
とかやってみると"ほんとにだめじゃん"と出力されたり…
なんで空文字列？
ちなみに略部分は同じではないです、ありがとうございました
>>939
現れないに一票
0943929
02/11/19 00:04ID:???hyogo,ibaraki,ishikawa,iwate,kagawa,kagoshima,kanagawa,kouchi,kumamoto,kyoto,
mie,miyagi,miyazaki,nagano,nagasaki,nara,niigata,okayama,okinawa,osaka,saga,saitama,
shiga,shimane,shizuoka,tochigi,tokushima,tokyo,tottori,toyama,wakayama,yamagata,
yamaguchi,yamanashi
全国都道府県を落とす時のwget式で利用してください。
0944929
02/11/19 00:07ID:???0945nobodyさん
02/11/19 00:12ID:???0946nobodyさん
02/11/19 00:24ID:???ＣＳＶデータに , がふくまれてなさそうなので簡易に以下のようなものでできるんじゃ？
$key= 'ビオトープ';
open(IN, "hokkaido.csv");
while (<IN>){
$n= $1=~ tr/,// if !$n && /^(.*)[^,]*\Q$key\E/o;
print if /^(?:[^,]*,){$n}●/;
}
close(IN);
0947nobodyさん
02/11/19 00:33ID:???perl -i.bak -pe 's/(\n|<br>)//sgi'でもやっておいた方がよさげ。
少なくとも、北海道のを見る限り。
それからは、高知以外のCSVくっつけて、
perl -F, -nae '$a++if$F[4]eq q|●|;END{print$a}'
てな感じでどうかな。
4は自然観察会、9がビオトープ。
その後、高知の数字を数えて足す。
泥臭いけどね。
0948947
02/11/19 00:34ID:???↑これをやったあとでCSVにするってこと
0949947
02/11/19 01:08ID:???var fs = new ActiveXObject("Scripting.FileSystemObject");
var xl = new ActiveXObject("Excel.Application");
xl.DisplayAlerts = false;
for (var i = 0; i < array.length; ++i) {
var filename = fs.GetAbsolutePathName(array[i]+".html");
var savefile = fs.GetAbsolutePathName(array[i]+".csv");
var wbook = xl.Workbooks.Open(filename);
wbook.SaveAs(savefile, 6);
wbook.Close();
}
xl.Quit();
こうやってもCSV変換はできるな。（Excel2000）
つーか自分が勉強になった。
0950nobodyさん
02/11/19 01:30ID:???>if(-d !"存在するディレクトリ"){〜〜〜}
これがOK? マジで?
>>942
>if(!"もうだめぽ" eq ""){print "ほんとにだめじゃん";}
>とかやってみると"ほんとにだめじゃん"と出力されたり…
!"もうだめぽ" … 偽
"" … 空文字列は偽
なので全然不思議じゃない。
0951930
02/11/19 01:36ID:???えと、なんか分かるような分からないようななんですけど、
eqとかって真偽を比較するのですか？ 文字列を比較した結果、値を返すものだと思ってたのですが…
0952nobodyさん
02/11/19 02:21ID:???0953nobodyさん
02/11/19 04:52ID:???unless("もうだめぽ" eq ""){print "ほんとにだめじゃん";}
レス数が950を超えています。1000を超えると書き込みができなくなります。