Video display modes: Difference between revisions
Added Perl example
SqrtNegInf (talk | contribs) (Added Perl example) |
|||
Line 244:
<lang qbasic>'QBasic can switch VGA modes
SCREEN 18 'Mode 12h 640x480 16 colour graphics</lang>
=={{header|Perl}}==
Same caveats as with Perl 6.
{{trans|Perl 6}}
<lang perl>$| = 1;
my @info = `xrandr -q`;
$info[0] =~ /current (\d+) x (\d+)/;
my $current = "$1x$2";
my @resolutions;
for (@info) {
push @resolutions, $1 if /^\s+(\d+x\d+)/
}
system("xrandr -s $resolutions[-1]");
print "Current resolution $resolutions[-1].\n";
for (reverse 1 .. 9) {
print "\rChanging back in $_ seconds...";
sleep 1;
}
system("xrandr -s $current");
print "\rResolution returned to $current.\n";</lang>
=={{header|Perl 6}}==
| |||