Re^2: Check if image file exists

I think I spoke too soon, or I'm doing something wrong. The following doesn't work. It returns all noavatar50.png.

$picture="/$username/$picture";

        if ($picture && -f $picture ) {
          
        $thumb30 = "<img src=\"$picture\" width=30 height=30 border=0>
+";
        } else {
            $thumb30 = "<img src=\"/images/noavatar50.png\" width=30 h
+eight=30 border=0>";
        
        }
[download]

Ideally I'd like to use something like this for the first IF statement, but it doesn't work.

if (($picture) && ($scope ne "Private") && (-f $picture)) {
[download]

Comment on Re^2: Check if image file exists Select or Download Code

Replies are listed 'Best First'.
Re^3: Check if image file exists by aaron_baugher (Curate) on Apr 08, 2012 at 03:50 UTC
Perl's file-test operators only care about the file's location on your server. If the file's URI is /username/picture.jpg, that's almost certainly not the file's full pathname on your system. That might be something like /var/www/images/username/picture.jpg, or something entirely different. You'll have to prepend $picture with the filesystem location of your picture subdirectory. Also, use a different quoting method to get rid of those backslashed quotes: `$picture = "/$username/$picture"; my $picture_path = "/var/www/images$picture"; # or whatever if( -f $picture_path ){ $thumb30 = qq\| <img src="$picture" /> \|; } else { $thumb30 = qq\| <img src="/images/noavatar50.png" /> \|; }` [download] Aaron B. My Woefully Neglected Blog, where I occasionally mention Perl.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Check if image file exists
by aaron_baugher (Curate) on Apr 08, 2012 at 03:50 UTC

Perl's file-test operators only care about the file's location on your server. If the file's URI is /username/picture.jpg, that's almost certainly not the file's full pathname on your system. That might be something like /var/www/images/username/picture.jpg, or something entirely different. You'll have to prepend $picture with the filesystem location of your picture subdirectory. Also, use a different quoting method to get rid of those backslashed quotes:

$picture = "/$username/$picture";
my $picture_path = "/var/www/images$picture"; # or whatever
if( -f $picture_path ){
  $thumb30 = qq| <img src="$picture" /> |;
} else {
  $thumb30 = qq| <img src="/images/noavatar50.png" /> |;
}
[download]

Aaron B.
My Woefully Neglected Blog, where I occasionally mention Perl.

[reply]
[d/l]