Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 1498 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
Jede Zeile einer Textdatei in eigene Variable speichern (5)

Frage von tomaschku zum Thema Batch & Shell ...

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
gelöst String automatisch anpassen (erweitern oder kürzen) (9)

Frage von CreatorX zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Sicherheit

Eventuell neue Lücke in Intels ME

Information von sabines zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Humor (lol)
Freidach Beitrag (39)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Windows 7
SSD - Win7 Lags (19)

Frage von ph5555 zum Thema Windows 7 ...

Firewall
Firewall Firmeneimsatz (16)

Frage von wiesi200 zum Thema Firewall ...