Agus Priyadi wrote:
Mau tanya, saya ingin merubah isi file lewat command shell. pernah saya baca cuma gak tau keywordnya apa buat pencarian.
kasus nya seperti ini, ada beberapa file yang isinya mengandung kata wanita, nah kata ini mau saya rubah menjadi perempuan, gimana caranya kalau lewat shell command, kalau di wordpad, notepad kan ada Replace. Rubah dari pico atau vi sih bisa, tapi kalau banyak file kan mesti buka satu per satu. help yach..
coba dengan ini (resiko tanggung sendiri... :) ) ****potong di sini************** #!/usr/bin/perl -w #
print "buka file...";
$phile="nama_file.txt";
open(FH, $phile) || die("Cannot open the file");
@fh=<FH>;
close(FH);print "ganti frase kata...";
foreach $elemen(@fh) {
chomp($elemen);
$elemen=~s/wanita/perempuan/g;
open(FH,">$phile");
print FH $elemen;
close(FH);
}print "selesai."; ****potong di sini**************
-- Unsubscribe: kirim email kosong ke [EMAIL PROTECTED] Arsip dan info di http://linux.or.id/milis.php FAQ milis http://linux.or.id/faq.php
