ファイル読み込んで表示させてみる
iキーが本来のinsertキーだと初めて知った…。
ファイル読み込みはopen ハンドラ,ファイル名。読み込み失敗に備えて、||の後に今回はexitいれて、そのまま処理を終わらせることにした。さっき書いたtable1.plの改変で。
@Linesが読み込んだデータの管理で、foreachで各行を$_から読み込む。
#!/usr/bin/perl use strict; use warnings; print "Content-type: text/html\n\n"; open READ,"data.txt" || exit; my @Lines = <READ>; close READ; print "<table border=\"1px\">\n"; foreach(@Lines){ print "<tr><td>".$_."</td></tr>\n"; } print "</table>\n";
保存してから、データ用のテキスト書いてみる。
:save table2.pl
:open data.txt
iキーで挿入モードにして、
hatena
perl
table
test
escで抜けて、
:save data.txt
:quit
ブラウザで
できた。
