1001コメント346KB

【Perl】初心者コーナー Part16

■ このスレッドは過去ログ倉庫に格納されています

02/09/15 15:11ID:???

いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
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あたりを見よう。

00023PIO ◆3pIoOHKo

02/09/15 15:13ID:???

0003nobodyさん

02/09/15 15:31ID:???

乙

00043PIO ◆3pIoOHKo

02/09/15 15:34ID:???

>>3
うん。ちょっと疲れた

0005nobodyさん

02/09/15 15:46ID:???

\\\\\\\\\\
\ ^ ^ \
| -@ @ -|
| △ |／
| ／＼／
\ ○＜　新スレおめでとうございます
\ ＼
-----/　＼

0006nobodyさん

02/09/15 16:19ID:???

前スレ>>975
普通に\n教えてあげた方が早いんじゃ。。

0007nobodyさん

02/09/15 16:25ID:???

コテハンで継続スレ立てるなヴォケ

0008nobodyさん

02/09/15 17:25ID:???

>>7
削除依頼ﾖﾛ

0009nobodyさん

02/09/15 18:23ID:???

open(LOG,"+<$logfile");
flock(LOG,2);
@log=<LOG>;
@log = &format_log($maxlog,@log);
seek LOG,0,0;
print LOG @log;
truncate(LOG,tell);
close LOG;

みたいなのがあって意味はわかると思うんですが、
truncate(LOG,tell);
ってなくていいような気がするんですが、どうなんでしょう。
これが書いてある事でどんなメリットがあるのか教えてください。

0010nobodyさん

02/09/15 18:38ID:???

>>9
truncate関数の意味がわからないのか。
それなら、検索すれば三秒で解決すると思うんだが。

0011nobodyさん

02/09/15 18:42ID:???

>>10
だからファイルサイズを変更するなんて記述する事の意味を聞いているのですよ。

0012nobodyさん

02/09/15 18:46ID:???

>11
ファイルサイズが前より小さくなった時に意味をなす。

00139

02/09/15 18:51ID:???

>>12
らじゃ

スピードに影響があるらしいということで解決マーク。

0014nobodyさん

02/09/15 19:29ID:???

>>1
氏ねｶｽ

0015nobodyさん

02/09/15 20:01ID:???

コテハンで継続スレ立てるなヴォケ

0016nobodyさん

02/09/15 20:03ID:???

7 名前：nobodyさん投稿日：2002/09/15(日) 16:25 ID:???
コテハンで継続スレ立てるなヴォケ

8 名前：nobodyさん投稿日：2002/09/15(日) 17:25 ID:???
>>7
削除依頼ﾖﾛ

0017nobodyさん

02/09/15 20:04ID:???

↑馬鹿

0018nobodyさん

02/09/15 20:07ID:???

>>10
（ ´,_ゝ｀）

0019nobodyさん

02/09/15 20:19ID:???

コテハンで継続スレ建てるな。売名厨房か

0020nobodyさん

02/09/15 20:29ID:???

日付をフォーマットし直す場合、
$time = sprintf("%02.d",$time);
よくこうしろと言われてますが、
$time = "0$time" if ($time<10);
こちらの方が軽くてイイと思うのですが
どうでしょうか？

0021nobodyさん

02/09/15 20:40ID:PweXUHcd

sub abc{
foreach(@a){
push @line,"<small>$_</small>\n";
}
return @line;
}
とし、
@textpart=&abc();
とし、
print "<body>@textpart</body>";
のようにしたところ、
1行目は問題ないのですが2行目以降
必ず行頭に半角スペースが入ります。なんででしょう。
上記のプロセスは無関係でしょうか。

0022nobodyさん

02/09/15 20:49ID:???

>>21
配列はデフォールトでは空白によって区切られたリストです
だからそれを展開すると空白も出力されます
ただし、"..."に入れないで、表に出せば空白は入りません
print "<body>", @textpart, "</body>";

0023nobodyさん

02/09/15 20:49ID:???

>20
万が一、すでに$timeが02とかになっていた場合、002になってしまうからでは？
あまり大きくなく汎用性を気にしないならそれでもいいんじゃない？

0024nobodyさん

02/09/15 20:50ID:???

>21
配列の区切り詞が半角スペースになってるから。

0025nobodyさん

02/09/15 20:53ID:???

>>20
月、日、時間、分、秒のそれぞれに一桁か二桁かの判定(if文）を
入れるのが大変、というかそれによってsprintfより重くなってし
まうからではないでしょうか
一個だけなら、そんなに変わらないでしょうが

002621

02/09/15 21:00ID:???

>>22 >>24
レス感謝です。

>"..."に入れないで、表に出せば空白は入りません
試したら言われた通りになりました。
実際はヒアドキュメントの中に書いていたのでずっとわからずにいました。
ありがとうございました。

0027nobodyさん

02/09/15 21:06ID:WvlaRVTE

2chのスレッドをファイルに取得したいのですが普通に取得すると
HTTP/1.1 302 Found

が返ってきてうまく取得できないのです。
スレッド一覧はうまく取得できるのですが。

こんな感じで$input_fileにhtmlファイルを取得していますが
何かリクエストのコマンドに工夫が必要なのでしょうか？

socket(S, 2, 1, 0);
connect(S, $name);
select(S); $| = 1; select(stdout);
print S "GET $path HTTP/1.0\n";
print S "Host: $host\n";
print S "Connection: close\n\n";
$str=join("",(">",$input_file));
open(FOUT,$str);
while(<S>) {
print FOUT $_;
}
close(FOUT);

00283PIO ◆3pIoOHKo

02/09/15 21:32ID:???

unlink(">>19");

0029nobodyさん

02/09/15 21:35ID:???

>28
コテハンでスレ立てるのはともかく、そこで煽るなよ。

>27
LWPは使えないの？

0030nobodyさん

02/09/15 21:37ID:???

delete(">>19");
undef(">>19");
We thank you, Mr. 3PIO!

0031nobodyさん

02/09/15 22:45ID:???

>>28=>>30
マジ引いた

■ このスレッドは過去ログ倉庫に格納されています