[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
what should I fill in the 'Condition' field-text and I can't use the 'Re
From: |
Patrik Hasibuan |
Subject: |
what should I fill in the 'Condition' field-text and I can't use the 'Record' button since it's blurred. |
Date: |
Mon, 29 Oct 2007 23:00:51 +0700 |
Dear my friends...
I want to debug my perl script because it produces some wrong "anchor" location
in $_.
I am a beginner in using ddd. I read the manual of ddd which I downloaded from
its website.
I need to use breakpoint and watchpoint. I want to record the value of each
involved variables in iteration below. ddd should stop each time the value of
$jmljangkar changes for giving me change to evaluate what my perl-script did.
1.I right-clicked on the line number 126 and chosed the set-breakpoint.
2. I right-clicked-->chosed property;
3. But I don't understand what should I fill in the 'Condition' field-text and
I can't use the 'Record' button since it's blurred.
Please tell me how can I do that.
Thank you very much in advance.
====
...
...
79 @mine_a=("<","a"," ",">");
80 my $jmljangkar = my $it = my $a_indeks1_tmp = $a = 0;
81 while($a<$pjg){
82 $i+=1;
83 $az=substr($_,$a,1);
84 if ( lc($az) eq lc($mine_a[$it]) ){
85 if ($it>=2){
86 if($mine_a[$it] eq '>'){ $it=3; };
87 }
88 switch($it){
89 case 0 {
90 $it+=1;
91 $a_indeks1_tmp=$a;
92 $i=0;
93 }
94 case 1 {
95 if($i==1){
96 $it+=1;
97 $i=0;
98 }else{
99 $it=0;
100 $a_indeks1_tmp='';
101 }
102 }
103 case 2 {
104 if($i==1){
105 $it+=1;
106 $i=0;
107 }else{
108 $it=0;
109 }
110 $i=0;
111 }
112 case 3 {
113 if (length($a_indeks1_tmp)>0){
114 push(@indeks1,$a_indeks1_tmp);
115 }else{
116 print "I have no clue for the begin of open tag.\n";
117 exit;
118 }
119 if (length($a)>0){
120 push(@indeks4,$a);
121 }else{
122 print "I have no clue for the end of open tag.\n";
123 exit;
124 }
125 $it=0;
126 $jmljangkar++;
127 $i=0;
128 my $nstr=$indeks8[$ia]-$indeks1[$ia]+1;
129 print substr($_,my $str1,$nstr);
130
131 if($treker==151){
132 print "a $a\n";
133 print "az $az\n";
134 print "mine_b $mine_b[$it]\n";
135 print "it $it\n";
136 print "i $i\n";
137 print "jmljangkar $jmljangkar\n";
138 }else{
139 $treker+=1;
140 }
141
142 }
143 }
144 }else{
145 $i=0;
146 }
147 $a++;
148 }
...
...
--
Patrik Hasibuan <address@hidden>
Junior Programmer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- what should I fill in the 'Condition' field-text and I can't use the 'Record' button since it's blurred.,
Patrik Hasibuan <=