Win32::OLE auf dem pc gesucht: kann zwar modul finden gibt aber mehrere - #69408 (Allgemeines zu Perl)

fraggs

2006-09-13 10:46

User since
2006-09-11
179 Artikel
BenutzerIn

werde ich mir heute durchlesen und das script mit schleifen schreiben. und von java ... habe ich alles vergessen ich kenn nur noch junit und jgrasp und das ist auch glaube ich alles.

EDIT: wenn ich fragen darf ... welche schleife wuerde man denn benutzen ? die "for each" schleife? brauche nur einen hint, die online tutorials fuer schleifen sind nicht sooo super

Code: (dl )

#!perl
#
use warnings;
use strict;
my @Sachen;

open(FH1,"<","bla1.txt",FH2,"<","bla2.txt",FH3,"<","bla3.txt",FH4,"<","bla4.txt");

open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
@Sachen = <FH1>,<FH2>,<FH3>,<FH4>;
foreach (@Sachen)
{
 print OUTDATEN (@Sachen);
       print OUTDATEN "\n"; 
}
  close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
close () or die "kann nicht schließen bla1 $!";

update 9:15

wo liege ich falsch ? ich weis nicht wie ich die FH*.* schliessen soll und ich bin mir nicht sicher ob die "for" schleife so sein soll. info bitte

danke

EDIT:zu dem letzten code hier sind meine errors. ich denke die habe etwas mit meinem "open" zutun.

Quote
Bareword "FH2" not allowed while "strict subs" in use at sab3.pl line 8.
Bareword "FH3" not allowed while "strict subs" in use at sab3.pl line 8.
Bareword "FH4" not allowed while "strict subs" in use at sab3.pl line 8.
Execution of sab3.pl aborted due to compilation errors.

\n\n

mmm twix