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
