Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8282[/thread]

Win32::OLE auf dem pc gesucht: kann zwar modul finden gibt aber mehrere (Seite 6)



<< |< 1 ... 3 4 5 6 7 8 9 10 >| >> 93 Einträge, 10 Seiten
sabrina
 2006-09-12 17:26
#69390 #69390
User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]
#heul schnief#
wie gemein hab mich grad so gefreut das mein programm ne ausgabe gibt und sie schon meinem projektleiter geschickt dann hab ich gemerkt das es .pl ist und wollt ihm noch die .txt schicken als ich merkte das in der gar nicht drin steht #heul#.

hab leider nicht auf deinen rat gehoert und es so mal versucht,
kannst du trotzdem mal schauen ich hoff es ist wieder nur ein dummer fehler irgendwo, hab wohl irgend was vergessen aber ich schau jetzt schon ne ewigkeit drueber und koennte gleich heulen, vor allem hab ich mich grad so gefreut und dann so ne pleite :( .
Hier mein nicht perfekter code, ich weis er ist viel zu lang und zu umstaendlich aber dafuer selber gemacht :) nicht erschrecken:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl
use warnings;
use strict;
my @data;


 open(FH1,"<bla1.txt") or die "kann nicht oeffnen bla1 $!";
 @data = <FH1>;
    open(OUTDATEN, ">blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
    print @data;
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH1) or die "kann nicht schließen bla1 $!";


  open  (FH2,"<bla2.txt") or die "kann nicht oeffnen bla2 $!";
  @data = <FH2>;
     open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
     print @data;
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH2) or die "kann nicht schließen bla2 $!";


  open  (FH3,"<bla3.txt") or die "kann nicht oeffnen bla3 $!";
  @data = <FH3>;
      open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
      print @data;
      close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH3) or die "kann nicht schließen bla3 $!";


  open  (FH4,"<bla4.txt") or die "kann nicht oeffnen bla4 $!";
  @data = <FH4>;
      open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
      print @data;
      close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH4) or die "kann nicht schließen bla4 $!";
ich glaub ich hatte schon mal so einen aehnlichen fehler.
Also ich bekomme keine fehlerausgabe und die datei steht im editor richtig, deshalb ist es noch viel trauriger, naja schau noch mal vielleicht faellt mir ja doch noch auf was ich falsch gemacht habe. ah #nerv# So Kurz Vor Dem Ziel :(  :(  
lg sabrina
fraggs
 2006-09-12 17:56
#69391 #69391
User since
2006-09-11
179 Artikel
BenutzerIn
[Homepage] [default_avatar]
data::dumper :D hier probier das EDIT: so teste jetzt mal ich kriege keine errors mehr auser das er die .txt dateine nicht sieht

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my @data;
my $data;


open(FH1,"<" , "bla1.txt" ) or die "kann nicht oeffnen bla1 $!";
@data = <FH1>;
   open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
   print OUTDATEN Dumper($data);
   close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH1) or die "kann nicht schließen bla1 $!";

 
 open  (FH2,"<" , "bla2.txt" ) or die "kann nicht oeffnen bla2 $!";
 @data = <FH2>;
    open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
    print OUTDATEN Dumper($data);
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH2) or die "kann nicht schließen bla2 $!";


 open  (FH3,"<" , "bla3.txt" ) or die "kann nicht oeffnen bla3 $!";
 @data = <FH3>;
     open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
     print OUTDATEN Dumper($data);
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH3) or die "kann nicht schließen bla3 $!";


 open  (FH4,"<" , "bla4.txt" ) or die "kann nicht oeffnen bla4 $!";
 @data = <FH4>;
     open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
     print OUTDATEN Dumper($data);
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH4) or die "kann nicht schließen bla4 $!";
\n\n

<!--EDIT|fraggs|1158070007-->
mmm twix
sabrina
 2006-09-12 18:04
#69392 #69392
User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]
hab    use Data::Dumper;    eingefuegt,
und bei print auch,
jetzt hab ich nen leeren editor aber dafuer steht in blagesamt.txt
Code: (dl )
1
2
3
4
$VAR1 = undef;
$VAR1 = undef;
$VAR1 = undef;
$VAR1 = undef;

und ich hab my $data und auch my @data declariert
komisch\n\n

<!--EDIT|sabrina|1158070238-->
fraggs
 2006-09-12 18:07
#69393 #69393
User since
2006-09-11
179 Artikel
BenutzerIn
[Homepage] [default_avatar]
siehe oben den code editiert probier das mal
EDIT:hmmm  alles leauft habe mir paar "bla" files gemacht aber irgendwie gibt er mir in der blagsam.txt file $VAR1= undef ...\n\n

<!--EDIT|fraggs|1158070283-->
mmm twix
sabrina
 2006-09-12 18:15
#69394 #69394
User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]
war zu vorschnell 16:04
und hab editiert bekomme wie oben gesagt diese ausgaben aber keine fehlermeldungen

lg sabrina
fraggs
 2006-09-12 18:18
#69395 #69395
User since
2006-09-11
179 Artikel
BenutzerIn
[Homepage] [default_avatar]
was soll diese prog eigentlich tun ? einfach nur die bla strings nehmen und in ein .txt file schreiben ?

data::dumper habe ich rausgenommen der wird glaube ich nicht benoetigt da der zum convertieren von xml etc da ist.\n\n

<!--EDIT|fraggs|1158070777-->
mmm twix
sabrina
 2006-09-12 18:23
#69396 #69396
User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]
genau es soll einfach die vier dateien nehmen (es sind listen drinn) und in eine neue datei untereinander schreiben und zwar erst die erste dann die zweite und so weiter. In dem editor bekomme ich das auch hin nur die blagesamt ist eben leer
lg sabrina
fraggs
 2006-09-12 18:36
#69397 #69397
User since
2006-09-11
179 Artikel
BenutzerIn
[Homepage] [default_avatar]
GETESTET !!!
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use warnings;
use strict;
my @data;
my $data;


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


open  (FH2,"<" , "bla2.txt" ) or die "kann nicht oeffnen bla2 $!";
@data = <FH2>;
   open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
   print OUTDATEN (@data);
   print OUTDATEN "\n";
   close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
close (FH2) or die "kann nicht schließen bla2 $!";


open  (FH3,"<" , "bla3.txt" ) or die "kann nicht oeffnen bla3 $!";
@data = <FH3>;
    open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
    print OUTDATEN (@data);
    print OUTDATEN "\n";
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
close (FH3) or die "kann nicht schließen bla3 $!";


open  (FH4,"<" , "bla4.txt" ) or die "kann nicht oeffnen bla4 $!";
@data = <FH4>;
    open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
    print OUTDATEN (@data);
    print OUTDATEN "\n";
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
close (FH4) or die "kann nicht schließen bla4 $!";

update 16:43 noch sauberer und die wiedergabe ist besser\n\n

<!--EDIT|fraggs|1158072250-->
mmm twix
Crian
 2006-09-12 18:40
#69398 #69398
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
cat f1 f2 f3 f4 > f5
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
fraggs
 2006-09-12 18:44
#69399 #69399
User since
2006-09-11
179 Artikel
BenutzerIn
[Homepage] [default_avatar]
@crian erklaerung zu deinem comment ? verstehe ich noch nicht
mmm twix
<< |< 1 ... 3 4 5 6 7 8 9 10 >| >> 93 Einträge, 10 Seiten



View all threads created 2006-08-30 11:40.