Assalamualaikum wr. wb.
ada script seperti di bawah, minta tolong di-sederhanakan terutama di
open-nya, seharusnya dijalankan hanya kalau perlu aja, nggak tiap kali loop
seperti sekarang.
terima kasih.
wassalam.
-----------------
#!/usr/bin/perl -w
while (<DATA>) {
chomp;
open(FH,">>$_");
print FH "Hello World\n";
}
__END__
file1
file2
file3
file2
file1
file1
file3
---------------------
--
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
