A module I wrote at work does a rough-approximation of detecting if X11 service is available. It first checks DISPLAY, then it tries to connect a socket to the right port. (Sorry, can't give the whole module.) 
use Socket qw(SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET inet_aton sockad
+dr_in);
use FileHandle;

# ... other module junk ...

# $spec = display();
#
sub display
{
    return $ENV{DISPLAY} || ':0';
}

# $bool = scan($hostname, $tcpport);
#
sub scan
{
    my $host = shift;
    my $port = shift;

    my $proto = (getprotobyname('tcp'))[2];
    my $fh = new FileHandle();
    my $ip = inet_aton($host);
    return undef
        if not defined $ip;
    return undef
        if not socket($fh, &PF_INET(), &SOCK_STREAM(), $proto);

    my $saddr = sockaddr_in($port, $ip);
    return undef
        if not connect($fh, $saddr);

    close($fh);

    return 1;
}

# $bool = ready();
#
sub ready
{
    my $display = display();
    my ($host, $screen) = split(/:/, $display);
    $host ||= 'localhost';

    return scan($host, 6000 + int($screen));
}

[download]
There are other situations where the port in question is not so easily computed; these usually relate to tunneling of some sort, such as with (ssh -X) commands. Extend as desired.

--
[ e d @ h a l l e y . c c ]

In reply to Re: How to detect X? by halley
in thread How to detect X? by blazar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.