Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: process a file and reading a line and passing the values to another sub function

by Vijay81 (Acolyte)
on Dec 13, 2012 at 14:27 UTC ( #1008666=note: print w/replies, xml ) Need Help??


in reply to process a file and reading a line and passing the values to another sub function

Thanks Everyone. @2Teez, what you suggested is what i was looking but now, when put $line conent to some array after doing csv(somma seperated), am not able to get any values to $line or @linecolumns. Can you please suggest help me on how to get the $line value into some array so, that i can pass that array element/value to another sub function.

#!/usr/bin/perl use warnings; use strict; use File::Find; my $base_dir = 'C:\\TestData'; # put in your base directory my ($dirname,$filename,$line); my (@linecolumns); find( \&wanted, $base_dir ); sub wanted { return if $_ eq '.' or $_ eq '..'; if (-d) { print " >>> dive into: $_\n" if -d; $dirname = $_; } else { readout_file($_); ## call subroutine readout_file } } sub readout_file { my ($filename) = @_; open my $fh, '<', $filename or die "can't open file:$!"; while ($line=<$fh>) { chomp; $line=~s/ /,/g; ## OR s/ /,/g; if you want print $line, $/; push(@linecolumns,$line); #print $_, $/; ## OR any other subroutine you want print $linecolumns[0], $/; print $filename, $/; #write_output($dirname,$filename,$linecolumns[0],$linecolumns[3]); ## +call subroutine to print std template in output file } }
  • Comment on Re: process a file and reading a line and passing the values to another sub function
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1008666]
help
Chatterbox?
[marioroy]: Hello all. After several attempts, am able to move forward and will soon release a Parallel:: ForkManager compatible MCE::Hobo:: Manager, also MCE::Hobo::Simple, and refactored MCE::Hobo engine supporting multiple instances. Wait works beautifully.
[marioroy]: MCE::Shared has been refined that it allows sharing Tie::File and hash objects containing {fh} key.
[marioroy]: It's taken so long to take Hobo to a new level. Threads-like and Parallel:: ForkManager management capaiblities.
[marioroy]: This will complete the 4 years in the making and likely time to move on to something els.
[marioroy]: s/els/else.

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2017-05-26 08:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?