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, 4233 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
Microsoft Office
Automatischer Datenimport aus csv Datei in Access DB - Wo zu ändern? (2)

Frage von Mejestic12 zum Thema Microsoft Office ...

Batch & Shell
gelöst Zusammenführen mehrere Felder, Datei auswählen (3)

Frage von GeoSem zum Thema Batch & Shell ...

Windows Userverwaltung
Nur eine bestimmte Datei in einem Netzlaufwerk freigeben (3)

Frage von Emheonivek zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
gelöst MS: Update-Server-Adressen OHNE Wildcards (17)

Frage von mrserious73 zum Thema Windows Update ...

Viren und Trojaner
Ransomware .nm4 (14)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...