while ($file_contents =~ m{<!--#?include\s+virtual="([^"]*)"\s*-->}gis){
# do something with $1 (a path)
}
<div>‮Left-to-right</div>
<div>‭Right-to-left</div>
<div dir="ltr">Left-to-right</div>
<div dir="rtl">Right-to-left</div>
Listen 81
Listen 82
Listen 83
Listen 84
Listen 85
<VirtualHost _default_:81>
DocumentRoot /srv/www/port_81
</VirtualHost>
<VirtualHost _default_:82>
DocumentRoot /srv/www/port_82
</VirtualHost>
<VirtualHost _default_:83>
DocumentRoot /srv/www/port_83
</VirtualHost>
<VirtualHost _default_:84>
DocumentRoot /srv/www/port_84
</VirtualHost>
<VirtualHost _default_:85>
DocumentRoot /srv/www/port_85
</VirtualHost>
#! /perl/bin/perl
%/perl/bin/perl
#! /perl/bin/perl^M
my @hw_array = ("hello","world","wassup?");
print "<br>size: ", scalar @hw_array; # 3
print "<br>size: " . @hw_array; # 3, scalar is implicit
print "<br>index of last: ", $#hw_array; # 2
I've decided to put my picture in my profile. So have uploaded one as part of this post. The process is marvelously user-unfriendly:
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}"
href="http://photos1.blogger.com/blogger/3099/3814/1600/elijah_lovejoy.jpg"
><img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;"
src="http://photos1.blogger.com/blogger/3099/3814/400/elijah_lovejoy.jpg"
border="0" alt="" /></a>
Why can't there just be an upload button on the profile? Why are computers so gosh-darned hard to use?
use CGI qw/:standard/;
print header,
start_html('A Simple Example'),
h1('A Simple Example');
AddHandler cgi-script .pl
<Directory "C:/htdocs">
Options Indexes FollowSymLinks +ExecCGI
AllowOverride None
Order allow,deny
Allow from all
</Directory>
#! /Perl/bin/perl
use CGI qw/:standard/;
print header,
start_html('A Simple Example'),
h1('A Simple Example');