perl 귀속 두 가지 예

Perl은 텍스트 처리 언어로서 자연히 그의 귀속 문법이 있을 것이다. 동생은 두 가지 예를 공유하고 여러분에게 유용하기를 바란다!
곱하기(가장 고전적인 귀속)

#!/usr/bin/perl -s 

my $Result = 1;
sub GetResult{
        my $num = shift;
        if( $num != 1 ){
                $Result = $Result * $num;
                print "Result:$Result | num:$num
";
                $num--;
                GetResult($num);
        }

}

GetResult('10');

실행 결과:

[root@virfed64 ~]# ./GetResult.pl 
Result:10 | num:10
Result:90 | num:9
Result:720 | num:8
Result:5040 | num:7
Result:30240 | num:6
Result:151200 | num:5
Result:604800 | num:4
Result:1814400 | num:3
Result:3628800 | num:2

linux 파일 디렉터리를 옮겨다니며 원하는 파일을 찾습니다

[root@virfed64 ~]# cat Scan.pl 
#!/usr/bin/perl -s 
#
use Cwd;
sub ScanDirectory{
    my $workdir = shift;
    my $startdir = cwd;
    chdir $workdir or die "Unable to enter dir $workdir:$! 
";
    opendir my $DIR,'.' or die "Unable to  open $workdir:$! 
";
    my @names = readdir $DIR or die "Unable to read $workdir:$!
";
    closedir $DIR;
    foreach my $name (@names){
        next if ($name eq '.');
        next if ($name eq '..');
        if ( -d $name ){
            ScanDirectory($name);
            next;
        }
        if($name eq 'core'){
            if (defined $r ){
                unlink $name or die "Unable to delete $name :$! 
";
            }
            else{
                print "Found one in $workdir!
";
            }
        }
    }
    chdir $startdir or die "Unable to change to dir $startdir:$!
";
}
ScanDirectory('.');

실행 결과는 파일을 찾거나 삭제하는 것입니다