|
@s=split //;
foreach (@s) { say;}
if($l=/pa/){ say;}
if($l=$_=~/pa/){say;}
while(<>) { say substr $_,0,3;}
while($l=<>) { say substr $l,0,3;}
&num_test(2, 3);
sub num_test { print $_[0] + $_[1], "\n";}
\n 개행문자.
\t 탭.
\w 문자 또는 숫자. [a-zA-Z0-9]와 같습니다.
\W \w가 아닌 것. [^a-zA-Z0-9]와 같습니다.
\d 십진수. [0-9]와 같습니다.
\D 십진수 아닌 것. [^0-9]와 같습니다.
\s 공백문자. space, 탭, 개행문자 등.
\S 공백문자 아닌 것.
\b 단어의 경계(boundary). [ ]의 바깥에서만 사용.
"the green grass of home"의 \bthe\b, \bgreen\b,
\bgrass\b, \bof\b, \bhome\b.
\bthe\b와 \bhome\b도 포함됨에 유의하세요.
\B 단어의 경계가 아닌 것.
- {}는 문자, 그룹의 개수를 지정합니다. -
ba(na){2} banana만 해당.
ba(na){1,2} bana, banana만 해당.
ba(na){2,5} banana, bananana, banananana, bananananana만 해당.
o{2,4}p oop, ooop, oooop.
중요: 위에서 쓰였던 특수한 문자들 ^$|[]()\/{}*.?+ 등을 그 자체로 사용할 때는 그 앞에 \를 붙여 주세요.
\^ \$ \| \[ \] \( \) \\ \/ \{ \} \* \. \? \+
#without comments
@o=grep(!/^#/,@s);
@o=grep{!/^#/} @s;
print join ", ", grep { length $_ == 6 } @capitals;
print scalar grep { $_ eq 'Columbus' } @capitals; # "1"
my @squares = map { $_ * $_ } grep { $_ > 5 } @numbers;
my %hash = map { get_a_key_for($_) => $_ } @array;
my %hash; foreach (@array) { $hash{get_a_key_for($_)} = $_; }
my %hash = map { "\L$_" => 1 } @array # perl guesses EXPR. wrong
my %hash = map { +"\L$_" => 1 } @array # perl guesses BLOCK. right
my %hash = map {; "\L$_" => 1 } @array # this also works
my %hash = map { ("\L$_" => 1) } @array # as does this
my %hash = map { lc($_) => 1 } @array # and this.
my %hash = map +( lc($_) => 1 ), @array # this is EXPR and works!
my %hash = map ( lc($_), 1 ), @array # evaluates to (1, @array)
my @hashes = map +{ lc($_) => 1 }, @array # EXPR, so needs comma at end
open (FILE, "foo.txt");
my @words = map { split } <FILE>;
close FILE;
my @words = map { split(' ', $_) } <FILE>;
open (FILE, "foo.txt");
my @words = map { s/[.,!\?]\B//g; split; } <FILE>;
close FILE;
open (FILE, "foo.txt");
my @lines = map { s/[.,!\?]\B//g } <FILE>;
close FILE;
open (FILE, "foo.txt");
my @lines = map { s/[.,!\?]\B//g; $_; } <FILE>;
close FILE;
open (FILE, "foo.txt");
my @lines = map { chomp; $_; } <FILE>;
close FILE;
open (FILE, "foo.txt");
my @lines = <FILE>;
chomp(@lines);
close FILE;
if(any {length>10} @s) { say "at least one string has more than 10 chars.";}
if(none {length>10} @s) { say "none";}
if(all {
if(notall{
if(first { defined($_)} @s) { say "first defined value in @s";}
if(first { $_ > $val} @s} {say "first value in @s which is greater than $v";}
$a=max @s; #highest numerial value:min
$a=maxstr @s; #highest string in order 'A'<'Z',"hello"<"world";minstr
map 함수는 배열을 입력으로 받아 배열의 모든 원소 $_에 어떤 조작을 가하여 그 결과들로 새로운 배열을 생성한다. 어떻게 조작할지는 중괄호 안에 하나의 표현식으로 지정한다:
my @capitals = ("Baton Rouge", "Indianapolis", "Columbus", "Montgomery", "Helena", "Denber", "Boise");
print join, ", ", map { uc $_ } @capitals;
# "BATON ROUGE, INDIANAPOLIS, COLUMBUS, MONTGOMERY, HELENA, DENVER, BOISE"
use 5.010;
while(<>) { chomp; print if /pa/;}
while(<>) { chomp; if /pa/ {say;}}
$x=defined $x ? $x : $DEFAULT;
$x ||= $DEFAULT; #$x 가 0 또는 "0" 또는 빈문자열일 경우 DEFAULT값으로 대체됨
$x //= $DEFAULT; #$x 가 undef 일 경우만 대체됨됨
my $c=0;
sub nc { $c++; return $c;}
sub nc { state $c=0; $c++; return $c;} |
|
