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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 115733
Url: https://administrator.de/contentid/115733
Ausgedruckt am: 22.11.2024 um 13:11 Uhr
7 Kommentare
Neuester Kommentar
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;
