Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]10858[/thread]

regex ermitteln ob fqdn



<< >> 4 Einträge, 1 Seite
Gast Gast
 2007-11-22 11:59
#102761 #102761
Hi,

ich habe eine Variable die folgende Werte annehmen kann:
z.B. host, host.local, host.local.de, host31.local oder host 54.local.de usw.

Ich möchte nun rausfinden ob der Wert der variable immer mindestens ein Punkt hat, also nur der Wert host soll einen Treffer ergeben.

Folgendes ging leider nicht
if ( $host =~ m/[^\.]/ ) {
#host ist kein fqdn
}

Wie kann ich das realisieren?

thx vicodas
renee
 2007-11-22 12:04
#102763 #102763
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Da kann man viele Wege gehen...

*) RegEx:
Code (perl): (dl )
1
2
3
if( $host !~ /\./ ){
    print "Kein Punkt in $host\n";
}


*) index:
Code (perl): (dl )
1
2
3
if( index $host, '.' == -1 ){
    print "Kein Punkt in $host\n";
}


*) unless + RegEx:
Code (perl): (dl )
1
2
3
 unless( $host =~ /\./ ){
    print "Kein Punkt in $host\n";
}


....
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
GwenDragon
 2007-11-22 12:08
#102765 #102765
User since
2005-01-17
14548 Artikel
Admin1
[Homepage]
user image
Code (perl): (dl )
1
2
3
if ( $host !~ /\./ ) { # enthält keinen .
#host ist kein fqdn
}
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

vicodas
 2007-11-22 13:04
#102770 #102770
User since
2007-11-22
1 Artikel
BenutzerIn
[default_avatar]
danke für die vielen Tips !
<< >> 4 Einträge, 1 Seite



View all threads created 2007-11-22 11:59.