Help for this page

Select Code to Download


  1. or download this
    open (FILE, "<:encoding(UTF-8)", $Profile) or die $!;
    my @Lines = <FILE>;
    close(FILE);
    
    open (FILE2, ">", $Profile) or die $!;
    
  2. or download this
      print FILE2 "$Line";
    }
    close(FILE2);