質問編集履歴
2
パーミッションの追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,5 +25,8 @@
|
|
|
25
25
|
```perlから出力した.txtファイルがftpでダウンロードしようとすると、
|
|
26
26
|
550エラーが出てダウンロードや開くことが出来ません。
|
|
27
27
|
ファイルを書き出したディレクトリのパーミッションは777になっております。
|
|
28
|
+
ファイルのパーミッションは644です。
|
|
29
|
+
cgiのディレクトリのパーミッションは755です。
|
|
30
|
+
|
|
28
31
|
対処方法をご教示いただければと存じます。
|
|
29
32
|
よろしくお願いいたします。
|
1
コードの追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,28 @@
|
|
|
1
|
+
```ここに言語を入力
|
|
2
|
+
sub stockData
|
|
3
|
+
{
|
|
4
|
+
open DATA,">$dataFile" or err("$dataFileが開けません。");
|
|
5
|
+
print DATA "$now\t";
|
|
6
|
+
print DATA "$receiptnumber\t";
|
|
7
|
+
print DATA "$name\t$fname\t$fax\t$tel\t$zip\t$addr\n";
|
|
8
|
+
close DATA;
|
|
9
|
+
return 1;
|
|
10
|
+
}
|
|
11
|
+
my $dataFile = "test/$receiptnumber";
|
|
12
|
+
sub receiptnumber{
|
|
13
|
+
open(FH, "+<./counterinfo.dat") or printErrorPage("ファイルが開けません。");
|
|
14
|
+
flock(FH, LOCEX);
|
|
15
|
+
$receiptnumber = <FH>;
|
|
16
|
+
$receiptnumber++;
|
|
17
|
+
seek(FH, 0, 0);
|
|
18
|
+
print FH "$receiptnumber.txt\n"; #ファイルに新しいカウント数を書き込む。
|
|
19
|
+
flock(FH, LOCNB);
|
|
20
|
+
close(FH);
|
|
21
|
+
}
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
1
|
-
perlから出力した.txtファイルがftpでダウンロードしようとすると、
|
|
25
|
+
```perlから出力した.txtファイルがftpでダウンロードしようとすると、
|
|
2
26
|
550エラーが出てダウンロードや開くことが出来ません。
|
|
3
27
|
ファイルを書き出したディレクトリのパーミッションは777になっております。
|
|
4
28
|
対処方法をご教示いただければと存じます。
|