I have a script which parses line by line from a file. In order to make the changes "online" , I use the "Tie::File" module, so I have an array abstraction for the file, as each line in the file goes to each entry in the array.
The problem is, The regex patterns which worked before using Tie, fails to work afterwards. I've printed the array to see that each entry has gone chomp on it. 1. Does it affect the regex? (chomp operation?) 2. If not, why my regex doesn't work? code is displayed..
} Some lines from the file I am trying to read:.my $filename = "prefs_defaults.cfg"; tie my @array, 'Tie::File', $filename or die "Could not open file '$fi +lename'. $!"; # open (my $fh, "+<", $filename) or die "Could not open file '$filenam +e'. $!"; #while(my $current_line = <$fh>) for (my $i = 0; $i <= $#array; $i++){ my $current_line = $array[$i]; # this is the abstract array. #print "$array[$i]\n"; #print "$current_line\n"; foreach my $field (keys %user_options) { if (($current_line =~ $field) and ( defined ($user_options{$fi +eld}))) { #print "Line which modified: $current_line\n" ; #print "user options: $user_options{$field}\n"; print "hello"; $current_line = $current_line."\n"; print $current_line; if ($current_line =~ /(.*?)=(\w+)(\s+.*)/) { print "left: $1\n"; print "middle: $2\n"; print "right: $3\n"; } $current_line =~ s/(.*?)=(\w+)(\s+.*)/$1=$user_options{$fi +eld}$3/; #print "$current_line\n"; $array[$i] =$current_line; #print "$array[$i]\n"; } }
[RECORD_OBJECT] START_GUARD_TIME=666 END_GUARD_TIME=0 AUTO_START_GUARD_TIME=2 # =PREFS_API_RECORD_AUTO_START_GUAR +D_TIME_ON AUTO_END_GUARD_TIME=2 # =PREFS_API_RECORD_AUTO_END_GUARD_ +TIME_ON DELETION_MODES=1 # =PREFS_API_RECORD_DELETION_MODES_ +AUTOMATIC REVIEW=1800 REMINDER_TIME=0 CONFLICT_TIME=0 WARN_PERCENT=90 [UI_OBJECT] TIME_OUT=5 TRIGGER_TIME_OUT=1 # =PREFS_API_UI_TRIGGER_TIME_OUT_OF +F MESSAGE_ALERT=1 # =PREFS_API_UI_MESSAGE_ALERT_OFF BACK_MUSIC=1 # =PREFS_API_UI_BACK_MUSIC_OFF BEEP=1 # =PREFS_API_UI_BEEP_OFF SUBTITLE=1 # =PREFS_API_UI_SUBTITLE_OFF NARRATIVE=1 # =PREFS_API_UI_NARRATIVE_OFF HIGHLIGHTED_PROG=1 # =PREFS_API_UI_HIGHLIGHTED_PROG_OF +F BEEP_IF_NARRATIVE=1 # =PREFS_API_UI_BEEP_IF_NARRATIVE_O +FF REMOVE_ADULT_CHAN=1 # =PREFS_API_UI_REMOVE_ADULT_CHAN_O +FF FRONT_PANEL=2 # =PREFS_API_UI_FRONT_PANEL_STANDAR +D KEY_REPEAT=1 # =PREFS_API_UI_KEY_REPEAT_OFF KEY_REPEAT_INITIAL_DELAY=0 KEY_REPEAT_DELAY=0 MINI_TV=2 # =PREFS_API_UI_MINI_TV_ON [ANYTIME_OBJECT] OPT_IN=1 BROADBAND=1 QUEUE=2 NOTIFY=2 CONTENT_GROUP=0x00000002 # bitmask: 0x1 - SD, 0x2 - HD
In reply to Reuglar Expression with chomp and Tie by pejoya
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |