Help for this page

Select Code to Download


  1. or download this
    sub URLDekod {
        my $URLkodad = $_[0];
    ...
           $URLkodad =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
           return $URLkodad;
          }
    
  2. or download this
    open (TEMP, "<$tempfil") or die "Kan inte \xF6ppna filen $kontorfil"; 
    open (NYF, "+>$nyfil") or die "Kan inte \xF6ppna filen $nyfil";
    ...
    close TEMP;
    close NYF;
    }