(jeffa) Re: How can I open a file from a source and read filename & counts?

Well, this answer is almost a whole year late, no doubt because everyone was confused by your question. I too am a bit confused, but that's never stopped me from sticking my foot in my mouth before, so here goes:

use strict;
use warnings;
use File::Basename;
use Acme::Don::t;

my $in_path  = '/path/to/input/file';
my $out_path = '/path/to/output/file';
my $in_file  = 'foo.csv';
my $out_file = fileparse($in_file,'\..*') . '.txt';

open IN, "$in_path/$in_file" or die "can't read $in_file: $!";
don't {'do anything but loop'} while <IN>;

open OUT, ">$out_path/$out_file" or die "can't write $out_file: $!";
print OUT "filename: $in_file\nlines: $.\n";
[download]

Check out perlvar to learn what $. is.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) Re: How can I open a file from a source and read filename & counts? Download Code

Replies are listed 'Best First'.
Re: (jeffa) Re: How can I open a file from a source and read filename & counts? by icezero (Initiate) on Mar 11, 2003 at 09:32 UTC
sorry 4 that confusing. If U want to know, I solve it that way.. `print "ProcessFile: $Filebase\t$Countmod\n"; open (FH, $Filename) or die "Data $! $Filename "; # the below could be made more efficient but will do for now. while (<FH>) { $Countmod++; } close FH; # save list one as TXT open (my $OUTPUT, ">>" . $Report)\|\| die "TDM does not exist$!\n"; # save the values in a hash $return_hash->{$Filebase}=$Countmod; print $OUTPUT "$Filebase\t$Countmod\n"; print "$Filebase\t$Countmod\n"; close ($OUTPUT)` [download] greetz IceZero	[reply] [d/l]

Replies are listed 'Best First'.

Re: (jeffa) Re: How can I open a file from a source and read filename & counts?
by icezero (Initiate) on Mar 11, 2003 at 09:32 UTC

 
print "ProcessFile: $Filebase\t$Countmod\n"; 
open (FH, $Filename) or die "Data $! $Filename  "; 
    
# the below could be made more efficient but will do for now.
while (<FH>)
{
   $Countmod++; 
}    
close FH;
    
# save list one as TXT
open (my $OUTPUT, ">>" . $Report)|| die "TDM does not exist$!\n";    

# save the values in a hash
$return_hash->{$Filebase}=$Countmod;
print $OUTPUT "$Filebase\t$Countmod\n";    
print "$Filebase\t$Countmod\n";        
close ($OUTPUT)
[download]

[reply]
[d/l]