Re^5: How to set $ENV{'DISPLAY'} variable programatically?

[Anonymous Monk]

BEGIN{ $ENV{'DISPLAY'} = ':3.0' }

[nysus]

Yes, that worked! I also had to change require back to use for loading EventRepository2 class.

.

This will probably work good enough, but the holy grail would be able to do something as illustrated with the code below. The code doesn't work but you get the idea of what I'm trying to do. I'd like each object to be able to set which display it's on:

#!/usr/bin/perl
package Mech;
BEGIN { $ENV{'DISPLAY'} = ':3.0'; unshift @INC, "/home/perl/perl-lib";
+ }
use Modern::Perl;
use EventRepository2;

my $er = EventRepository2->new(display => 0, fast_mode => 1, launch =>
+ ['firefox', '-P', "Profile1", '-rep', '4244'], repl => 'localhost:42
+44');
$er->get ('http://slashdot.org');
$er->mySendKeys("^(l)slashdottiejksdjf");

$ENV{'DISPLAY'} = ':2.0';

my $er = EventRepository2->new(fast_mode => 1, launch => ['firefox', '
+-P', "Profile2", '-rep', '4242'], repl => 'localhost:4242');
$er->get ('http://nyt.com');
$er->mySendKeys("^(l)calendarie");

$ENV{'DISPLAY'} = ':1.0';

my $er = EventRepository2->new(fast_mode => 1, launch => ['firefox', '
+-P', "Profile3", '-rep', '4243'], repl => 'localhost:4243');
$er->get ('http://digg.com');
$er->mySendKeys("^(l)diggie");