#!/usr/local/bin/perl # # Small example of how to get X11 client ressources id. # $version="1.00b"; # # (c) 1998 Emmanuel PIERRE # epierre@e-nef.com # http://www.e-nef.com/users/Emmanuel.PIERRE # $dpy = shift @ARGV || ":0.0"; open(XW,"xwininfo -display $dpy -root -all |"); while () { ($id,$nom)=($_ =~ /0x(\S+)\s"(\w+).*/); if ($nom ne "") { print "0x$id $nom\n";} } close(XW);