Textdatei auslesen und Ergebnis in Tabelle speichern (gelöst) (Allgemeines zu Perl)

[thread]15429[/thread]

Textdatei auslesen und Ergebnis in Tabelle speichern [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+16 replies

hilmix

2010-09-01 15:37

User since
2010-09-01
6 Artikel
BenutzerIn

user image

Hallo,

ich möchte aus dem Text:

Code: (dl )

#
Achtnich, Martin Dr.med.
Gustav-Seitz-Str. 4 68163 Mannheim (0621) 24775
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Brand Bernhard Dr.med. u., Jakobs Christian Dr.med.
Waldstr. 143 68305 Mannheim (0621) 752034
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Dangl, Stefan Dr. med.
Grohbergstr. 9 68309 Mannheim (0621) 736800
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!

jeweils die Zeile mit Name, Anschrift und Telefonnummer in Spalten nach dem Schema

Code: (dl )

Name, Vorname | Straße | Plz | Ort | Telefon

extrahieren und das Ergebnis in eine Tabelle schreiben. Hat jemand eine Idee wie? Danke im Voraus!

Grüße hilmar
Last edited: 2010-09-01 15:42:26 +0200 (CEST)

2010-09-01 15:51

User since
2003-08-04
12208 Artikel
Admin1

also ein erster ansatz wäre:

Code (perl): (dl )

open my $fh, "<", "adressen.txt" or die $!;

local $/ = "jetzt eintragen!\n"; # als paragraphentrenner betrachten
chomp(my @p = <$fh>);

for my $paragraph (@p) {
    my (undef, $name, $address) = split /\n/, $paragraph;
    my ($street, $city, $phone) = split / (?=\d{5} |\(\d{3,5}\) )/, $address, 3;
    print "$name | $street | $city | $phone\n"
}

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

+13 replies

topeg

2010-09-01 16:08

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

So könnte es gehen:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;


my @table;
local $/='#';
while(<DATA>)
{ push(@table,[$1,$2,$3,$4,$5,$6]) if($_=~/^\s*([^,]+?)\s*,\s*([^,]+?)\n([^\s]+(?:\s+\d+)?)\s+(\d+)\s+(.+?)\s+(\(\d+\)\s+\d+)\n/s); }

print Dumper(\@table);

__DATA__
#
Achtnich, Martin Dr.med.
Gustav-Seitz-Str. 4 68163 Mannheim (0621) 24775
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Brand Bernhard Dr.med. u., Jakobs Christian Dr.med.
Waldstr. 143 68305 Mannheim (0621) 752034
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Dangl, Stefan Dr. med.
Grohbergstr. 9 68309 Mannheim (0621) 736800
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!

+4 replies
Gast hilmix

2010-09-01 18:21

Cool!! Das funzt erstmal.Danke!
Gruß
hilmar
Last edited: 2010-09-01 18:25:53 +0200 (CEST)
- +3 replies
- pq
  
  2010-09-01 18:26
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  welches denn?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Gast hilmix
    
    2010-09-01 18:48
    
    Ja, Deins funzt ja noch besser! Wenn ich das jeztzt noch so hinbekomme, dass dass in eine OOCalc Tabelle reinpasst, ist der Tag (und die Nacht) gerettet.
    
    Danke jedenfalls erstmal!!
    
    gruß
    hilmar
    Last edited: 2010-09-01 18:55:43 +0200 (CEST)
    - GwenDragon
      
      2010-09-01 18:58
      
      User since
      2005-01-17
      14785 Artikel
      Admin1
      
      Da hilft vielleicht OpenOffice::OOBuilder, das erzeugt mit OpenOffice::OOCBuilder Calc-Dokumente.
      Beispiele sind zu finden auf http://www.maygill.com/maygill_cms?130&oobex&en&&
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+8 replies

Gast hilmix

2010-09-01 18:32

Die nächste Frage muss natürlich sofort folgen. Nachdem das Ergebnis ja so:

Code: (dl )

$VAR1 = [
          [
            'Achtnich',
            'Martin Dr.med.',
            'Gustav-Seitz-Str. 4',
            '68163',
            'Mannheim',
            '(0621) 24775'
          ],
          [
            'Brand Bernhard Dr.med. u.',
            'Jakobs Christian Dr.med.',
            'Waldstr. 143',
            '68305',
            'Mannheim',
            '(0621) 752034'
          ],
          [
            'Dangl',
            'Stefan Dr. med.',
            'Grohbergstr. 9',
            '68309',
            'Mannheim',
            '(0621) 736800'
          ]
        ];

aussieht, stellt sich die Frage, wie ich das in eine Tabelle für OOCalc oder Excel reinbekomme? Also mit fünf Spalten

Code: (dl )

Name, Vorname | Straße | Plz | Ort | Telefon

Sorry, Anfänger halt :|

gruß
hilmar
Last edited: 2010-09-01 18:37:49 +0200 (CEST)

topeg

2010-09-01 19:11
User since
2006-07-10
2611 Artikel
BenutzerIn
Anstatt
Code (perl): (dl )

print Dumper(\@table);
in Zeile 12
schreibe:
Code (perl): (dl )

1 2 3 4

for my $entry (@table) { print join(' | ',@$entry)."\n"; }
+6 replies
renee

2010-09-01 21:12
User since
2003-08-04
14371 Artikel
ModeratorIn
In Excel ungefähr so:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

use Spreadsheet::SimpleExcel; my $xls = Spreadsheet::SimpleExcel->new; $xls->add_worksheet( 'Adressen' ); open my $fh, "<", "adressen.txt" or die $!; local $/ = "jetzt eintragen!\n"; # als paragraphentrenner betrachten chomp(my @p = <$fh>); for my $paragraph (@p) { my (undef, $name, $address) = split /\n/, $paragraph; my ($street, $city, $phone) = split / (?=\d{5} |$\d{3,5}$ )/, $address, 3; $xls->add_row( [ $name, $street, $city, $phone ] ); } $xls->output_to_file( 'test.xls' );
(ungetestet)

Ggf. musst Du noch das Modul Spreadsheet::SimpleExcel installieren
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/
- +5 replies
- Gast hilmix
  
  2010-09-01 21:52
  
  Das funzt auch, bis auf die Tatsache, das Umlaute falsch dargestellt werden z.B.:
  Quote
  ä = Ã¤ oder ü = Ã¼
  Noch ne Idee?
  
  gruß
  hilmar
  Last edited: 2010-09-01 21:58:23 +0200 (CEST)
  - +2 replies
  - payx
    
    2010-09-01 22:46
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    1 2 3
    
    my $x = "Ã¤Ã¼"; utf8::decode($x); print $x;
    
    HTH
    Grüße
    payx
    - hilmix
      
      2010-09-01 23:22
      
      User since
      2010-09-01
      6 Artikel
      BenutzerIn
      
      Das das utf8 ausgegeben werden soll ist mir schon klar, doch wo im skript kommt das hin?
      
      Code (perl): (dl )
      
      1 2 3
      
      my $x = "Ã¤Ã¼"; utf8::decode($x); print $x;
  - +2 replies
  - murphy
    
    2010-09-01 23:49
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Du musst vermutlich noch dafür sorgen, dass die Daten aus der Eingabedatei als UTF-8 behandelt werden. Am einfachsten lässt sich das mit einem I/O-Layer erledigen: Ersetze Zeile 7 in renees Code durch
    
    Code (perl): (dl )
    
    open my $fh, "<:encoding(UTF-8)", "adressen.txt" or die $!;
    
    When C++ is your hammer, every problem looks like your thumb.
    - hilmix
      
      2010-09-02 00:13
      
      User since
      2010-09-01
      6 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      open my $fh, "<:encoding(UTF-8)", "adressen.txt" or die $!;
      
      Super, jetzt passts!
      gruß
      hilmar

pq

2010-09-02 00:25

User since
2003-08-04
12208 Artikel
Admin1

habe den thread mal als gelöst markiert
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-09-01 15:37.