Thread mehrere Fragen u.a. zum topic array²hash (10 answers)
Opened by Gast at 2007-10-04 10:51

Strat
 2007-10-05 01:21
#100299 #100299
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
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);



Wenn du sowieso den gesammten Dateiinhalt in einem Array brauchst, dann wuerde ich folgendermaszen schreiben:
Code (perl): (dl )
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;

  ...
}

oder so aehnlich.

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

O_RDONLY ist eine Konstante aus use Fcntl qw(:DEFAULT); (schrieb ja pq schon), und darf nicht als String 'O_RDONLY' verwendet werden, sondern ohne Anfuehrungszeichen.
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread mehrere Fragen u.a. zum topic array²hash