Regulärer Ausdruck in Perl

Abbuzze · 28. Mai 2018

Guude,

ich habe folgenden Inhalt in einer Datei:

Code

$@MID@$: 1
Date: Thu, 10 Nov 2016 08:03:10 +0100
Author: Alex
Category: Erteilt
Subject: User1
Attachment:
Encoding: ELCode
========================================
11
22
33
44
$@MID@$: 2
Date: Thu, 10 Nov 2016 08:03:11 +0100
Author: Alex
Category: Erteilt
Subject: User2
Attachment:
Encoding: ELCode
========================================
55
66
77
88

Alles anzeigen

Benötigt wird nur der Teil hinter Subject: und alles nach den ======================================== bis zum nächsten $@MID@$.
Aussehen soll das Ergebnis so:

Code

User1
11 User1
22 User1
33 User1
44 User1
User2
55 User2
66 User2
77 User2
88 User2

Hat jemand eine Idee, wie ich das mit Perl machen kann?
Ich bekomme es nicht hin

Tschau

Abbuzze

syshack · 28. Mai 2018

Da ich mit RegEx nix am Hut habe, würde ich sowas mit einer oder zwei Schleifen lösen, welches das Inputfile z.B. zeilenweise verarbeitet und das Outputfile schreibt.
Weil der Output ja zeilenmässig ja ähnlich aufgebaut ist, musst Du nur den Usernamen zwischenspeichern und die Zeilen ignorieren, die nicht in Dein Schema passen.

Die Programmiersprache ist da eigentlich absolut egal.

markusC64 · 28. Mai 2018

Code

for $str (split(/\$\@MID\@\$/, $teststring))
{
my @res = $str =~ /Subject: ([^\n]*)(?:.|\n)*?============\n((?:.|\n)*)\n/g ;
my ($t1, $t2) = ($1, $2);
$t2 =~ s/$/ $t1/mg;
print "$t2\n";
}

Dekay · 28. Mai 2018

Ich hatte mal schnell was geschrieben, aber inzwischen gibt ja schon Antworten.

Perl

#!/usr/bin/perl
use strict;
use warnings;
my $file = 'text';
open my $info, $file or die "Could not open $file: $!";
our $subject='';
while( my $line = <$info>) {
if ( $line =~ /Subject:/ ){
$subject = $line;
$subject =~ s/Subject: //g;
print $subject;
chomp $subject;
}
if ( $line =~ /^\d*$/ ) {
chomp $line;
print $line." ".$subject."\n";
}
}
close $info;

Alles anzeigen

Abbuzze · 28. Mai 2018

Guude,

danke erst mal für die Antworten.
Bei dem Code von markusC64 bekomme ich gar kein Resultat.

Der Code von Dekay funktioniert.
Jetzt versuche ich ihn zu verstehen.

Tschau

Abbuzze

markusC64 · 28. Mai 2018

Dann tippe ich bei meinem Code mal auf Line-Ending-Sachen: \r\n vs \n... Wenn ich bei mir testweise die Lineedings nach "\r\n" ändere, bekomme ich auch kein Resultat.

Da hilft eine Vorbearbeitung des Strings mittels:
teststring =~ s/\r//g;
was einfach alle \r rauslöscht...

Abbuzze · 28. Mai 2018

Guude,

der Code von Dekay funktioniert leider nur in diesem Beispiel.
Lese ich die "richtige" Datei ein, werden nur die User ausgegeben.

Sorry markusC64 ich habe keine Ahnung, was ich damit anfangen soll.

Tschau

Abbuzze

Dekay · 28. Mai 2018

Der Code geht davon aus, dass die Zahlen am Beginn der Zeile stehen und nichts mehr dahinter kommt.
Vielleicht ist das bei anderen Daten nicht mehr so, so dass der Regex angepasst werden muss...

$line =~ /^\d*$/

^ - Beginn der Zeile
\d* - eine dezimale Zahl, wo die Länge egal ist
$ - Ende der Zeile

Abbuzze · 28. Mai 2018

Guude,

das hätte sogar ich sehen müssen.
Sorry. Ich mache da jetzt schon so lange mit rum und bekomme nichts mehr gebacken.

Statt der Zahlen kann in den Zeilen alles stehen.
Also Zahlen, Buchstaben und Sonderzeichen.

Tschau

Abbuzze

Dekay · 28. Mai 2018

Okay, dann muss der Regex angepasst werden, nur wenn alles vorkommen kann, dann matched natürlich auch alles.
Also jede Zeile. Dann muss man versuchen ein anderes Kriterium zu finden. z.B. auf die Zeile mit den
= Zeichen. Ist das dann immer gleich? Also immer alle Zeilen ausgeben zwischen
======================================== und $@MID@$: nur mit angehängtem Subject?

Abbuzze · 28. Mai 2018

Guude,

ja diese Zeilen Fangen immer so an:

Code

$@MID@$: 1
Date: Thu, 10 Nov 2016 08:03:10 +0100
Author: Alex
Category: Erteilt
Subject: User1
Attachment:
Encoding: ELCode
========================================

davon wird nur User 1 benötigt und alles was nach den ======================================== bis zum nächsten $@MID@$: kommt.

Tschau

Abbuzze

Dekay · 28. Mai 2018

Mal das probieren?

Perl

#!/usr/bin/perl
use strict;
use warnings;
my $file = 'text';
open my $info, $file or die "Could not open $file: $!";
our $subject='';
our $trenn1='========================================';
our $trenn2='\$@MID@\$:';
our $toggle=0;
while( my $line = <$info>) {
if ( $line =~ /Subject:/ ){
$subject = $line;
$subject =~ s/Subject: //g;
print $subject;
chomp $subject;
}
if ( $line =~ $trenn2 ) {$toggle=0;}
if ( $toggle == 1 ) {
chomp $line;
print $line." ".$subject."\n";
}
if ( $line =~ $trenn1 ) {$toggle=1;}
}
close $info;

Alles anzeigen

Abbuzze · 28. Mai 2018

Guude Dekay,

so funktioniert es.
Ich habe es so gemacht:

Perl

#!/usr/bin/perl
open ( FILE, "test.txt" );
while ( <FILE> ) {
$line = $_;
chomp ( $line );
if ( $line =~ /MID/ || /Date/ || /Author/ || /Category/ || /Attachment/ || /Encoding/ || /========================================/ ) {
next;
}
if ( $line =~ /Subject: (.*)/ ) {
$user = $1;
print "$user\n";
next;
}
print "$line $user\n";
}
close FILE;

Alles anzeigen

Vielen Dank für die Tipps an alle.

Tschau

Abbuzze

Dekay · 28. Mai 2018

Jo, is kürzer

Abbuzze · 28. Mai 2018

Guude,

eventuell kann mir aber jemand beim nächsten Problem helfen?!?
Ich habe in einer MYSQL Datenbank eine Tabelle mit 3 Spalten.
userID, username und test.
Die Spalte username ist wie der Name schon sagt mit Namen gefüllt.
In die Tabelle test steht ein beliebiger Text.
Wie kann ich etwas zu diesem Text hinzufürgen?

Beispiel:
In username steht Abbuzze.
In test steht:
Das
ist
ein Test.

Wie kann man bei Abbuzze "Mfg Abbuzze" zu dem Text in der Spalte test hinzufügen?

Tschau

Abbuzze

syshack · 28. Mai 2018

Ah DAS meinst du mit "Hinzufügen"...
Ich hatte es so verstanden, dass Du zusätzliche Datensätze einfügen (INSERTs) willst.

Du meinst einen bestehenden Feldinhalt mit einem Wert updaten:

SQL

UPDATE `myDB`.`myTable`
SET `test` = `test` + 'Mfg Abbuzze'
WHERE `username` = 'Abbuzze';

Das funktioniert solange Du nur varchar Felder hast. Bei numerischen Feldern müsste man noch Typumwandlungen machen mit CAST oder CONVERT (je nachdem was davon MySQL versteht, das ist MSSQL Syntax).

Abbuzze · 28. Mai 2018

Guude,

das Feld test ist ein TEXT Feld.

Tschau

Abbuzze

syshack · 28. Mai 2018

Zitat von Abbuzze

Guude,

das Feld test ist ein TEXT Feld.

Tschau

Abbuzze

Alles anzeigen

Das musst Du ausprobieren. Wenn TEXT ein "unlimitiertes" Textfeld ist, wo man ganze Romane reinkopieren kann, könnte es Probleme geben.
Solche Feldtypen haben gewisse Einschränkungen.
Ansonsten ist varchar(Zeichenlänge) und char(Zeichenlänge) sinnvoller, wenn Du das selbst bestimmen kannst.

varchar(10) füllt das Feld mit genau der Anzahl Buchstaben wie der Inhalt, z.B. "Abbuzze" = 7 Zeichen
char(10) füllt das Feld mit Leerzeichen nach dem Inhalt. Es ist also immer genauso lang wie der Maximalwert der Felddefinition, also z.B. hier mit Inhalt "Abbuzze___" = 10 Zeichen

Dann gibt es noch die 2-Byte Varianten wie nchar und nvarchar für Internationale Zeichen.

Abbuzze · 28. Mai 2018

Guude,

das funktioniert leider selbst mit varchar nicht.
In dem Beld hatte ich "Abbuzze" drin stehen.
Nachdem ich

SQL

UPDATE `myDB`.`myTable`
SET `test` = `test` + 'blabla'
WHERE `username` = 'Abbuzze';

gemacht habe, stand "0" in dem Feld.

Tschau

Abbuzze

Dekay · 28. Mai 2018

Kling aber eigentlich schon richtig, was syshack gesagt hat.
Du kannst auch mit concat() arbeiten,

update table set test=concat(test,'blablabla') where username='Abuzze';