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

 
Previous Post Perl 펄] 두 변수의 값 교환/스왑 함수(서브루틴); Swap FunctionC++, 두 변수의 값 교환 함수 swap(); 참조에 의한 호출(Call by Refer...C언어] 변수 값 서로 교환, 스왑 함수; Swap FunctionC언어] 별표(*) 기호 의미, 뜻; Asterisk Pointer OperatorC언어] printf 함수에서 %p 의미. 변수 번지, 포인터 변수 주소 출력; Print...PHP 예제] 상수 정의 / 선언 방법; Define ConstantPHP 예제] 모든 상수 목록 출력 함수; Dump All Constant Function...PHP 예제] 배열 출력; 구성 요소를 브라우저에 간단히 프린트하기; Print Array...PHP 5] 운영체제에 맞게 개행문자 출력 상수; 자동 CRLF 줄바꿈; DOS Windo...PHP 예제] 배열 출력 함수, 구성 요소 화면에 프린트; Print Echo Array

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

Friday, May 04, 2007

펄의, $^O 라는 특수 변수 속에는 현재 실행 중인 운영체제의 간략한 이름이 항상 자동으로 들어가 있습니다.

윈도우에서는 MSWin32 라는 값을 가지고, 리눅스에서는 linux 입니다.

$^O 라는 특수 변수를 사용하면, 현재 운영 체제의 종류를 자동으로 판단할 수 있습니다. "달러 기호"+"캐럿 기호"+"알파벳 대문자 O(오)"입니다.

Perl에서, 현재 실행 오에스 판단 예제


#!/usr/bin/perl
use strict; use warnings;

  # 대문자 오(O)임, "오양 비디오"할 때의 오임. 제로가 아님
  print $^O, "\n";
  # 윈도우에서는 MSWin32 가 출력
  # 리눅스에서는 linux 가 출력


  if ($^O eq 'MSWin32') {
    print "MS Windows에서 실행 중이시군요.\n";
  }
  elsif ($^O eq 'linux') {
    print "Linux에서 실행 중이시군요.\n";
  }
  else {
    print "그밖의 OS에서 실행 중이시군요.\n";
  }


함수 형식으로 만들려고 했는데, 운영체제 종류가 한정되어 있지 않아서..

그런데 이 펄 소스를 리눅스에서 실행할 때는, "도스 텍스트"가 아닌 "유닉스 텍스트"로 저장해야 합니다.

윈도우용 펄은, 도스 개행문자든, 유닉스 개행문자든 모두 인식하지만, 리눅스용 펄은 도스 개행문자를 인식하지 못하고 에러를 냅니다. ▶▶ Vim Vi, 도스 텍스트를 유닉스 텍스트로 개행문자 변환; DOS CR-LF to Unix Newline

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