resepnya manjur Pak, tapi jalan kalo "$ ./filter.pl data|./bisa.pl",
tidak jalan untuk "$ ./script-semua.pl data"
isi filter.pl :
foreach <> {
if (/^(nama|alamat|hobi|status)/) { print; }
}
bisa.pl adalah script dari pak Edwin di bawah.
isi ./script-semua.pl itu :
o filter.pl ( dengan output yang disimpan di @array ) digabung dengan
o bisa.pl ( dengan input yang diambil dari @array )
nggak jalannya adalah : semua tanda "|" ngumpul dibelakang record.
kalo menurutku sih $/ perlu "direset" ulang ke suatu nilai tiap luping (nggak tahu di
mana dan dengan apa. )
makasih lagi.
On Tue, May 02, 2000 at 10:46:54PM +0700, Edwin Pratomo wrote:
>
> $/ = "nick ";
> while (<>) {
> chomp; next unless $_;
> @a = $_ =~
> m#(.*)\nnama (.*?)\n(?:alamat (.*?)\n)?(?:hobi (.*)\n)?(?:status
> (.*))?#s;
> $a[3] =~ s/hobi/,/g;
> for (@a) { s/\n//g }
> print join('|', @a), "\n";
> }
--
Belum ada signature.
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
