------------- Begin Forwarded Message ------------- Delivered-To: [EMAIL PROTECTED] From: Jorge Goncalvez <[EMAIL PROTECTED]> Subject: Re:Fileevent To: [EMAIL PROTECTED] MIME-Version: 1.0 Content-MD5: /MRgG3Z7C9HfGPjr7vRDqA== X-Filtered-By: PerlMx makes it fast and easy. See http://www.ActiveState.com/Products/PerlMx/Header X-BeenThere: [EMAIL PROTECTED] X-Mailman-Version: 2.0.5 List-Help: <mailto:[EMAIL PROTECTED]?subject=help> List-Post: <mailto:[EMAIL PROTECTED]> List-Subscribe: <http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users>, <mailto:[EMAIL PROTECTED]?subject=subscribe> List-Id: Discussions relating to ActivePerl on Win32 platforms <perl-win32-users.listserv.ActiveState.com> List-Unsubscribe: <http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users>, <mailto:[EMAIL PROTECTED]?subject=unsubscribe> List-Archive: <http://mailarchive.activestate.com/browse/perl-win32-users/> Date: Wed, 4 Jul 2001 15:53:19 +0200 (MEST) Hi , when I attempt to make a fileevent to have a callback to refresh my entry2 I have the following error Modification of non-creatable array value attempted, subscript -1 My code $FILE='c:\\CYGWIN_SYSLOG.txt'; open (FILE,"tail -f $FILE|") ||die; #open FILE; $mw->fileevent(FILE,'readable',[\&somebody_is_calling]); sub somebody_is_calling{ my $line; if ( $line = <FILE>) { @lines = grep s/^LOG_INFO\s*:\s*([^:]*).*$/$1/,<FILE>; #chop ($line); #$Entry2->insert('end',"Hello from jorge"); $Entry2->insert('end',$lines[-1]); } else { $mw->fileevent(FILE,'readable',""); } } Why? thanks. _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users ------------- End Forwarded Message -------------
