majd kesobb lehet törölni

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…