Zeichen in Datei bzw. Array ersetzen (gelöst) (Allgemeines zu Perl)

[thread]15441[/thread]

Zeichen in Datei bzw. Array ersetzen [gelöst]

Leser: 24

Articles: hide open all | hide show old branches

+8 replies
Gast Stefan

2010-09-05 12:17
Hallo zusammen,

ich habe momentan ein Problem mit einer Textdatei, die ich einlesen und in eine DB schreiben muss.
Die Datei lese ich so ein
Code: (dl )

1 2 3

open (in,"<./INPUTFILE"); @datei= <in>; close in;
Und schreibe sie später so in die DB (handle create hab ich mal ausgelassen)
Code: (dl )

$sth->execute("@datei");
soweit so gut, klappt.
Mein Problem ist, dass ich nun Zeichenketten in der Datei ersetzen muss, bevor ich sie in die DB schreibe. Die Datei sieht inhaltlich so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

TEXTTEXTTEXTTEXTTEXTTEXT TEXTTEXTTEXTTEXTTEXTTEX TEXTTEXTTEXTTEXTTEXTTEX TEXTTEXTTEXTTEXTTEXTTEX TEXTTEXTTEXTTEXTTEXTTEX TEXTTEXTTEXTTEXTTEXTTEXT TEXTTEXTTEXTTEXTTEXTTEXT TEXTTEXTTEXTTEXTTEXTTEXT TEXTTEXTTEXTTEXTTEXTTEXT
Es gibt 2 Textblocks, getrennt durch zwei \n.
Ab Zeile 2 des 1. Blocks beginnt jede Zeile mit einem Leerzeichen, das muss entfernt werden.
Der 2. Block darf entgegen dieser Regel durchaus mit einem Leerzeichen beginnen.

Daran scheitere ich nun.
Hat jemand eine Idee wie das in Perl gelöst werden kann?

Danke!
Stefan
Last edited: 2010-09-05 12:22:25 +0200 (CEST)
- renee
  
  2010-09-05 12:40
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Die Leerzeichen kommen daher, dass "@datei" die Elemente des Arrays mit einem Leerzeichen "verbinden" (schau Dir dazu mal in perlvar den Abschnitt zu $" an).
  
  Wenn Du die Datei sowieso nur als String brauchst, würde ich die Datei so einlesen:
  
  Code (perl): (dl )
  
  my $file_content = do{ local( @ARGV,$/) = './INPUTFILE'; <> };
  
  oder das Modul File::Slurp verwenden.
  
  Dann im execute natürlich die Variable $file_content übergeben.
  
  Und zum Thema "open" solltest Du Dir vielleicht mal http://reneeb-perlblog.blogspot.com/2009/09/versch... durchlesen...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- topeg
  
  2010-09-05 12:44
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Verändere den Inputseparator:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $data; # immer schön mit Warnungen arbeiten! open (my $in,'<',"./INPUTFILE") or die("ERROR OPEN FILE ($!)\n"); { # lokal den Inputseparator verändern "\n" ist default. local $/=undef; # alles einlesen $data= <$in>; } close $in;
  
  später:
  
  Code (perl): (dl )
  
  $sth->execute($data);
  
  Last edited: 2010-09-05 12:46:06 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2010-09-05 12:46
  User since
  2005-01-17
  14538 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  open (my $in,"<", "./INPUTFILE") or die $!; local $/ = "\n\n"; # Zeilentrenner sind zwei Newline my @datei= <$in>; close $in or die $!; my $index = 0; # Zähler für Blocks for (@datei) { s/^\s//gm # ersetze im Inhalt des Arrayeintrags das Leerzeichen am Anfang if ($index % 2 == 0); # nur den geradzahligen Block des Arrays (also Index 0, 2, 4, ...) $index++; }
  
  Ich weiß allerdings nicht so genau, was du an die Datenbank wirklich übergeben willst, deswegen musst du wohl die Inhalte von @array noch aufbereiten.
  
  Falls die Leerzeile stört, kannst du noch
  
  Code (perl): (dl )
  
  s/^\n\n//gm; # ersetze im Inhalt des Arrayeintrags das Leerzeichen am Anfang
  
  nach Zeile 9 einfügen.
  Last edited: 2010-09-05 13:40:01 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Stefan
    
    2010-09-05 16:09
    
    Erstmal vielen Dank für die vielen Vorschläge!
    Um die letzte Frage zu beantworten: In die DB muss genau das rein was und wie es in der Textdatei steht. Also mit Umbrüchen usw.
    
    Ich werde mir die Links heute Abend mal zu Gemüte führen und die Vorschläge ausprobieren, nochmal danke!
    Tschau
    Stefan
    Last edited: 2010-09-05 16:18:32 +0200 (CEST)
    - GwenDragon
      
      2010-09-05 16:23
      
      User since
      2005-01-17
      14538 Artikel
      Admin1
      
      Guest Stefan
      Erstmal vielen Dank für die vielen Vorschläge!
      Um die letzte Frage zu beantworten: In die DB muss genau das rein was und wie es in der Textdatei steht. Also mit Umbrüchen usw.
      Dann habe ich das komplett falsch verstanden.
      Vergiss meinen Tipp.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Stefan
    
    2010-09-05 16:24
    
    Nochmals ein schnelles Hallo,
    
    habe den Vorschlag von topeg rasch getestet, funktioniert ganz ausgezeichnet!
    Vielen Dank, wieder was gelernt.
    
    Grüße
    Stefan
    Last edited: 2010-09-05 16:29:17 +0200 (CEST)
    - hlubenow
      
      2010-09-06 01:47
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Ist zwar schon gelöst, aber am einfachsten wäre wahrscheinlich, es mit Tie::File zu machen: Damit kann man die Zeilen einer Textdatei direkt in einer Liste ansprechen. Oh, aber sehe gerade, Du willst in eine Datenbank schreiben.
      Na dann ist's schon gut ...
      Last edited: 2010-09-06 01:49:15 +0200 (CEST)

View all threads created 2010-09-05 12:17.