[gelöst] perl wörter in einer Zeile vertauschen?

[Mister L]

Hallo,
Ich brauche Starthilfe für Perl.

Es sollen zwei Wortgruppen aus einer Zeile vertauscht werden.
Die Bash an sich erweist sich dazu als ungeeignet.
Die Zeilen sehen alle so aus

Code: Alles auswählen

stock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg

Den Text habe mit Perl in der Bash biszu der Form bearbeitet, das ging recht schön

Code: Alles auswählen

perl -p -i -e 's/DIES/JENES /g' ~/datei

Nur weiter komme ich nicht

Code: Alles auswählen

perl -p -i -e 's/(stock[-_]*\w+.svg)(\w+[-_*].svg)/$2 $1 /g' ~/datei

Ich habe versucht die beiden Wörte als Variblen einzufangen und wieder hinzuschreiben, aber das geht nicht.
Mein Bash Ansatz war die Zeilen einzeln zu lesen und die Wörter in eine Variable zu isolieren.

Kann ich eine Schleife überhaupt noch mit perl -e formulieren?
Oder muß ich dazu ein Script schreiben.
Und wie kann ich meine Regex erst mal so prüfen (ohne Schleife ohne alles)?

Für mich ist Perl syntax ziemlich verwirrend, aber vielleicht ist es ja gar nicht so schwer;
wenn mir jemand auf die Sprünge hilft.

Grüße Michel

[Meillo]

Es sollen zwei Wortgruppen aus einer Zeile vertauscht werden.

Was heißt das genau? Mach ein Beispiel.

Die Zeilen sehen alle so aus

Code: Alles auswählen

stock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg

Meinst du damit 'wort-leerzeichen-wort'? Können die Wörter selbst Leerzeichen enthalten?

Du musst (lernen) die Gegebenheiten und Anforderungen genauer zu formulieren.


Ich habe jetzt einfach mal _geraten_ was du willst.
Dieser Befehlt vertauscht die Reihenfolge von zwei Wörtern in einer Zeilen. Wenn in der Zeilen nur genau zwei Wörter stehen und genau ein Leerzeichen das die Wörter trennt. (Wenn du uns gesagt hast was _genau_ du willst und wie _genau_ die Eingangsdaten aussehen kann man den Befehl noch anpassen.)

Code: Alles auswählen

<input  sed 's/\(.*\) \(.*\)/\2 \1/' >output

[yeti]

...mal zur Rehabilitation der Shell:

Code: Alles auswählen

echo -e '1 2\n3 4' | while read a b ; do echo $b $a ; done

[roli]

Hi,

mir ist nicht klar was du als Ergebnis erwartest. Ist:

Code: Alles auswählen

stock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg

Soll 1):

Code: Alles auswählen

go-bottom.svg stock_bottom.svg
mail-send.svg stock_mail-send.svg

Soll 2):

Code: Alles auswählen

stock_mail-send.svg mail-send.svg
stock_bottom.svg go-bottom.svg

Das koenntest du in der Shell mittesl "tac" erreichen
...

Wie auch immer, es gibt eine Funktion namens reverse in Perl.

[nepos]

Beschreib doch bitte mal verständlich, wie das Ergebnis aussehen soll. Dann kann dir sicherlich jemand gezielt helfen.

[Duff]

Um das Ganze nun auch mal etwas umständlicher in perl auf einfache Art und Weise zu realisieren:
(leider kein Einzeiler, müsste aber auch gehen und kann ich dies in perl nicht so gut)

Code: Alles auswählen

daniel@daniel-laptop:/tmp$ cat test
tock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg
daniel@daniel-laptop:/tmp$ ./test.pl 
Original: 
tock_bottom.svg go-bottom.svg
Vertauscht: 
go-bottom.svg tock_bottom.svg

Original: 
stock_mail-send.svg mail-send.svg
Vertauscht: 
mail-send.svg send.svg

daniel@daniel-laptop:/tmp$ cat test.pl
#!/usr/bin/perl -w

use strict;

my $datei="test";

open(FH,"<",$datei);
while(<FH>) {
	print "Original: \n";
	print;
	$_ =~ s/([A-Za-z0-9_]+\.\w+)\s+(.*)/$1,$2/g;
	my $erster=$1;
	my $zweiter=$2;
	print "Vertauscht: \n";
	print $zweiter," ", $erster, "\n";

	print "\n";
}
close(FH);

Es eigentlich bei allen Beispielen später auf den richtigen reglären Suchausdruck an.

[nepos]

Code: Alles auswählen

$ cat bla.txt
stock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg

Code: Alles auswählen

$ perl -lne 'print join(" ", reverse split)' < bla.txt
go-bottom.svg stock_bottom.svg
mail-send.svg stock_mail-send.svg

[Duff]

@nepos: So ist es natürlich eleganter!!! (und schneller)

[Mister L]

Vielen Dank an alle.
Und sorry, ich versuch in Zukunft die Sache präziser anzugehen; sowohl bei der Fragestellung!
als auch bei der Lösung des Problems selbst.
Aus

Code: Alles auswählen

stock_bottom.svg go-bottom.svg
stock_mail-send.svg mail-send.svg

sollte

Code: Alles auswählen

go-bottom.svg stock_bottom.svg
mail-send.svg stock_mail-send.svg

werden.

Fuktionieren tun alle drei Lösungen

Code: Alles auswählen

cat datei| while read a b ; do echo $b $a ; done
cat datei| sed 's/\(.*\) \(.*\)/\2 \1/' >datei.neu

sind halt recht leicht zu handhaben;und ein Beispiel,daß in der Bash ist weit mehr möglich als man gemeinhin denkt.

Das Perl-script funktioniert auch nachdem in die erste regex noch ein '-' eingefügt habe

Code: Alles auswählen

([A-Za-z0-9_-]+\.\w+)

Das Script ist für diese Aufgabenstellung vielleicht mit "Kanonen auf Spatzen geschossen"
aber für mich trotzdem Gelegenheit mich mal damit zu beschäftigen (und ein Erfolgserlebnis).

Danke
Michel

[Mister L]

Dank auch an nepros für deinem Einzleier.
Allerdings brauch ich da 'ne Weile bis ich den Bfehl im Einzelnen verstehe.

Michel

[nepos]

Naja, so schwer zu verstehen ist es eigentlich nicht
-l schaltet den Zeilenmodus von Perl ein
-n macht quasi automatisch eine while(<>) { } Schleife, die die Daten zeilenweise einliest
-e gibt den auszuführenden Code mit
split ohne Parameter splittet $_ (da ist immer die aktuelle Zeile drin) an Spaces und liefert einen Array zurück
reverse nimmt den Array von split und dreht die Reihenfolge der Elemente um
join(" ", ...) nimmt dann wieder den Array, den reverse ausspuckt und hängt die Elemente mit einem Space wieder aneinander
print gibt das ganze dann aus.
Geht also ganz ohne komplizierte Regex, solange in den Dateinamen keine Leerzeichen enthalten sind.

[Duff]

Gute Erklärung, aber beim nächsten Mal müsste ich wieder lange überlegen um auf die einzelnen Parameter bei einem perl-Einzeiler zu kommen. Aber für solche Sachen ist er auf jeden Fall die beste, einfachste und schnellste Lösung

(ich muss mir diese 3 parameter wohl mal merken...)

[Mister L]

Noch als Nachtrag:
Danke für die Erläuterung.
Ihr werdet lachen, aber solche Sachen (kommandos) hebe ich mir erst mal auf.
Als Beispiel oder Muster - so oft braucht man ja das nicht.

Perl ist für mich noch etwas "kryptisch".
Das sind sehr viele Zeichen doppelt oder öfter in Verwendung.
Und es gibr oft mehrere Möglichkeiten um eine Sache auszudrücken (zB Deine Schleife).

Ist halt alles gewöhnungsbedürftig.

Michel

[nepos]

Perl ist für mich noch etwas "kryptisch".
Das sind sehr viele Zeichen doppelt oder öfter in Verwendung.
Und es gibr oft mehrere Möglichkeiten um eine Sache auszudrücken (zB Deine Schleife).

Ist halt alles gewöhnungsbedürftig.

Michel

Stimmt schon. Wobei man Perl so oder so coden kann. Das eine ist dann recht unleserlich, das andere kann man genauso gut verstehen, wie jede andere Hochsprache.
Und dass es meistens mehr als einen Weg gibt, nun ja, das is ja auch das Perl-Motto

[Duff]

Zum Thema perl gibt es übrigens auch ein gutes Forum [1].
Dort sind u.a. auch Wikis und Tutorials zu finden.

[1] http://www.perl-community.de/