Bei Anruf Anruferbild anzeigen - #181749 (Allgemeines zu Perl)

Relais

2015-08-08 15:05

User since
2003-08-06
2246 Artikel
ModeratorIn

Keine Ironie. Ich habe noch nicht verstanden, was Du damit meinst, dass die Anrufernummer als Regex vorliegt.

Falls Du sie in eine Variable bekommen kannst, etwa mit sowas wie

Code (perl): (dl )

1
2

my $anrufernummer = '';
if ( m/(\d+)/ ) { $anrufernummer = $1 }

sie der Variablen zuweisen.

Du kannst dann den zu erwartenden Pfad zusammenbasteln:

Code (perl): (dl )

if ( $anrufernummer )
{
    my $base_path = '/Bilder/FritzCallFaces/';
    my $path = $base_path . $anrufernummer;
}

Jetzt weiss ich auch noch nicht, ob das Perl-Programm vor ort auf dem Webserver läuft, oder im Client. Wenn es da läuft, wo auch das Bild liegen sollte, kannst Du lokal testen:

Code (perl): (dl )

1
2

if ( $path and -e $path ) { # das Bild ist lokal vorhanden
}

-e testet, ob es existiert. Wahrscheinlich ist es noch viel besser zu schaun, ob es auch lesbar ist, das wäre dann -r stattdessen.

Falls nicht, kannst Du mit einem LWP-Modul den Webserver fragen, ob er das Bild hat. Und wenn nicht, dann nimmst Du das Default-Bild.
Last edited: 2015-08-08 15:06:40 +0200 (CEST)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming