perl read directory

Posted under Article Development Perl PHP Python on Saturday, 26 March 2011 by rueben

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 );
        }