文字コードも改行コードも変更できなくていいので、

解決済

質問者：noname#156265
質問日時：2010/07/24 15:04
回答数：1件

文字コードも改行コードも変更できなくていいので、

すでにサーバーにアップされているテキストファイルを、

ブラウザから編集できるCGIスクリプトを探しています。

削除機能等、余計な物ばかり付いている物しか見当たらないので、

パール言語に詳しい方は、ソースをおしえてください。

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： steel_gray
回答日時：2010/07/24 17:18

1行目のperlへのパスと編集ファイル、編集ファイルの文字コードの部分を編集、

このCGIも編集ファイルと同じ文字コードで保存する事。

#!/usr/local/bin/perl

$file = 'XXX.txt'; # 編集ファイル
$code = 'UFT-8'; # 編集ファイルの文字コード

read(STDIN, $buff, $ENV{'CONTENT_LENGTH'});
($name, $value) = split(/=/, $buff);
if($name eq 'str') {
open(FILE,"> $file") or die("$file open error");
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\r\n/\n/g;
$value =~ s/\r/\n/g;
print FILE $value;
close FILE;
} else {
open(FILE, $file) or die("$file open error");
read FILE,$value,-s $file;
close FILE;
}

print <<___HTML;
Content-type: text/html; charset=$code

<body>
<form method="post">
<p><textarea name="str" cols="128" rows="24">$value</textarea></p>
<p><input type="submit" value="更新" /></p>
</form>
</body>
___HTML