Re: Check if image file exists

Assuming that $image contains the absolute path to the file:

$pointer2 = $sth2->fetchrow_hashref;
$image = $pointer2->{'image'};
if ($image && -f $image ) {
    ## it exists
}
else {
    ## It doesn't (or the DB query return false)
}
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

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

Replies are listed 'Best First'.
Re^2: Check if image file exists by htmanning (Friar) on Apr 08, 2012 at 01:23 UTC
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]	[reply] [d/l] [select]
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]
Re^2: Check if image file exists by htmanning (Friar) on Apr 07, 2012 at 23:59 UTC
Perfect. Thanks!	[reply]