컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post 리눅스/유닉스(Linux, Unix)에서 Perl(펄) 스크립트 실행 방법Vim Vi, 도스 텍스트를 유닉스 텍스트로 개행문자 변환; DOS CR-LF to Uni...Perl 펄] 운영체제(OS) 자동 판단 방법, 특수 변수로; Auto Detect Ope...Perl 펄] 두 변수의 값 교환/스왑 함수(서브루틴); Swap FunctionC++, 두 변수의 값 교환 함수 swap(); 참조에 의한 호출(Call by Refer...C언어] 변수 값 서로 교환, 스왑 함수; Swap FunctionC언어] 별표(*) 기호 의미, 뜻; Asterisk Pointer OperatorC언어] printf 함수에서 %p 의미. 변수 번지, 포인터 변수 주소 출력; Print...PHP 예제] 상수 정의 / 선언 방법; Define ConstantPHP 예제] 모든 상수 목록 출력 함수; Dump All Constant Function...

Perl 펄] 화면 지우기 함수, Clear Screen CLS

Saturday, May 05, 2007

텍스트 모드 화면의 모든 글자를 깨끗이 지우고 초기화시키는 것은 실은 C언어에서만 가능합니다. 왜냐하면 화면 지우기 작업은 시스템 의존적이기 때문입니다.

운영체제의 화면 지우기 명령을 호출하여 지우는 것이 가장 편리하지만, 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");
  }
}


$^O 이것은 알파벳 대문자 "오"입니다.

▶▶ Perl 펄] 운영체제(OS) 자동 판단 방법, 특수 변수로; Auto Detect Operating System

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top