RE: Merging Files in Perl

[Akbar Ehsan]

Here is what I have so far. A script that creates two files:
andadm.count and blmadm.count. At the end of the script I want to merge
these two files in to one file.

#!/usr/bin/perl -w

#use Net::SMTP;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

print "Content-Type: text/html; charset=ISO-8859-1\n\n";

my $field1="andadm,blmadm,coladm,echadm,elkadm";

my @array1 = split(/,/, $field1);

my $j = 0;
my $andcount = 0;
my $blmcount = 0;
#my count = 0;
my $FileName  = "andadm.count";
my $FileName1 = "blmadm.count";

foreach (@array1) {
 if ($_ eq  "andadm"){
  open(COUNT, "<$FileName") || die "Cannot open $FileName: $!\n";
    $andcount=<COUNT>;
    $andcount++;
  close(COUNT);
  open(COUNT,">$FileName");
    print COUNT  $andcount;
  close(COUNT);
 }
 elsif ($_ eq  "blmadm"){
  open(COUNT, "<$FileName1") || die "Cannot open $FileName1: $!\n";
    $blmcount=<COUNT>;
    $blmcount++;
  close(COUNT);
  open(COUNT,">$FileName1\n");
    print COUNT  $blmcount;
  close(COUNT);
 }
  $j++;
}


Thanks

Akbar Ehsan
Internet Services Coordinator
Central Office
Ivy Tech Community College
9301 E. 59th St.
Indianapolis, IN 46216
Phone: 1 317 921-4872

-----Original Message-----
From: Greg Jetter [mailto:[EMAIL PROTECTED] 
Sent: Thursday, February 01, 2007 10:08 PM
To: beginners-cgi@perl.org
Subject: Re: Merging Files in Perl

On Thursday February 1 2007 5:22 pm, Akbar Ehsan wrote:
> Hello Everyone,
>
> Is there something in Perl, a procedure, a method, a command,
anything,
> that would enable me to merge several tiny text files into one big
text
> files. I was searching on perldoc.org unsuccessfully.
>
> Thanks.
>
> Akbar Ehsan
> Internet Services Coordinator
> Ivy Tech Community College
> 9301 E. 59th St.
> Indianapolis, IN 46216

Sure , just open them one at a time read them in and write them back out
to 
the destination file one at a time , thousands of way of doing that ,
show us 
what you got so far and we can help ya along.


Greg


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/