[Perl] 5장 문자열 처리 기본

✅ 1. 문자열 선언

• 작은 따옴표 '  ' : 문자 그래로 저장하며 변수 치환 X
• 큰 따옴표  " "  : 변수 치환 가능, 이스케이프 문자 처리

my $name = "Alice";
my $str1 = 'Hello $name'; # 그대로 출력: Hello $name
my $str2 = "Hello $name"; # 변수 치환: Hello Alice

print "name is $name, $str1, $str2";

---

✅ 2. 문자열 연결 

•  .  연산자로 문자열 연결

my $name = "James";
my $greeting = "Hello" . " " . $name; # Hello James

print $greeting;

---

✅ 3. 문자열 길이

• length 함수 사용해 문자열의 길이 출력

my $name = "Mason";

my $len = length($name); # 5

print $len;

---

✅ 4. 문자열 비교

• eq, en: 문자열 비교 (같다/다르다)
• lt, le, gt, ge: 사전순 비교

my $name = "Mason";

if ($name eq "Mason") { print "Matched\n"; }
if ($name lt "Bob") { print "Mason comes before Bob \n"; }

---

✅ 5. 부분 문자열

• substr 함수 사용

my $name = "Tammy";
my $sub = substr($name, 1, 3); # "amm" (1번째 인덱스 부터 3글자)

print $sub

---

✅ 6. 문자열 검색 및 치환

• 정규표현식 활용

my $text = "This Language Perl";

# Perl 있는지확인
if ($text =~ /Perl/) { print "Found Perl\n"; }

$text =~ s/Perl/Python/; 

# perl
print $text, "\n";

---

✅ 7. 문자열 분리 및 합치기

• split: 문자열 분리
• join: 배여을 문자열로 합침

my $csv = "apple,banana,cherry";
my @fruits = split(/,/, $csv); # {'apple', 'banana', 'cherry'}
my $joined = join(" | ", @fruits); 

print "@fruits\n"; # 배열 그대로 출력  apple banana cherry
print "$joined\n"; # join 결과 출력 apple | banana | cherry

---

✅ 8. 공백 제거

• chomp: 문자열 끝의 줄바꿈 제거
• s/^\s+|\s+$//g: 앞뒤 공백 제거

my $line = " Hello World \n";
chomp($line); # 줄바꿈 제거
$line =~ s/^\s+|\s+$//g; # 앞뒤 공백 제거

print "$line"

---

✅ 9. 문자열 반복

• x 연산자로 반복 가능

my $repeat = "Hello" x 3; # "HelloHelloHello"
print $repeat;

---

✅ 10. 정리

기능	Perl 문자열 처리
선언	", ""
연결	.   연산자
길이	length( )
비교	eq, ne, lt, gt
부분 문자열	substr()
검색/치환	정규표현식 =~
분리/합치기	split() , join()
공백 제거	chomp(), 정규식
반복	x 연산자

---

 

GitHub - Koras02/Perl-Bloging: https://thinky.tistory.com/category/Back-End/Perl