SDL perl-入门

use SDL;
use SDLx::App;
my $app=SDLx::App->new();
$app->update();
sleep(10);

 

 

use SDL;
use SDLx::App;
my $app=SDLx::App->new(width=>400,height=>200,title=>"我的第一程序:hello,world");
$app->update();
sleep(10);

 

 

 

 

#可以缩写weight等
use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>200,t=>"我的第一程序:hello,world");
$app->update();
sleep(10);