|
| カレッヂ |
質問者 仲
投稿日 2005/3/15(火) 15:12:13
仲です。皆様こんにちわ。 題名の通りなのですがカンマで区切られたテキストファイルがあり、 その一行目の項目行に当るのですが、この文字を置き換える事って 可能でしょうか？ ＝テキストファイルの例＝ AAA,BBB,CCC,DDD 111,222,333,444 555,666,777,888 ＝＝＝＝＝＝＝＝＝＝＝＝ １行目の「AAA,BBB,CCC,DDD」を「阿,猪,兎,絵」といった形に置き換えて HTML表示させたいのです。しかも出来ればテーブルで。（＾−＾； こんな事って出来るのでしょうか？ よろしくお願いします。
【習熟度】多少の設置経験 |
回答者 miton
[削除]
投稿日 2005/3/23(水) 19:03:30
mitonといいます。
最初の質問は、
テキストファイルを読み込んでから、
目的となる行のデータを置き換えるとよいでしょう。
-------------------------------------------
use strict;
my $file = "data.txt";
# $fileを読み込みで開く
open(FILE, $file) or die "$file:$!";
# whileでファイルの中身を一行づつ読み取る
my @data;
while(<FILE>) {
push @data, $_;
}
# 一行目のデータを置き換える
$data[0] = "あ,い,う,え\n";
-------------------------------------------
HTMLを生成する方法はいくつかありますが、
以下はprint文を多数使用したものです。
-------------------------------------------
# HTML出力
print "<html><head></head>\n";
print "<body>\n";
print "<table>\n";
# テーブル出力
foreach (@data) {
chomp;
print " <tr>\n";
my @array = split(/,/, $_);
foreach (@array){
print " <td>$_</td>\n";
}
print " </tr>\n";
}
print "</table>\n";
print "</body>\n";
------------------------------------------- |
返信(回答)する
| Ｗｅｂ裏技 |