CGI Perl総合 (461ﾚｽ)
上下前次1-新

---

1(17): 名無しさん 2001/03/16(金)00:12 AAS
ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ　(ｵﾌﾟ

---

2(3): 名無しさん [sage ] 2001/03/16(金)00:42 AAS
#どこがイタイのでしょうか？

open(OUT,"|$mailer $address") || die "送信できませんでした\n";

$cgi = new CGI;
:
die if($cgi->param("realname") eq "");

$Etitle = $form{'titlename'};
$Ename = $form{'realname'};
省16

---

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;
省28

---

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'
省24

---

5(1): 名無しさん 2001/03/16(金)01:08 AAS
>>4
何がしたいのかさっぱりわからん。
これで良いのか？

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

$xx = "c";
省9

---

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

---

あと 456 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.015s