CGI Perl総合 (461ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

3(2): none [sage ] 2001/03/16(金)00:44 AAS
あってますか？#!/usr/local/bin/perl

$cnt_file = 'cnt.dat';

open(fp,"$cnt_file");
$cnt = <fp>;
close(fp);
++$cnt;
$len = length $cnt;
if ($len < $n) {
$imgfile = "0";
} else {
$imgfile = substr($cnt, $len-$n, 1);
}
open(IN,"img/$imgfile.gif");
@lines = <IN>;
close(IN);
print "Content-type: image/gif\n\n";
print @lines;
if ($n == 1) {
open(fp,">$cnt_file.tmp");
print fp $cnt;
close(fp);
rename("$cnt_file.tmp", $cnt_file);
}
sub frmdec
{
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
省4

---

4(2): obj [sage ] 2001/03/16(金)00:46 AAS
データファイルを読み込んで@LINESという配列に入れたとします。
配列の中身は

'23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9'
だったとして、$xxという変数にa〜dのいずれかの文字が入ります。

例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3'
の3を1増減、4にして

'23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9'
になった配列をデータファイルに上書き保存したいのですが
どのように組めばよいのでしょうか？

open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);

$i = "0";
foreach (@LINES){
($t1,$t2,$t3)=split(/<>/,$_);
if ($xx =~ /\Q$t2/) { last; }
$i++;
}
$t3++;
$all = $t1;
$all .= '<>';
$all .= $t2;
$all .= '<>';
$all .= $t3;
$all .= '\n';

$LINES[$i] = $all;

open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
print OUT (@LINES);
close (OUT);

こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。

---

11(9): 5-8 [sage ] 2001/03/16(金)18:20 AAS
おれは1じゃないよ。

>>8
すまん　×>>2 ○>>3

>>9
おれ、UGの人じゃないんで（爆）、それしらない。
JAVAアプレット連携させるのかなあ。
それとも 擬似サーバー立てといて、そのポートに
外部ﾘﾝｸ:www.server:niseport
とかでHTTPプロキシを外してアクセスさせるのかなあ。

>>10
つか1はどこに行った。。。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.017s