Help for this page

Select Code to Download


  1. or download this
    while (defined ( my $line = <$sock> ) ){
        
...
                $scrolledText -> insert('end',"<< $line");
        #&show($line);
        print "<< $line\n";
  2. or download this
    $scrolledText -> insert('end', "<< $line") or die "Can not insert: $!\
+n";
  3. or download this
    Tk::Error: Can not insert: No such file or directory
 main::connection at irc.pl line 442
...
perl: ../../src/xcb_io.c:242: process_responses: Assertion `(((long) (
+dpy->last_request_read) - (long) (dpy->request)) <= 0)' failed.
Aborted