The code below works but inserts the line to the bottom of the page and i need the line to append to line1.
Could somebody help me out on how to do do this please.
Expand|Select|Wrap|Line Numbers
- #!/usr/bin/perl
- $| = 1;
- opendir(DIR, ".") or die $!;
- @files = readdir(DIR),"\n";
- close(DIR);
- my $i = 1;
- foreach (@files) {
- @_ = open (APPEND, ">>$_") or die "$! error trying to append";
- print APPEND "MATERIAL_UOM|MATERIAL_NUM|MATERIAL_DESC|X_PLANT";
- $i++;
- print "\n\n $_ Job is finished\n\n";
- };