7
Wort aus Datei herausfiltern von x bis y
Hallo,
ich würde gerne ein Wort aus einer Textdatei herausfiltern und in eine neue Datei speichern.
Die datei enthälter unter anderen folgendes
<option selected="selected">MEIN TEXT</option>
Und MEIN TEXT würde ich gerne abspeichern.
Meine Frage ist ob das machbar ist und wenn ja, wie?
Vielen Dank für's lesen. und evtl. antworten
ich würde gerne ein Wort aus einer Textdatei herausfiltern und in eine neue Datei speichern.
Die datei enthälter unter anderen folgendes
<option selected="selected">MEIN TEXT</option>
Und MEIN TEXT würde ich gerne abspeichern.
Meine Frage ist ob das machbar ist und wenn ja, wie?
Vielen Dank für's lesen. und evtl. antworten
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 115733
Url: https://administrator.de/contentid/115733
Printed on: April 24, 2024 at 16:04 o'clock
7 Comments
Latest comment
Schon mal über RegEx nachgedacht? Damit lässt sich das recht einfach machen und wenn du damit nicht so firm bist gibts sogar Online-Generatoren ;)
Du musst den Beitrag nicht jeden Tag erneut schreiben:
Wort aus Datei herausfiltern von Zeichen x bis y
Wort aus Datei herausfiltern von Zeichen x bis y
Hier mal der den ich meistens verwende:
http://www.txt2re.com/
auf den ersten Blick etwas kompliziert aber ansonsten seehr nützlich
http://www.txt2re.com/
auf den ersten Blick etwas kompliziert aber ansonsten seehr nützlich
Ich hab mir das was zusammengebastelt, was noch nicht so recht funktionieren will.
open (FILEHANDLE,"<datei.txt");
my $string = do { local $/; <FILEHANDLE> };
my $found;
$_ = '$string';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
open (FILEHANDLE,"<datei.txt");
my $string = do { local $/; <FILEHANDLE> };
my $found;
$_ = '$string';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
Wenn das eine echte XML-Datei ist kannst du es aufgeben, da mit RegEx rumzubasteln.
Da steckst du ganz schnell in einer Sackgasse.
Du brauchst einen "echten" XML-Parser.
http://lmgtfy.com/?q=perl+parse+xml
Grüße
Max
Da steckst du ganz schnell in einer Sackgasse.
Du brauchst einen "echten" XML-Parser.
http://lmgtfy.com/?q=perl+parse+xml
Grüße
Max
Wenn ich das wie folgt mache klappte es teilweise
so funktioniert es
my $found;
$_ = '<option selected="selected">MEIN TEXT</option>';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
so leider nicht, doch warum nicht?
open (FILEHANDLE,"<datei.txt");
my $string = do { local $/; <FILEHANDLE> };
my $found;
$_ = '$string';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
so funktioniert es
my $found;
$_ = '<option selected="selected">MEIN TEXT</option>';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
so leider nicht, doch warum nicht?
open (FILEHANDLE,"<datei.txt");
my $string = do { local $/; <FILEHANDLE> };
my $found;
$_ = '$string';
if( /\>{1}(.*?)\<{1}/ ) { $found = $1; }
open (out,">test.txt");
print out $found;
