open my $project_file, '<', $input_dir; chomp(my @store_files = <$project_file>); #print @store_files; close $project_file; foreach my $temp_line(@store_files) { if(my $pattern =~ /^REVISION_LOCATION:/){ my @fetch_path=split (':',$temp_line); my $new_path=$fetch_path[1]; print $new_path; last; } } <c> Error: Use of uninitialized value in pattern match (m//)
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |