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
