24 lines
411 B
Perl
24 lines
411 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Copyright (C) 2003 by Virtusa Corporation
|
||
|
|
# http://www.virtusa.com
|
||
|
|
#
|
||
|
|
# Anuradha Ratnaweera
|
||
|
|
# http://www.linux.lk/~anuradha/
|
||
|
|
#
|
||
|
|
|
||
|
|
# We use addstr() instead of printw()
|
||
|
|
|
||
|
|
use Curses;
|
||
|
|
|
||
|
|
$mesg = "Just a string";
|
||
|
|
|
||
|
|
initscr();
|
||
|
|
getmaxyx($row, $col);
|
||
|
|
addstr($row / 2, ($col - length($mesg)) / 2, $mesg);
|
||
|
|
addstr($row - 2, 0, "This screen has $row rows and $col columns\n");
|
||
|
|
refresh();
|
||
|
|
getch();
|
||
|
|
endwin();
|
||
|
|
|