Help for this page

Select Code to Download


  1. or download this
    die "No data found" unless /...(...)/; 
my $value = $1;/
  2. or download this
    my $value; if (/...(...)/) { $value = $1 };
  3. or download this
    ...
    my $port = '<no port found>';
    if ($line =~/(port=([0-9]+))/i) {
        $port= $2;
    };