Perl 미니 가이드

#!/usr/bin/perl -w
 
use strict;
 
 
### 3대 기본 구조 ####
 
# 스칼라
my $scalar_A = "A single thing";
my $scalar_B = 42;
print "Scalar A = [$scalar_A] and Scalar_B = [$scalar_B]\n";
 
# 배열
my @array_A = ("a", "list", "of", "things");
my @array_B = (3,7,21,24);
print "Array_A = [@array_A] and Array_B = [@array_B]\n";
 
# 해시 배열
my %hasharray;
$hasharray{"Roelof"} = "Temmingh";
$hasharray{"Haroon"} = "Meer";
$hasharray{"Charl"} = "Van der Walt";
 
 
 
### 조건문
 
my $int_A = 5;
my $int_B = 10;
my $int_ADD = $int_A + $int_B;  # =15;
 
# 숫자 스칼라 값 비교
if($int_A == $int_B){
        printf "Pigs can fly\n";
}else{
        printf "Pits cannot fly\n";
}
 
my $string_A = "This is a test";
my $string_B = "test";
my $string_ADD = $string_A.$string_B;   # = This is a testtest
 
 
#문자열 스칼라 값 비교
if($string_A eq $string_B){
        print "Pigs should fly\n";
}
 
else{
        print "Pigs should fly\n";
}
 
 
if($string_A ne $string_B){
        print "Birds can fly\n";
}
 
# 정규표현식으로 문자열 비교
if($string_A =~ /$string_B/){
        print "String_A contains the string String_B\n";
}
 
 
### 루프
 
# for 루프
my $index;
print "Red World = we've had this before : ";
for($index = 0; $index < 10; $index++){
        print $index." ";
}
print "\n";
 
# while 루프
print "And counting down again..";
while ($index > 0){
        print $index." ";
        $index--;
}
print "\n";
 
 
### 열거
 
# 분리
my @array_of_words = split(/\s/,$scalar_A);
foreach my $single_word (@array_of_words){
        print "This word = $single_word\n";
}
 
# 해시 배열의 키
foreach my $ref (keys%hasharray){
        print "Key = [$ref], Value = [$hasharray{$ref}]\n";
}

출처 :  에이콘 보안 시리즈 [실전해킹 절대내공]