datei oeffnen:

oder:


den inhalt einer datei kannst du nach dem open folgendermaszen durchlaufen:

dazu noch mehr steht auch in meiner "Einfuehrung in Perl", die du auf meiner HP unter Vortraege findest.

phaylon hat Recht, es hängt primär davon ab wie deine Textdatei aussieht. Mal ein Beispiel wo alles simpel untereinander steht (würde YAML als Alternative empfehlen):

EDIT: Typo fixed\n\n

<!--EDIT|Ronnie|1120665609-->

hui ja das hilft mir nun ..thx ^^

aber ein paar zeichen die ich schon öfters gesehen habe, aber die ich nicht verstehe bzw nicht weiß was sie heißen - vl. kann mir ja da auch noch wer helfen ^^:

@_ <-- was heißt das ?
my $that = shift; <-- was bedeutet hier das 'shift' ?
^ <-- das hab ich auch schon oft gesehn und hab auch kA was das heißen soll

mfg

[quote=Derunwissende,06.07.2005, 20:25]@_ <-- was heißt das ?
my $that = shift; <-- was bedeutet hier das 'shift' ?
^ <-- das hab ich auch schon oft gesehn und hab auch kA was das heißen soll[/quote]
@_ ist ein Array und enthält alle an eine Funktion übergebenen Parameter.
shift entnimmt einem Array das erste Element, ohne weitere Angabe @_.
^ ist oft das Zeichen für den Zeilenanfang in einem regulären Ausdruck.

Unter http://perldoc.perl.org/index-language.html sind die Bereiche perlvar, perlfunc und perlre als Nachschlagewerk empfohlen.

So, nun nehmen wir mal an ich hab ne textdatei[steht unten ^^] ..und aus dieser textdatei will ich das:
IP-Adresse=123.123.12.1
Subnetzmaske=111.111.111.0
Standardgateway=111.111.1.111

ausgegeben wird ... da muss man doch zuerst zu 'IP-Adresse' "laufen" und dann die punkte bzw den doppelpunkt überspringen bis zu der adresse und dann bis zum ende der zeile..aber wie speichert man das dann in ne variable und gibt es dann aus ? bzw wie kommt man zuerst überhaupst zu 'IP-Adresse' ? und dann wie überlest man die pünktchen >: ? das mit den pünktlein überlesen hab ich schon mit '.*' usw weiter probiert - hat aber nicht funktioniert >: ..naja, vielleicht kann mir wer helfen

mfg


------------------------------------------------------------------------------------------
-------------------------

Windows-IP-Konfiguration


Ethernetadapter Drahtlose Netzwerkverbindung 2:

Verbindungsspezifisches DNS-Suffix:
IP-Adresse. . . . . . . . . . . . : 123.123.12.1
Subnetzmaske. . . . . . . . . . . : 111.111.111.0
Standardgateway . . . . . . . . . : 111.111.1.111

Ethernetadapter LAN-Verbindung:

Medienstatus. . . . . . . . . . . : Es besteht keine Verbindung

Im Prinzip sind die wichtigsten Informationen alle hier versammelt. Mach einen Entwurf, zeig uns wo es hängt und wir helfen dir weiter!

mh..hab mich heute schon 2-3h gespielt ..im prinzip weiß ich nicht wie ich anfangen soll - ob ich da ne variable anlegen soll, die das durchläuft und wenn ich da ne variable anlegen soll -wie erstellt die dann das '=' und gibt die zahlen aus ?

hmpf

[quote=Strat,06.07.2005, 17:19]dazu noch mehr steht auch in meiner "Einfuehrung in Perl", die du auf meiner HP unter Vortraege findest.[/quote]
Lies Strats Tutorial, dass eine hervorragende Einführung in Perl in deutscher Sprache ist: http://www.fabiani.net/talks/strat_perl_intro_v0.04.pdf

[quote=renee,07.July.2005, 18:35][/quote]
so hab das nun mal probiert - hab aber kA wie ich da nen fehler behebn kann und so ^^..eigentlich müsste es mir die Zeile wo die IP-Adresse ausgeben ...gibt aber gar nichts aus ^^! Eigentlich sollte es 'IP-Adresse=123.123.12.1' ausgeben ..aber naja..>:! Eventuell kann ja wer nen anfänger helfen ^^

mfg

Quote

#!/usr/bin/perl -w
use strict;


my $input;
open($input, "<", "Datei.txt") or die "kann Datei.txt nicht lesen: $!\n";

while(<$input>) {
my ($ip) = $line =~ /IP-Adresse\.((?:\d+\.)+\d+)/;
print $ip;


}

close($input);