in reply to Re: parsing files and modifying format
in thread parsing files and modifying format
for my $file ( @files ) { ( $basename ) = ( $file =~ /(.+)\.txt$/ ); if ( open( F, $file )) { ( $date, @values ) = <F>; chomp $date; chomp @values; s/.+?,// for ( @values ); # delete the "name," parts print join( ",", $basename, $date, @values ), "\n"; close F; } else { warn "$file: $!\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: parsing files and modifying format
by graff (Chancellor) on Jul 18, 2008 at 23:41 UTC |