2008/4/21 dv0r4k <[EMAIL PROTECTED]>:
> Wah saya kira selama ini foreach () itu udah scalar karena muncul $_.
> Ternyata dia juga pake implicit array @_ tho...
> Saya sudah ganti jadi while (my $ln = ), dan sudah bisa jalan. Makasih
> banyak Mas Ronny & Mas Eko.
>
> Jadi "while ()" ini sepertiny
Don't thank me, thank Ronny. My solution didn't work :)
KOkon.
2008/4/20 dv0r4k <[EMAIL PROTECTED]>:
> Ronny Haryanto wrote:
>
>
> Wah saya kira selama ini foreach () itu udah scalar karena muncul $_.
> Ternyata dia juga pake implicit array @_ tho...
> Saya sudah ganti jadi while (my $ln = ),
Ronny Haryanto wrote:
Itu di atas dua2nya sama aja masalahnya. di atas dua2nya
contextnya adalah array, makanya isi filenya semuanya diload ke
memory, disimpan ke dalam array implicit @_ baru satu per satu
di-iterate ke $line (yg atas) atau $_ (yg bawah).
Kalo mau diload ke memory line by line
2008/4/21 dv0r4k <[EMAIL PROTECTED]>:
> Gabisa juga kang:
>
> foreach my $line () {
>print "$line";
> }
> > > foreach () {
> > > print "x";
> > > }
Itu di atas dua2nya sama aja masalahnya. di atas dua2nya
contextnya adalah array, makanya isi filenya semuanya diload ke
memory, d
Gabisa juga kang:
---perlkilled.pl---
[EMAIL PROTECTED] ~]$ cat perlkilled.pl
#!/usr/bin/perl -w
use strict;
$|=1;
my $LOGF=$ARGV[0];
open(LOG,"$LOGF") || die "Can't open file $LOGF: $!\n";
foreach my $line () {
print "$line";
}
close (LOG);
print "finish!!\n";
---
Eko Prasetya wrote:
Mustinya bisa. Coba diganti bagian "foreach()"-nya menjadi:
foreach $line ( {
print $line;
}
KOkon.
2008/4/20 dv0r4k <[EMAIL PROTECTED]>:
> Kang, saya sudah uncompressed datanya menjadi 1.9GB sehingga ndak perlu
> "gunzip -c" lagi. Perl-nya juga saya bikin simpel, tapi koq tetep killed ya
> ?
Kang, saya sudah uncompressed datanya menjadi 1.9GB sehingga ndak perlu
"gunzip -c" lagi. Perl-nya juga saya bikin simpel, tapi koq tetep killed
ya ? apa memang perl ndak bisa buka file yang besar ?
---perlkilled.pl---
#!/usr/bin/perl -w
use strict;
$|=1;
my $LOGF=$ARGV[0];
open(LOG,"$LOGF")
Darn, baca perl susah amat ya.
Anyhow, problemnya out of memory, Anda tentu sudah tahu.
Kemungkinan sih dari open() yang gunzip itu. Saya takutnya kalau gunzip() itu
dikirim ke pipe, dan open() di situ harus simpan semua datanya di buffer, 2GB
is a big number.
Kalau mau di coba, setelah open(gun
Halo semua,
Saya membuat perl script untuk ngebaca log apache terkompresi dgn gzip.
Jika skrip ini saya jalankan ke log ukuran kecil script tsb berjalan dgn
baik. Tapi begitu saya jalanin di ke file besar (100MB compressed, 2GB
uncompressed), script tsb akan terbunuh (sepertinya oleh OS (ulimit
