Offene Datei unter Windows lesen (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2023-12-04 21:23:25
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online

[thread]18647[/thread]

submit to reddit

Offene Datei unter Windows lesen [solved]

[solved]

Tags: perl5 windows datei Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+3 replies
bianca

2013-10-01 22:15
User since
2009-09-13
6923 articles
BenutzerIn
Hallo!
Von einem externen Programm wird eine Datei erzeugt aber das Programm scheint die Datei nicht richtig zu schließen, ich muss sie aber in diesem Stadium zwingend lesen. Im Explorer hat sie 0 Byte aber mit einem Viewer (Total Commander) geöffnet sehe ich den Inhalt.
Mit folgendem Code erhalte ich den Dateiinhalt leider nicht:
Code (perl): (dl )

1 2 3 4 5 6

if (open(my $fh,'<',$datname)) { if (binmode($fh)) { local $/; my $cont = <$fh>; } }
Was macht dieser Viewer, dass er den Inhalt anzeigt und wie kann ich das in Perl nachahmen?
10 print "Hallo"
20 goto 10
- +2 replies
- FIFO
  
  2013-10-02 00:33
  User since
  2005-06-01
  469 articles
  BenutzerIn
  nimm zum Einlesen eines Binärfiles read():
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $content = ''; my $buffer; my $len = 65536; open( my $fh, '<:raw', $file ); while ( read( $fh, $buffer, $len ) ) { $content .= $buffer; }
  
  Editiert von FIFO: typo , statt ;
  Last edited: 2013-10-02 23:16:42 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - bianca
    
    2013-10-02 16:43
    
    User since
    2009-09-13
    6923 articles
    BenutzerIn
    
    Das klappt!!!!
    
    *KNUTSCH*
    10 print "Hallo"
    20 goto 10

View all threads created 2013-10-01 22:15.