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
GELÖST

In Textdatei nach String suchen und diesen als Variable weiterverarbeiten

Frage Entwicklung Perl

Mitglied: hoko

hoko (Level 1) - Jetzt verbinden

09.10.2014, aktualisiert 10.10.2014, 1469 Aufrufe, 4 Kommentare

Hallo,

Ich möchte in einem Pelrscript eine Textdatei nach einem String durchsuchen und diesen dann weiterverarbeiten.
Der zu suchende Bereich ist vorne und hinten durch "#" begrenzt. Der Text wird anscheinend auch gefunden, aber ich bekomme als Ergebnis (TEXT1) aber nur 1 angezeigt.
Es sollte aber die Koordinate - in diesem Fall N50°06.44E008°40.30 als TEXT1 übergeben werden.


Hier mein Scriptentwurf
01.
#!/usr/bin/perl 
02.
use utf8; 
03.
use strict; 
04.
use warnings; 
05.
 
06.
open (FH, "meldung.txt"); 
07.
undef $/; 
08.
my $TEXT=<FH>; 
09.
if ($TEXT =~ /#(.+?)#/) { 
10.
print "Text gefunden" 
11.
12.
my $TEXT1 = $TEXT =~ /#(.+?)#/; 
13.
print $TEXT1; 
14.
 
15.
close FH;  
16.
 
Die Textdatei meldung.txt sieht in etwa so aus:
01.
123445894 
02.
erfsafoaeierowuft9pastrhjw 
03.
e9ru234234 
04.
ierohwe8frhz0z8hrdf 
05.
dfhaodfh: #N50°06.44E008°40.30# 
06.
he8r0er 
07.
 
08.
8erhz 2345r7´0 
09.
 
10.
dhferz3r 
11.
 
Danke & Gruß
hoko
Mitglied: colinardo
LÖSUNG 09.10.2014, aktualisiert 10.10.2014
Hallo hoko,
aber ich bekomme als Ergebnis (TEXT1) aber nur 1 angezeigt.
Deine Zeile:
my $TEXT1 = $TEXT =~ /#(.+?)#/; 
macht ja nur einen Vergleich, der eben 1 (True) zurückliefert wenn ein Match gefunden wurde. Der Submatch wird bei jedem Vergleich in der Variablen $1 gespeichert, wobei 1 die Nummer des Submatches ist.

Für ein Pattern-Matching mit dem Submatch als Ergebnis kannst du es also so machen:
01.
my $TEXT1; 
02.
if ($TEXT =~ m/#(.+?)#/) { 
03.
  $TEXT1 = $1; 
04.
  print $TEXT1; 
05.
}
oder wenn du nicht mit den globalen Variablen $x arbeiten willst lässt sich das Ergebnis auch direkt einer Liste zuweisen.
($TEXT1) = $TEXT =~ m/#(.+?)#/;
Du könntest damit auch so etwas machen:
($LAT,$LNG) = $TEXT =~ m/#([NS][^EW]+)([EW].+?)#/;
um Breiten- und Längengrad direkt separaten Variablen zu zuweisen.

Grüße Uwe
Bitte warten ..
Mitglied: hoko
10.10.2014 um 10:21 Uhr
Hallo Uwe,

vielen Dank. Das leuchtet ein.

Wenn ich aber jetzt mehrere Teilen aus der Datei übergeben möchte:

01.
my $FILE = "$ARGV[0]";    # Datei wird beim Start mitgegeben 
02.
open (FH, $FILE); 
03.
undef $/; 
04.
my $TEXT=<FH>; 
05.
 
06.
my $TEXT1= $TEXT =~ /#(.+?)#/; 
07.
$TEXT1= $1; 
08.
print $TEXT1; 
09.
 
10.
my $TEXT2= $TEXT =~ /110          :(.*)/; 
11.
$TEXT2 = $1; 
12.
print $TEXT2; 
13.
 
14.
######################## 
15.
#usw. mit diversen Abfragen. 
bekomme ich ja jedesmal nur $1 also die Koordinate als $TEXT1 und $TEXT2 angezeigt. Wird die nicht überschrieben oder
Kannst du mir sagen, wie ich das lösen kann?

Vielen Dank & Gruß
hoko
Bitte warten ..
Mitglied: colinardo
LÖSUNG 10.10.2014, aktualisiert um 12:45 Uhr
Zitat von hoko:
Wenn ich aber jetzt mehrere Teilen aus der Datei übergeben möchte:
Dazu musst du den Modifizierer g = Global für den Regex Part verwenden und dann das Ergebnis einem Array zuweisen, welches du dann mit einer Schleife durchläufst.
Ohne den Modifizierer g wird ansonsten immer nur der erste gefundene Match zurückgeliefert.
01.
@matches  = ($TEXT =~ m/#(.+?)#/g); 
02.
$i = 0; 
03.
while ($i <= $#matches){ 
04.
  print "$matches[$i++]\n"; 
05.
}
$#matches liefert die Anzahl an Array-Elementen. Zur Arbeit mit Listen und Arrays siehe: http://www.perlboard.de/perlguide/Kap04.html
$matches[$i++] gibt das jeweilige Array-Element aus und inkrementiert in einem Schritt die Laufvariable $i++.

Grüße Uwe
Bitte warten ..
Mitglied: hoko
10.10.2014 um 12:45 Uhr
Danke das war es.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

Batch & Shell
gelöst Teil eines Strings als Variable setzen (2)

Frage von tHe-jAy zum Thema Batch & Shell ...

Batch & Shell
Spoiler in textdatei automatisch über Powershellscript einfügen (5)

Frage von Dr.Byte zum Thema Batch & Shell ...

Microsoft Office
Excel: Wert aus mehreren Datein suchen und zugehörige Werte ausgeben (10)

Frage von RubyLissy zum Thema Microsoft Office ...

Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (17)

Frage von Zockervogel zum Thema Router & Routing ...

Basic
Programmierung von Windows Programmen (8)

Frage von Ghost108 zum Thema Basic ...