Какой лучший способ очистить экран в Perl?
Если ваш первичный ключ является автоматическим приращением, вы можете попробовать это:
PreparedStatement statement= con.prepareStatement("INSERT INTO jam(name)
VALUES (?)");
statement.setString(1,"Charlie Sheen");
statement.execute();
5 ответов
CPAN является, вероятно, лучшим способом пойти. Смотрите на Термин:: Screen:Uni:
require Term::Screen::Uni;
my $scr = new Term::Screen::Uni;
$scr->clrscr()
Если бы Вы говорите о терминале, я использовал бы что-то как lib Проклятий, чтобы сделать это.
существует хороший модуль Проклятий для доступа к нему, который можно использовать как это:
perl -MCurses -e '$win=new Curses;$win->clear()'
Я обычно использую Термин:: ANSIScreen от CPAN, который дает мне все виды полезных связанных с консолью функций.
use Term::ANSIScreen qw(cls);
cls();
print "\033[2J"; #clear the screen
print "\033[0;0H"; #jump to 0,0
От ответа perlfaq8 до Как очистить экран :
Для очистки экрана достаточно напечатать специальную последовательность, которая говорит терминалу, что нужно очистить экран. После того, как вы получите эту последовательность, выведите ее, когда захотите очистить экран.
Для получения специальной последовательности можно использовать Экранный модуль Term::ANSIS. Импорт функции cls (или тега :screen):
use Term::ANSIScreen qw(cls);
my $clear_screen = cls();
print $clear_screen;
Экранный модуль Term::Cap также может получить специальную последовательность, если вы хотите иметь дело с низкоуровневыми деталями управления терминалом. Метод Tputs возвращает строку для данной возможности:
use Term::Cap;
$terminal = Term::Cap->Tgetent( { OSPEED => 9600 } );
$clear_string = $terminal->Tputs('cl');
print $clear_screen;
В Windows можно использовать Win32::Console модуль. После создания объекта для выходного файла, на который вы хотите повлиять, вызовите метод Cls:
use Win32::Console;
$OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
$OUT->Cls;
Если у вас есть программа командной строки, которая выполняет эту задачу, вы можете вызвать ее в бэк-стиках для захвата всего, что она выводит, чтобы вы могли использовать ее позже:
$clear_string = `clear`;
print $clear_string;