Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Wort aus Datei herausfiltern von x bis y

Frage Entwicklung Perl

Mitglied: poopie

poopie (Level 1) - Jetzt verbinden

11.05.2009, aktualisiert 10:32 Uhr, 4228 Aufrufe, 7 Kommentare

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
Mitglied: MKzero
11.05.2009 um 10:37 Uhr
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 ;)
Bitte warten ..
Mitglied: Cubic83
11.05.2009 um 11:14 Uhr
Du musst den Beitrag nicht jeden Tag erneut schreiben:

Link
Bitte warten ..
Mitglied: poopie
11.05.2009 um 11:27 Uhr
@MKzero
Dann guck ich mal ob ich einen Online-Generator finde und probier es mal aus.

@Cubic83
Ich hatte den Beitrag schonmal im Batch Bereich gepostet.
Aber damit ist es wohl nicht mahcbar.
Also hab ich dort auch geschreiben das dort zugemacht werden kann.
Bitte warten ..
Mitglied: MKzero
11.05.2009 um 11:32 Uhr
Hier mal der den ich meistens verwende:

http://www.txt2re.com/

auf den ersten Blick etwas kompliziert aber ansonsten seehr nützlich
Bitte warten ..
Mitglied: poopie
11.05.2009 um 12:10 Uhr
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;
Bitte warten ..
Mitglied: dog
11.05.2009 um 13:54 Uhr
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
Bitte warten ..
Mitglied: poopie
11.05.2009 um 22:31 Uhr
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;
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst In einer Matroska-Datei eine Audio-Spur suchen (4)

Frage von Spider.Mann zum Thema Batch & Shell ...

Windows 10
Komulatives Update in WIM Datei einbinden (3)

Frage von kingsepp zum Thema Windows 10 ...

Server-Hardware
Kann wav Datei im Handy nicht öffnen (2)

Frage von Chrisch zum Thema Server-Hardware ...

Datenbanken
Access 2016 vertauscht Monat und Tag in meiner CSV Datei (1)

Frage von iGordon zum Thema Datenbanken ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(6)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Heiß diskutierte Inhalte
Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Linux
gelöst Google Chrome startet nicht (12)

Frage von Thomas91 zum Thema Linux ...