Re: Substitution for braces

Replies are listed 'Best First'.
Re^2: Substitution for braces by BioLion (Curate) on Jul 08, 2009 at 09:17 UTC
grizzley I couldn't agree more... Corion fixes the original `Unmatched ( in regex; marked by <-- HERE in m/fg-&amp;&+(and( <-- HERE we-` error, but beyond that i am struggling... #!/usr/bin/perl use warnings; use strict; while(my $line=<DATA>){ my $name_pre=$line; my$name=$line; print "1: name $name * name_pre $name_pre \n"; $name=~ s/&amp;/-/g; print "2: name $name * name_pre $name_pre \n"; $name=~ s/&/-/g; print "3: name $name * name_pre $name_pre \n"; $name =~ s/-$//; print "4: name $name * name_pre $name_pre \n"; $name_pre=~ s/\Q$name_pre\E/\Q$name\E/g; print "5: name $name * name_pre $name_pre \n"; $name_pre =~ s/\\//g; print "6: name $name * name_pre $name_pre \n"; } __DATA__ fg-&amp;&+(and(we- [download] Prints: `1: name fg-&amp;&+(and(we- * name_pre fg-&amp;&+(and(we- 2: name fg--&+(and(we- * name_pre fg-&amp;&+(and(we- 3: name fg---+(and(we- * name_pre fg-&amp;&+(and(we- 4: name fg---+(and(we * name_pre fg-&amp;&+(and(we- 5: name fg---+(and(we * name_pre fg\-\-\-\+\(and\(we\ 6: name fg---+(and(we * name_pre fg---+(and(we` [download] Just a something something...	[reply] [d/l] [select]
Re^2: Substitution for braces by gem555 (Acolyte) on Jul 08, 2009 at 09:18 UTC
The actual program code is below: `Open FH,’file.txt’; while (<$FH>) { $arr[$i].="$_"; } close ($FH); $text=$arr[$i]; $text =~ /<cc>([\s\S]+?)<\/cc>/; $Name_pre=$1; $Name=$1; $Name=~ s/&amp;/-/g; $Name=~ s/&/-/g; $Name =~ s/-$//g; $st=$Name; $char=chop($st); if($char eq '-') {$Name=~ s/$//g;} $arr[$i]=~ s/$Name_pre/$Name/g;` [download] Is it the right way of coding. When I execute the program with the $Name_pre as `fg-&amp;&+(and(we-` [download] the program terminates giving an error at the line `$arr[$i]=~ s/$Name_pre/$Name/g;` [download] as `Unmatched ( in regex; marked by <-- HERE in m/fg-&amp;&+(and( +<-- HERE we- /` [download]	[reply] [d/l] [select]
Re^3: Substitution for braces by GrandFather (Saint) on Jul 08, 2009 at 09:48 UTC
There are many other problems in the script as presented, but you immediate problem can probably be solved by changing the offending line to: `$arr[$i]=~ s/\Q$Name_pre\E/$Name/g;` [download] True laziness is hard work	[reply] [d/l]
Re^4: Substitution for braces by gem555 (Acolyte) on Jul 09, 2009 at 06:48 UTC
`while(my $line=<DATA>){ if($line =~ /<cc>([\s\S]+?)<\/cc>/){ #print $name_pre; my $name=$1; my $name_pre = $1; $name=~ s/&amp;/&/g; $name=~ s/&/-/g; $name =~ s/-$//; $name_pre=~ s/\Q$name_pre\E/\Q$name\E/g; $name_pre =~ s/\\//g; } } __DATA__ fg-&amp;&+(and(we- <id>6VE4AGAfg-&amp;&+(and(we-</id><cc>fg-&amp;sonia&-n +d_&amp;lio_(we-</cc>` [download] These changes doesnot reflect on the file. The replace is not done for the files. Please tell me what is the solution	[reply] [d/l]
Re^3: Substitution for braces by Utilitarian (Vicar) on Jul 08, 2009 at 10:17 UTC
Take a look at perlre for more info and the opportunity to learn, but basically you'll either have to escape them using backslashes or use \Q \E to contain your $Name_pre string, though as pointed out above, why are you assigning the value in such an odd way? you could substitute all ( in a string with the regex `$string =~ s/\(/$cheesesauce/g;` Oh Goddess, look this code needs a lot of work, take a look at the following `open($FH,'<','file.txt'); $arr[$i]=join('',(<$FH>)); close ($FH); $arr[i] =~ /<cc>([\s\S]+?)<\/cc>/$1/; $arr[i] =~ s/&amp;/-/g; $arr[i] =~ s/&/-/g; $arr[i] =~ s/\(/-/g; # I assume $arr[i] =~ s/-$//; if (substr($arr[i],-1,1) eq '-') { $arr[i]=~ s/-$//g; # I assume you meant, though you've already done + it above }` [download] I'm sure it's far from perfect, but an improvement on your current code nonetheless	[reply] [d/l] [select]