엄두 -> 거꾸로 하면??? 세상의 1% 가 되고 싶은 나~

use strict;
  ## restrict unsafe use of variables for rest of block

use strict 'vars'; ## restrict unsafe use of variables for rest of block
 EX Code)
 use strict 'vars';
 use vars '$foe';
 
 $SomePack::fee = 1;
 my $file = 10;
 $foe = 7;
 $foo = 9;
 

use strict 'refs';  ## restrict unsafe use of references for rest of block
 EX Code)
 use strict 'refs';
 $ref = \$foo;
 print $$ref;
 $ref = "foo";
 print $$ref;

 
use strict 'subs';  ## restrict unsafe use of barewords for rest of block
 EX Code)
 use strict 'subs';
 $SIG{PIPE} = Plumber;
 # blows up (assuming Plumber sub not declared yet)
 $SIG{PIPE} = "Plumber";
 # okay, means "main::Plumber" really
 $SIG{PIPE} = \e&Plumber; # preferred form

no strict;

오늘은 여기까징~~

## 변수 레퍼런스
$v = 10;
$rv = $$v;

## 배열 레퍼런스
@aArr = ("one", "two", "three");
$raArr = \@aArr;
print "arr reference ".$$raArr[0]."\n"; ## eq expression 'print $$raArr[0]'
print "arr reference ".$raArr->[0]."\n"; ## eq expression 'print $$raArr[0]'

## 해쉬 레퍼런스
%hHash = ("one","1","two","2");
$rhHash = \%hHash;
print "hash reference ".$$rhHash{'one'}."\n";
print "hash reference ".$rhHash->{'one'}."\n";

서브 루틴에서 사용(Subroutines)
@aArray = (1,2,3);

printArray(\@aArray);

sub printArray
{
    my ($raArray) = @_;
    for ($i = 0; $i<3); $i++)
    {
       print "array[$i] = $raArray->[$i]\n";
    }
}

파일제어
 open(),close()
 
 open(FILE,"> /etc/hosts");
 close(FILE);
 
 open(FILE, ">> /home/log/secure.log");
 close(FILE);
 
 '<' 읽기 모드(기본값 r)
 '>' 쓰기 모드(w)
 '>>' 내용더하기 (a)
 '+C<' 읽기쓰기 모드
 '+>' 읽기쓰기 모드
 '|'
 '|'

주의점
  open(파일핸들, "파일제어기호 파일명(경로포함)"); 에서 파일제어기호와 파일명에는 콤마등의 기호가 없어야 한다.


select()
TODO


eof,eof()
'()' 의 있고 없고의 차이는 파일의 끝의 대상이 하나인가 여러개인가의 차이인듯.. (영어가 딸려서)
아래는 perldoc 의 원문이다.
In a "while (<>)" loop, "eof" or "eof(ARGV)" can be used to detect the end of each file,
"eof()" will only detect the end of the last file.