It works now. Thank you :)sub ReadConfig() ... while(@lines) ... # Store what our line ending char was for output ($self->{line_ends}) = $lines[0] =~ /([\015\012\025\n]+)/; while ( @lines ) { $_ = shift @lines; s/(\015\012?|\012|\025|\n)$//; # remove line ending + char(s) $lineno++; if (/^\s*$/) { # ignore blank lines next; } # added this... ignore registry values elsif (/^HKLM/) { next; } ...
In reply to Re: Config::IniFiles modification
by P0w3rK!d
in thread Config::IniFiles modification
by P0w3rK!d
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |