linux下 ls -l返回结果的处理正规表达式

sub print_file {

    my($ftp, $dir) = @_;

    my @files = $ftp->dir()

        or warn "Can't LIST: ", $ftp->message;

    return unless @files;

 

    print "into $dir¥n";

 

    for (@files) {

        s/¥r//g;

        s/¥n//g;

        if (/

            ^

            (.|-)                   # (1) type

            (.{9})                  # (2) permittion

            ¥s+

            (¥d+)                   # (3) links

            ¥s+

            (¥w+)                   # (4) owner

            ¥s+

            (¥w+)                   # (5) group

            ¥s+

            (¥d+)                   # (6) size           

            ¥s+

            (¥w{3}¥s+¥d+¥s+¥d+:¥d+) # (7) date

            ¥s+

            (.*?)                   # (8) filename

            (?:¥s+->¥s+(.*))?       # (9) link

            $

            /x)

        {

            print "$dir/$8  $6  $7";

            if ($1 eq 'd') {

                my $next_dir = File::Spec->catfile($dir, $8);

                $ftp->cwd($8);

                &print_file($tree, $ftp, $next_dir);

                $ftp->cdup();

            }

        }

    }

}