open(INF,"mydata.txt"); # opens mydata.txt for reading (baca)
open(OUTF,">outdata.txt"); # opens outdata.txt for overwriting (tulis
ulang semua)
open(OUTF,">>outdata.txt"); # opens outdata.txt for appending (tambah data)
variabel INF, OUTF, OUTF hanya penamaan saja, anda bisa ganti dengan nama
sembarang
Contoh dibawah ini program baca file text
--------------
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
print "<html><body>\n";
# baca file text dan disimpan isi file dalam variabel array namanya ary
open(INF,"survey.txt") or dienice("Can't open survey.txt: $!");
@ary = <INF>;
close(INF);
# menampilkan semua isi file text, variabel array ary dipecah perbaris
# disimpan ke variabel line lalu di print perbaris dari file txt
foreach $line (@ary) {
chomp($line);
print "$line\n";
}
print "</html></body>\n";
# prosedur error traping
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}
------------------------
BTW, ngapain pakai file txt. Dia accessnya sequential, jadi kalo
edit/delete salah satu baris, anda harus menulis ulang semua (overwriting).
Tapi kalau sekedar buat log NOP lah
saya tahu homepage tutorial perl, tapi sudah lupa, saya cari dulu tutorialnya
A.J
At 03:29 PM 4/20/00 +0700, you wrote:
>saya baru disini jadi permisi dulu dan salam kenal :
>
>saya mo nanya' cara membuat file text pake perl gimana
>ya mohon kalo ada sih dengan syntax-nya, biar mudah dipahami
>
>sekian aja pertanyaannya dan makasih sebelonnya.
>
>catur
>
>
>---------------------------------------------------------------------------
-----
>Utk berhenti langganan, kirim email ke
[EMAIL PROTECTED]
>Informasi arsip di http://www.linux.or.id/milis.php3
>Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
>
>
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
