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 (<LOG>) {
print "$line";
}
close (LOG);
print "finish!!\n";
---
Eko Prasetya wrote:
Mustinya bisa. Coba diganti bagian "foreach()"-nya menjadi:
foreach $line (<LOG> {
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
? 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") || die "Can't open file $LOGF: $!\n";
foreach (<LOG>) {
print "x";
}
close (LOG);
print "finish!!\n";
---
---error---
[EMAIL PROTECTED] ~]$ ./perlkilled.pl
/var/www/html/reports/logs/uncompr_20080226.log
Killed
[EMAIL PROTECTED] ~]# free -m
total used free shared buffers cached
Mem: 2027 655 1372 0 1 599
-/+ buffers/cache: 53 1973
Swap: 511 23 488
[EMAIL PROTECTED] ~]#
---
Help!
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis
