Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Working with Subfolder

by tucano (Scribe)
on May 28, 2004 at 12:43 UTC ( #357205=note: print w/replies, xml ) Need Help??

in reply to Working with Subfolder

Mah, probably i don't understand your problem but:

 if ($_ =~ /\.9$/)
Match for file that ends with .9.
But what do you want to pass to the subroutine process?
Seems that you pass the folder ok? but what is 'find' another subroutine? But i don't understand where you are listing the files on the directory. In a unix system you can use 'ls' to make a simple listing of directory.
#!/usr/bin/perl $test = process ($folder); #absolute dir $folder = 'test'; system ("ls $folder > files"); ### Now you have a file that is a list of the files in the directory ### You can now applicate process at every line of the file sub process { if ($_ =~ /\.9$/) { print "\nProcessing the fort.9 files, from taylor type to z values\ +n"; open (FILE, '<', $_) or die "Cannot open file: $!"; $/= "# input for"; while (<FILE>) { #do something push(@outLines, $_ ); } close FILE; open ( OUTFILE, ">adjusted.learn" ) or die "Cannot open file: $!"; print ( OUTFILE @outLines ); close ( OUTFILE ); } } print $test,"\n"; exit;

Hope that it's help you

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://357205]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2023-02-02 07:49 GMT
Find Nodes?
    Voting Booth?
    I prefer not to run the latest version of Perl because:

    Results (16 votes). Check out past polls.