Stringübergabe per config datei: code (Allgemeines zu Perl)

[thread]7707[/thread]

Stringübergabe per config datei: code

Gast Gast

2006-02-13 16:20

so hier mal mein code dazu:

Code: (dl )

open(ZEILE, "<./dir.cfg") || die "Datei nicht gefunden";
foreach (<ZEILE>){
# $a = $_;
$Zeilen=$_;
my $sub=substr($Zeilen,1);
print $Zeilen;
opendir(DIR, $Zeilen) or die "Verzeichnis kann nicht geöfnet werden!";

im configfile sind die Verzeichnisnamen in der art angegeben
/bla/blubb/etc

ich weiß einfach nicht wieso dann das verz nicht geöffnet werdeb kann
;)

newbie_needs_help

2006-02-13 16:40

User since
2005-08-17
21 Artikel
BenutzerIn
[default_avatar]

Hi Alex,

versuche mal folgendes:

Code: (dl )

open (ZEILE, "./dir.cfg) || die "Datei nicht gefunden!\n";
while (<ZEILE>) {
   chomp;
   my $zeile = $_;
   my $sub = substr($zeile,1);
   print "$zeile\n";
   opendir (DIR, $zeile) || die "Verzeichnis kann nicht geöffnet werden!\n";
   ...

vielleicht hast du Probs mit dem Zeilenumbruch?!?!

edit by [E|B]: Code Tags...\n\n

View all threads created 2006-02-13 16:20.