Help for this page

Select Code to Download


  1. or download this
        @fields = qw(map proto uri1 uri2);
  2. or download this
    
    if ( @vars{@fields} = $line=~m!(map|reverse_map)\s+(\w+)://(.*?)\s
++\2://(.*?)$! )
      {      
 $result = $template->fill_in(HASH => \%vars);
      }
  3. or download this
    {$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri1} {$proto}://{$uri2}
...
{$map} {$proto}://{$uri1} {$proto}://{$uri2}
{$map} {$proto}://{$uri2} {$proto}://{$uri1}
{$map} {$proto}://{$uri2} {$proto}://{$uri1}
  4. or download this
    $map => map 
$proto =>http
$uri1 => www.digitalcity.com 
$uri2 => origin-www.digitalcity.com