Saturday, May 05, 2007
Perl 펄] 화면 지우기 함수, Clear Screen CLS
텍스트 모드 화면의 모든 글자를 깨끗이 지우고 초기화시키는 것은 실은 C언어에서만 가능합니다. 왜냐하면 화면 지우기 작업은 시스템 의존적이기 때문입니다.
운영체제의 화면 지우기 명령을 호출하여 지우는 것이 가장 편리하지만, OS의 종류에 따라 명령어의 차이가 있기에, OS 종류를 자동 판단하여 적절한 명령어를 실행하는 프로그램을 만들었습니다.
다음 프로그램의 clearScreen() 함수는, 윈도우 도스창에서는 cls 명령으로 화면을 지우고, 리눅스에서는 clear 명령으로 화면을 지웁니다.
따라서 이 펄 스크립트를 윈도우에서 실행하든 리눅스에서 실행하든 화면 지우기 작업이 잘 작동합니다.
소스 파일명: example.pl
$^O 이것은 알파벳 대문자 "오"입니다.
▶▶ Perl 펄] 운영체제(OS) 자동 판단 방법, 특수 변수로; Auto Detect Operating System
운영체제의 화면 지우기 명령을 호출하여 지우는 것이 가장 편리하지만, OS의 종류에 따라 명령어의 차이가 있기에, OS 종류를 자동 판단하여 적절한 명령어를 실행하는 프로그램을 만들었습니다.
다음 프로그램의 clearScreen() 함수는, 윈도우 도스창에서는 cls 명령으로 화면을 지우고, 리눅스에서는 clear 명령으로 화면을 지웁니다.
따라서 이 펄 스크립트를 윈도우에서 실행하든 리눅스에서 실행하든 화면 지우기 작업이 잘 작동합니다.
콘솔/도스창/터미널 글자 지우기 함수 예제
소스 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
clearScreen();
sub clearScreen {
if ($^O eq 'MSWin32') {
system("cls");
}
else {
system("clear");
}
}
use strict; use warnings;
clearScreen();
sub clearScreen {
if ($^O eq 'MSWin32') {
system("cls");
}
else {
system("clear");
}
}
$^O 이것은 알파벳 대문자 "오"입니다.
▶▶ Perl 펄] 운영체제(OS) 자동 판단 방법, 특수 변수로; Auto Detect Operating System
tag: perl
Perl | 펄
<< Home