Ok I appreciate all of the help ,but these are things that i have all ready considered. First the you cant share process doesn't make a difference either way. The first time i did this was with out splitting into different process's and it didn't even work then. Secondly using @_ and @_[0] makes no difference either and is technical a syntax error according to scite editor if you run the syntax checker. I also use $_ and $_[0] through out the whole program in my sub routines and it works just fine those other times. Even if i take the one line of code to insert the text into the listbox and do this with it
while (defined ( my $line = <$sock> ) ){
chomp($line);# = $_);
$line =~ s/(\x0a|\x0d)//g;
# Display response from server
# RUN THAT LINE BELOW INSTEAD OF USING SUB
$scrolledText -> insert('end',"<< $line");
#&show($line);
print "<< $line\n";
It makes no difference it still does not insert into the ListBox and is now defiantly in that process which proves thats not working. But the print "<< $line\n"; is printing the response from the server so i am capturing the response and able to print to screen just not to insert into the TK object. Any one have any other ideas i would greatly appreciate it. Thank you very much again.
UPDATE: I added this.
$scrolledText -> insert('end', "<< $line") or die "Can not insert: $!\
+n";
And It did insert the first response line from the server but then it shot out an error and ended. Heres that Error
Tk::Error: Can not insert: No such file or directory
main::connection at irc.pl line 442
main::getData at irc.pl line 248
<Key-Return>
(command bound to event)
perl: ../../src/xcb_io.c:242: process_responses: Assertion `(((long) (
+dpy->last_request_read) - (long) (dpy->request)) <= 0)' failed.
perl: ../../src/xcb_io.c:242: process_responses: Assertion `(((long) (
+dpy->last_request_read) - (long) (dpy->request)) <= 0)' failed.
Aborted
|