[php] Perl과 PHP의 차이점

Perl과 PHP는 비슷하지 않습니다. Perl 6이 아직 개발 중이기 때문에 Perl 5를 고려해 봅시다. 주제별로 대략적으로 분류 된 몇 가지 차이점 :

• Perl은 정규 표현식 리터럴을 포함하여 기본 정규 표현식을 지원합니다. PHP는 Perl의 regexp 함수를 확장으로 사용합니다.
• Perl에는 일치 ( , ), 따옴표 유사 ( , & c.), 지수 ( ), 문자열 반복 ( ) 및 범위 ( 및 )를 포함하여 훨씬 더 많은 연산자가 있습니다. PHP에는 오류 억제 연산자 ( ), (Perl에 메서드가 있음) 및 .=~!~qwqx**x.....@instanceofUniversal::isaclone
• PHP에서는 new연산자입니다. Perl에서는 패키지에 정의 된 객체 생성 서브 루틴 의 일반적인 이름이며 언어에 관한 한 특별한 것은 없습니다.

• Perl 논리 연산자는 인수를 반환 하고 PHP에서는 부울 을 반환합니다 . 시험:

  $foo = '' || 'bar';

  각 언어로. Perl에서는 $foo ||= 'default'$ foo를 아직 설정하지 않은 경우 값으로 설정할 수도 있습니다. PHP에서이 작업을 수행하는 가장 짧은 방법은 $foo = isset($foo) ? $foo : 'default';(업데이트, PHP 7.0 이상에서 수행 할 수 있음 $foo = $foo ?? 'default')입니다.

• 펄 변수 이름은 내장 나타냅니다 펄이 세 가지를 가지고 있으며, 유형 지정자의 (a “라는 이름의 일부인의 유형, 시길 “), 그래서 $foo다른 변수보다 @foo나 %foo.
• (이전 포인트와 관련) Perl에는 스칼라, 배열, 해시, 코드, 파일 / 디렉토리 핸들 및 형식에 대한 별도의 기호 테이블 항목이 있습니다. 각각에는 고유 한 네임 스페이스가 있습니다.
• Perl은 기호 테이블에 대한 액세스를 제공 하지만, 조작하는 것은 희미한 마음을위한 것이 아닙니다. PHP에서 심볼 테이블 조작은 참조 와 extract함수 생성으로 제한됩니다 .
• “참조”는 PHP와 Perl에서 다른 의미를가집니다. PHP에서 참조 는 기호 테이블 별칭입니다. Perl에서 참조 는 스마트 포인터입니다.
• Perl은 정수 인덱스 컬렉션 (배열)과 문자열 인덱스 컬렉션 (해시)에 대해 서로 다른 유형을 가지고 있습니다. PHP에서는 연관 배열 / 정렬 된 맵과 같은 유형 입니다.
• Perl 배열은 희소하지 않습니다. 인덱스가 현재 배열 크기보다 큰 요소를 설정하면 중간에있는 모든 요소가로 설정됩니다 undefined( perldata 참조 ). PHP 배열은 희소합니다. 요소를 설정해도 중간 요소는 설정되지 않습니다.
• Perl은 기본적으로 해시 및 배열 슬라이스를 지원 하며 슬라이스는 할당 가능하며 모든 종류의 용도가 있습니다. PHP에서는 array_slice슬라이스를 추출하고 슬라이스 array_splice에 할당하는 데 사용합니다.
• 약간의 마술을 위해 PHP 에서 아래 첨자 연산자 에 대한 인수를 생략 할 수 있습니다 . Perl에서는 아래 첨자를 생략 할 수 없습니다.
• Perl 해시는 정렬되지 않습니다 .
• Perl에는 많은 사전 정의 된 매직 변수가 있습니다. PHP의 미리 정의 된 변수 는 매우 다른 목적을 가지고 있습니다.
• Perl에는 명령문 수정자가 있습니다 . 일부 제어 명령문은 명령문 끝에 배치 할 수 있습니다.
• Perl은 키워드 를 통한 동적 범위 지정 을 지원 local합니다.
• 또한 Perl에는 전역, 어휘 (블록) 및 패키지 범위가 있습니다. PHP에는 전역, 함수, 객체, 클래스 및 네임 스페이스 범위가 있습니다.
• Perl에서 변수는 기본적으로 전역입니다. PHP에서 함수의 변수는 기본적으로 로컬입니다.
• Perl은 함수 를 통해 명시적인 마무리 호출 을 지원 goto합니다.
• Perl의 프로토 타입 은 PHP의 유형 힌팅 보다 함수 인수에 대해 더 제한된 유형 검사를 제공 합니다 . 결과적으로 프로토 타입은 유형 힌트보다 유용성이 더 제한적입니다.
• Perl에서는 return 문이 사용되지 않더라도 마지막으로 평가 된 문이 표현식이면 (즉, 값이있는 경우) 서브 루틴의 값으로 반환됩니다. 마지막 문이 루프와 같은 표현식이 아닌 경우 (즉, 값이없는 경우) 반환 값은 지정되지 않습니다 ( perlsub 참조 ). PHP에서 명시적인 반환이 없으면 반환 값은 NULL 입니다.

• Perl은 목록을 병합합니다 ( perlsub 참조 ). 평탄화되지 않은 데이터 구조의 경우 참조를 사용하십시오.

  @foo = qw(bar baz);
  @qux = ('qux', @foo, 'quux'); # @qux is an array containing 4 strings
  @bam = ('bug-AWWK!', \@foo, 'fum'); # @bam contains 3 elements: two strings and a array ref

  PHP는 배열을 평면화하지 않습니다.

• 펄이 특수 코드 블록 ( BEGIN, UNITCHECK, CHECK, INIT및 END) 실행되는. PHP이야 달리 auto_prepend_file하고 auto_append_file, 코드 블록의 각 유형의 수에 제한이 없습니다. 또한 코드 블록은 스크립트 내에서 정의되는 반면 PHP 옵션은 서버 및 디렉토리 별 구성 파일에서 설정됩니다.
• Perl에서 세미콜론 은 문을 구분합니다 . PHP에서는 종료 하는 PHP 닫기 태그 ( “?>”)도 문을 종료 할 수 있음을 제외하고, 그들을.
• Perl의 표현식 값은 상황에 따라 다릅니다 .
• Perl의 음의 첨자는 배열의 끝을 기준으로합니다. $bam[-1]배열의 마지막 요소입니다. PHP의 음의 첨자는 다른 첨자와 마찬가지로 첨자입니다.
• Perl 5에서 클래스는 패키지를 기반으로하며 PHP (또는 대부분의 다른 언어)의 클래스처럼 보이지 않습니다. Perl 6 클래스는 PHP 클래스에 더 가깝지만 여전히 상당히 다릅니다. (Perl 6은 다른 많은면에서 Perl 5와 다르지만 주제를 벗어납니다.) Perl 5와 PHP의 많은 차이점은 대부분의 OO 기능이 Perl에 내장되어 있지 않고 해킹을 기반으로한다는 사실에서 비롯됩니다. 예를 들어, $obj->method(@args)같은으로 변환됩니다 (ref $obj)::method($obj, @args). 완전하지 않은 목록 :
  • PHP $this는 메서드에 특수 변수 를 자동으로 제공합니다 . Perl은 객체에 대한 참조를 메서드에 대한 첫 번째 인수로 전달합니다.
  • Perl은 객체를 생성하기 위해 참조를 축복 해야합니다. 모든 참조는 주어진 클래스의 인스턴스로 축복받을 수 있습니다.
  • Perl에서는 packages @ISA변수 를 통해 상속을 동적으로 변경할 수 있습니다 .
• Perl은 연산자 오버로딩을 지원합니다 .
• 엄밀히 말하면 Perl에는 여러 줄 주석이 없지만 POD 시스템은 동일한 효과를 위해 사용할 수 있습니다.
• Perl에서는 //연산자입니다. PHP에서는 한 줄 주석의 시작입니다.
• PHP 5.3까지 PHP는 익명 함수 ( create_function함수) 를 끔찍하게 지원했고 클로저를 지원하지 않았습니다.
• PHP는 네임 스페이스 를 도입 한 버전 5.3까지 Perl의 패키지와 같은 것이 없었습니다 .
• 틀림없이 Perl의 예외에 대한 내장 지원은 다른 언어의 예외와 거의 같지 않아서 예외처럼 거의 보이지 않습니다. 당신은 블록을 평가하고 값 확인 $@( eval대신 try, die대신을 throw). 오류 시도 :: 작은 다른 언어에서 찾을으로 모듈을 지원 예외 (뿐만 아니라에 나와있는 다른 모듈 오류의 관련 항목 섹션).

PHP는 Phantom of the Paradise 가 Phantom of the Opera 에서 영감을 얻은 것과 같은 방식으로 Perl에서 영감을 얻었으며 Strange Brew 는 Hamlet 에서 영감을 받았습니다 . Perl을 배울 때 PHP의 동작 특성을 생각하지 않는 것이 가장 좋습니다. 그렇지 않으면 실패 할 것입니다.

지금 내 뇌가 아파서 그만 둘 게요.

답변

$string = trim($string);

$string =~ s/^\s+//;
$string =~ s/\s+$//;

sub multiply
{
    my ($arg1, $arg2) = @_; # @_ is the array of arguments
    return $arg1 * $arg2;
}

$week_day_name = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")[$week_day_index];

if ("a" == "b") { ... } # This is true.
if ("a" == 0) { ... } # This is also true, for the same reason.