
iphone
User
Feb 3, 2011, 1:07 AM
Post #1 of 2
(4248 views)
|
Regex failing when line starts with ./
|
Can't Post
|
|
INPUT:- .\amss\platform\cs\bin\cdep.exe-43041;M76XXDFDCENJAD3555474RPLF.flf;//deploy/qcom/qct/core/cs/pk/rel/1.4/bin/cdep.exe - VU_CORE_CS_PK.01.04.00.07.00 : 5 ./modem_proc/build/ms/dmss_flags.min-000197;M8660AAAAQNLGM107501PLF.flf;//depot/asic/msm76xx/build/ms/dmss_flags.min - 7X27_BUILD_MS.00.00.02 : 5 I have the following code which fails when the line starts with "./",how do I modify the below code to suit for both the above inputs? OUTPUT:- KEYS:-//deploy/qcom/qct/core/cs/pk/rel/1.4/bin/cdep.exe //depot/asic/msm76xx/build/ms/dmss_flags.min VALUES:-amss\platform\cs\bin\cdep.exe modem_proc/build/ms/dmss_flags.min
my %hash_basebuild_rpf; open my $inputfh, '<', $basebuild_rpf_file or die "could not open $basebuild_rpf_file - $!"; while (my $line = <$inputfh>) { chomp($line); my ($key) = $line =~ /;([^;]+)\s-\s/; print "KEY:$key\n"; my ($value) = $line =~ /\.\\(.*);/; # this line fails when the line starts with "./" print "VALUE:$value\n"; $hash_basebuild_rpf{$key} = $value unless (exists $hash_basebuild_rpf{$key}); }
|