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, 4225 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
Batch-Variable nach Stichworten aus TXT Datei durchsuchen (3)

Frage von Markus5579 zum Thema Batch & Shell ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Informationsdienste
gelöst Dienstplan als ics bzw. ical-Datei zur Verfügung stellen (7)

Frage von FreshRawrr zum Thema Informationsdienste ...

Internet
Selbstgehostete B2B Datei-Sharing-Portale wie ProjectSend (3)

Frage von Hannes-Schurig zum Thema Internet ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...