perl read directory

Posted under Article PHP Perl Python on Monday, 2 November 2009 by Jack

PHP Code:

function process_files( path )
{
    if( is_dir( $path ) )
    { 
        if ( $dh = opendir( $path ) ) 
        {
            while( ( $fname = readdir( $dh ) ) !== false )
            {
                 process_file( $path . $fname );
            }
            closedir($dh);
        }
    }
}

Python Code:

def process_files( pa ):
        if os.path.exists( pa ):
                for f in os.listdir( pa ):
                        process_file( pa + f )

Perl Code:

sub process_files
{
    my $dir = shift;
    my $folder;
    opendir ( $folder, $dir ) || die print 'error';
    my @flist = readdir( $folder );
    for( my $i = 2; $i < scalar( @flist ); $i++ ) {
        processFile( $dir . $flist[ $i ], \%result );
    }
    closedir( $folder );
}