Help for this page

Select Code to Download


  1. or download this
    if(/^(.+)\s(http:\/\/\S+)\s*(.+)$/){
  2. or download this
    if ( m#^(.+)\s(http://\S+)\s*(.+)$# ) {
  3. or download this
    $http->body()=~/<\s*img[^>]*src\s*=\s*[\'\"]([^\'\"]+)[\'\"
+][^>]*$ALT/i
  4. or download this
    my ($dimention);
for $dimention ('-width','-height'){
  5. or download this
    for my $dimension ( qw(-width -height) ) {