Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
( $displayed_link ) = $displayed_link =~ m/^(http:\/\/.*?\/)/;

print $displayed_link . "\n";
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
( $displayed_link ) = $displayed_link =~ m/^(http:\/\/.*?\/)/;

print $displayed_link . "\n";