Joseph Mwesigwa Bbaale wrote:
Please help...
*This is the original line in outFile*
*This goes into inFile*
I was expecting to find the two lines above in the file "*outFile*" after
running the code below:
#!/usr/bin/env perl
use warnings;
use strict;
use 5.010;
`touch inFile`;
`touch outFile`;
`chmod 744 inFile`;
`chmod 744 outFile`;
`echo "This goes into inFile" > inFile`;
print "Finished writing to inFile\n";
`echo "This is the original line in outFile" > outFile`;
print "Finished writing to outFile\n";
open OUT, '>', 'inFile' or die "Cannot open 'inFile' $!";
print OUT "This goes into inFile\n";
close OUT;
chmod 0744, 'inFile' or die "Cannot chmod 'inFile' $!";
print "Finished writing to inFile\n";
open OUT, '>', 'outFile' or die "Cannot open 'outFile' $!";
print OUT "This is the original line in outFile\n";
close OUT;
chmod 0744, 'outFile' or die "Cannot chmod 'outFile' $!";
print "Finished writing to outFile\n";
open(IN,"inFile")
|| die "cannot open input file";
print "Input file opened...\n";
open(OUT,"outFile")
|| die "cannot open output file";
print "Output file opened...\n";
while(<IN>)
{
print OUT $_;
print "Data entered in outFile\n";
}
close(IN);
close(OUT);
open IN, '<', 'inFile' or die "Cannot open 'inFile' $!";
print "Input file opened...\n";
open OUT, '>>', 'outFile' or die "Cannot open 'outFile' $!";
print "Output file opened...\n";
while ( <IN> ) {
print OUT $_;
print "Data entered in outFile\n";
}
close IN;
close OUT;
`echo "This 2nd line goes into inFile" >> inFile`;
print "Finished writing to inFile\n";
`echo "This is the 2nd original line in outFile" >> outFile`;
print "Finished writing to outFile\n";
open OUT, '>>', 'inFile' or die "Cannot open 'inFile' $!";
print OUT "This 2nd line goes into inFile\n";
print "Finished writing to inFile\n";
open OUT, '>>', 'outFile' or die "Cannot open 'outFile' $!";
print OUT "This is the 2nd original line in outFile\n";
print "Finished writing to outFile\n";
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
