August 30, 2008 04:29am pdt

1. Adam314 558,667
2. ozo 370,137
3. FishMonger 115,555
4. Tintin 91,647
5. hielo 63,970
6. mjcoyne 58,453
7. nedfine 41,965
8. ravenpl 24,800
9. clockwatc... 24,260
10. teraplane 22,380
11. ahoffmann 21,299
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,641,902
2. Adam314 1,481,086
3. Tintin 739,941
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 510,591
7. FishMonger 468,189
8. maneshr 385,976
9. teraplane 366,588
10. manav_m... 338,348
11. clockwatc... 240,548
12. rj2 211,481
13. ahoffmann 206,862
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. jhurst 72,319
22. rugdog 70,891
23. hielo 69,920
24. nedfine 69,532
25. ZiaTioN 66,995

07.22.2008 at 11:11AM PDT, ID: 23585993

	[x] Attachment Details

Perl script to generate a CSV file

Asked by itsme_asif in Perl Programming Language, KornShell (ksh)

Tags: Perl

This is the script i have
Instead of getting the output as

20,,,,,abc,0,,,reportingHirarchy,,,
21,,,,,cfg,0,,,21,,,
22,,,,,ijk,0,,,22,,,
23,,,,,asd,0,,,23,,,
24,,,,,asj,0,,,24,,,
25,,,,,qwe,0,,,25,,,

I am getting as

30,,,,,abc,0,,,reportingHirarchy,,,
30,,,,,cfg,0,,,21,,,
30,,,,,ijk,0,,,22,,,
30,,,,,asd,0,,,23,,,
30,,,,,asj,0,,,24,,,
30,,,,,qwe,0,,,25,,,

can you 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:
23:
24:
25:
26:
27:

           
           
             #!/usr/bin/perl
 
#use strict;
#use warnings;
 
open my $CSV, '<', 'sample1.csv' or die "failed to open 'sample1.csv' $!";
open my $TXT, '<', 'sample.txt' or die "failed to open 'sample.txt' $!";
open my $NEW, '>', 'new1.csv' or die "failed to open 'new1.csv' $!";
 
 
 
while(<$CSV>) {
   chomp;
   my @csv = split /,/;
  for ($i=20;$i<=30;$i++) {
 
   $csv[0]=$i;
}
   my $phone = <$TXT>;
   chomp $phone;
   $csv[5] = $phone;
   no warnings;         
  $i=$i+1; 
  print $NEW join(',', @csv[0..12]) . "\n";
   
   use warnings;
}

           
         

Related Solutions: Perl Script to generate a csv file having input file problems

Keywords: Perl script to generate a CSV file

	Title
1	php mysql db query and csv output
2	Help with perl script to convert UIEE file…
3	csv files
4	Questions about a perl script
5	Help me modify this Perl to terminate fie…
6	Colouring csv with the perl script

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Perl script to generate a CSV file

Asked by itsme_asif in Perl Programming Language, KornShell (ksh)

Tags: Perl

About this solution