It is always embrassing, when things not going well. You simple getting tired to get rid of problems.

All in all, browse to OpenVPN Client's install dir.

Find core directory.

Step in, and run uikill.exe file.

Now you over it, the uninstall will now... 

Ha csak egy szöveget keresünk, egy szövegben.

if (index($string, 'string') != -1) {
 print "\$string contains 'string'\n";
}
 

Valamilyen minta alapján szeretnénk megvizsgálni a szöveget

if ($string =~ /pattern/) {
 print "\$string mathches the pattern\n"; 
}
 

Keresgéltem, és láss csodát találtam, csak a megfelelő kulcsszavakat kell megadni, mindenki legjobb barátjának, a googlenek, hogy valami értelmes, és ugyan akkor használható eredményt mutasson.

use JSON::XS qw(encode_json decode_json);
use File::Slurp qw(read_file write_file);
my %hash;
{
 my $json = encode_json \%hash;
 write_file('dump.json', { binmode => ':raw' }, $json);
}
{
 my $json = read_file('dump.json', { binmode => ':raw' });
 %hash = %{ decode_json $json };
}