All pastes #343504 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-02-07 02:16 UTC
rendered paste body
#!/usr/bin/perl -w 
#use strict;
use X11::SendEvent;

@foo = { "xterm" };
$x11 = X11::SendEvent->new();
$win = $x11->FindWin("xterm");
print "$win";

#$win->SendString("HELLO");
#$win = X11::SendEvent->new(win => "xterm" debug);
#$win->SendString("testing", ["Return"]);
#$win->SendString("user", ["Return"], "joe", ["9/1"]);

# ./test.pl 
Odd number of elements in anonymous hash at ./test.pl line 5.
Use of uninitialized value in pattern match (m//) at /usr/perl5/site_perl/5.8.4/X11/SendEvent.pm line 79.