Ah, OK. You never said it was part of a s/// operator.
Maybe something along these lines?
use 5.010;
use strict;
use warnings;
my $text = do { local $/ = <DATA> };
my ($start, $end) = map quotemeta, qw([img] [/img]);
$text =~ s{($start(.+?)$end)}{
my $link = $1;
my $uri = $2;
$uri =~ /\.(?:jpe?g|png|svg|gif|bmp)$/ ? $link : 'Invalid'
}eg;
print $text;
__DATA__
Foo
[img]http://example.com/[/img]
Bar
[img]http://example.com/logo.jpeg[/img]
That said, what you are doing is conceptually broken. It is perfectly valid for an image on the web to have a URL ending with ".cgi", ".php", or even ".html". Whether something is an image or not is decided by its HTTP Content-Type header, not by the last few characters of the URL.
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
/p
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|