September 8, 2008 03:35am pdt

1. Adam314 570,642
2. ozo 384,497
3. FishMonger 118,005
4. Tintin 95,412
5. hielo 66,970
6. mjcoyne 60,153
7. nedfine 45,340
8. clockwatc... 26,260
9. ravenpl 24,800
10. ahoffmann 24,599
11. teraplane 23,780
12. kawas 19,050
13. oleber 18,450
14. omarfarid 17,068
15. suhasbha... 16,570
16. marchent 13,540
17. nixfreak 12,200
18. nognew 10,600
19. hernst42 10,080
20. agriesser 10,000
21. SmartIntel 9,760
22. sentner 9,648
23. ddrudik 9,100
24. shanikawm 7,996
25. evilrix 7,500

1. ozo 3,656,262
2. Adam314 1,493,061
3. Tintin 743,706
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 512,291
7. FishMonger 470,639
8. maneshr 385,976
9. teraplane 367,988
10. manav_m... 338,348
11. clockwatc... 242,548
12. rj2 211,481
13. ahoffmann 210,162
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 91,970
19. Perl_Diver 82,106
20. sstouk 74,470
21. hielo 72,920
22. nedfine 72,907
23. jhurst 72,319
24. rugdog 70,951
25. ZiaTioN 66,995

02.27.2008 at 08:21AM PST, ID: 23197372

	[x] Attachment Details

Perl conditional statement not working

Asked by isaacr25 in Perl Programming Language, Scripting Languages

Please see the attached code snippet. Using an example form a previous solution, I'm trying to use the following if statements in the script:

substr($_, 7, 1, "B") if substr($_, 7, 1) eq "0";
substr($_, 0, 4, "0001") if substr($_, 0, 4) eq "4990";
substr($_, 0, 4, "0002") if substr($_, 0, 4) eq "8990";

The first one works fine, but the second two are not working.

If the first 4 characters of the output file are '0001' the they needs to be changed to '4990'

If the first 4 characters of the output file are '0002' then they need to be changed to '8990'

Please help!Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

           
           
             while( <> ){
my $str = " " x 68;     #make a string xx spaces
 
substr($_, 7, 1, "B") if substr($_, 7, 1) eq "0";
substr($_, 0, 4, "0001") if substr($_, 0, 4) eq "4990";
substr($_, 0, 4, "0002") if substr($_, 0, 4) eq "8990";
substr($str, 0, 4, substr($_, 12, 4));       #pull from positions 13-16, insert to 1-4
substr($str, 22, 4, substr($_, 4, 4));
substr($str, 4, 16, substr($_, 60, 16));   #pull from positions 61-80 (offset 60, length 20), insert to 5-20
substr($str, 26, 2, substr($_, 83, 2));
substr($str, 32, 8, substr($_, 119, 8));
substr($str, 50, 8, substr($_, 132, 8));
substr($str, 59, 8, substr($_, 132, 8));
 
 
substr($str, 20, 1, "T");
substr($str, 21, 1, "D");
substr($str, 28, 1, "A");
substr($str, 58, 1, " ");
substr($str, 67, 1, " ");
print "$str\n";
}

           
         

Keywords: Perl conditional statement not working

	Title
1	Perl conditional statement
2	Syntax for a perl script for a replace of…
3	"eq" and "=="
4	If statement with substring
5	Newbie Perl syntax questions
6	Problem in Perl usiing "or" within a '…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Perl conditional statement not working

Asked by isaacr25 in Perl Programming Language, Scripting Languages

About this solution