Mas..
saya kasih contoh kasarnya aja ya...pakai perl, tapi maaf belum sempat
saya coba dan mungkin ada salah-salah sedikit terutama dengan
sintaksnya.
semoga bisa membantu
#!/usr/bin/perl
opendir(ISIDIR,"test");
while ($namafile=readdir(ISIDIR)) {
if ($namafile ne "." && $namafile ne "..") {
# buka file satu persatu for input
open(INPUTFILE,"< $namafile") || die ("file $namafile
tidak bisa dibuka...\n");
# buka file temporary sebagai output dengan nama bebas
open(OUTPUTFILE,"> $namafile\.tmp") || die ("file
$namafile\.tmp tidak bisa dibuka...\n");
while (<INPUTFILE>) {
#baca baris perbaris dari file input
#dan bila ada kata yang dicari segera ganti
dengan yang diinginkan, bisa menggunakan regex.
#tulis ke temporary file
}
#tutup temporary file
close(OUTPUTFILE);
#tutup input file
close(INPUTFILE);
#hapus input file
unlink($namafile);
#rename temporary file ke nama file sebenarnya
rename("$namafile\.bak","$namafile");
}
}
closedir(ISIDIR);
>>halo,
>>server saya pake linux,
>>gimana yah cara bikin program (perl mungkin?) untuk mengganti isi file
>>secara recursif ?
>>
>>misalnya ada direktori "test" dan didalamnya terdapat banyak file
>>Saya mau mau mengganti semua isi file dengan kata "GANTI" jika
>>menemukan file yang berisi kata "LAMA"
>>
>>tolongin yah, soalnya banyak banget file.html yang harus dirubah
>>title-nya.
>>
>>Terimakasih sebelumnya
>>
>>--henry
>>
Ikutilah lomba banner flash berhadiah :
http://www.master.web.id/kreasi-banner-berhadiah.htm
-------[ Master Web Indonesia - www.master.web.id ] -------
Moderator : [EMAIL PROTECTED]
Berlangganan : [EMAIL PROTECTED]
Stop Berlangganan : [EMAIL PROTECTED]
-----------------------------------------------------------
