Gast+2007-10-04 15:57:46--

Code (perl): (dl )

1
2
3
4
5
6
7
8

  ## abgeguckt von renee :P aetsch!
  open( FILE, '<', "$whitelist" ) or die "Could not open file: $!";
  while ( my $f = <FILE> ) {
    chomp $f;
    push( @correct_hashes, $f );
  }

  close(FILE);

1
2
3
4
5
6
7
8
9

sub verify_files {
    my( $whitelist ) = @_;

    open( my $FILE, '<', $whitelist ) or die "Could not open file '$whitelist': $!";
    chomp( my @correct_hashes = <$FILE> );
    close $FILE;

  ...
}

Quote

sysopen(FH, "/$directories[$d]/$files[$i]", 'O_RDONLY');