Nested Files

[jr8rdt]

I have 9 txt files which I need to process.
I want to put those 9 file's names in a text and feed it to the perl program

for example:

inside file_feed.txt I would have
file1.txt
file2.txt
....
file9.txt


how I can create the loop?

for 1 txt file (if I were only using file1.txt) this is what I do

open(INFILE, $ARGV[0] ) or die "Can't open file: $!";
while(<INFILE>) {
do stuff
}
close INFILE

how I can create the loop?

 

[MillerH]

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]

[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$index[/blue] = [url=http://perldoc.perl.org/functions/shift.html][black][b]shift[/b][/black][/url] or [url=http://perldoc.perl.org/functions/die.html][black][b]die[/b][/black][/url] [red]"[/red][purple]Expected filename[/purple][red]"[/red][red];[/red]

[url=http://perldoc.perl.org/functions/open.html][black][b]open[/b][/black][/url][red]([/red][black][b]my[/b][/black] [blue]$fhindex[/blue], [blue]$index[/blue][red])[/red] or [black][b]die[/b][/black] [red]"[/red][purple]Can't open [blue]$index[/blue]: [blue]$![/blue][/purple][red]"[/red][red];[/red]

[olive][b]while[/b][/olive] [red]([/red]<[blue]$fhindex[/blue]>[red])[/red] [red]{[/red]
	[url=http://perldoc.perl.org/functions/chomp.html][black][b]chomp[/b][/black][/url][red];[/red]
	[black][b]my[/b][/black] [blue]$file[/blue] = [blue]$_[/blue][red];[/red]
	
	[black][b]open[/b][/black][red]([/red][black][b]my[/b][/black] [blue]$fh[/blue], [blue]$file[/blue][red])[/red] or [black][b]die[/b][/black] [red]"[/red][purple]Can't open [blue]$file[/blue]: [blue]$![/blue][/purple][red]"[/red][red];[/red]
	
	[gray][i]# Do more stuff here:[/i][/gray]
	
	[maroon]close[/maroon][red]([/red][blue]$fh[/blue][red])[/red][red];[/red]
	
[red]}[/red]
[maroon]close[/maroon][red]([/red][blue]$fhindex[/blue][red])[/red][red];[/red]

[tt]------------------------------------------------------------
Pragmas (perl 5.10.0) used :
[ul]
[li]strict - Perl pragma to restrict unsafe constructs[/li]
[/ul]
[/tt]

 

[KevinADC]

Here is an alternative script that should work very quickly since it uses perls optimized filehandling and inplace editing:

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]
[black][b]use[/b][/black] [green]warnings[/green][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$file_feed[/blue] = [url=http://perldoc.perl.org/functions/shift.html][black][b]shift[/b][/black][/url] or [url=http://perldoc.perl.org/functions/die.html][black][b]die[/b][/black][/url] [red]"[/red][purple]Usage: <filename>[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[url=http://perldoc.perl.org/functions/open.html][black][b]open[/b][/black][/url][red]([/red]INDEX, [blue]$file_feed[/blue][red])[/red] or [black][b]die[/b][/black] [red]"[/red][purple]Can't open [blue]$file_feed[/blue]: [blue]$![/blue][/purple][red]"[/red][red];[/red]
[blue]@ARGV[/blue] = <INDEX>[red];[/red]
[url=http://perldoc.perl.org/functions/chomp.html][black][b]chomp[/b][/black][/url] [blue]@ARGV[/blue][red];[/red]
[url=http://perldoc.perl.org/functions/close.html][black][b]close[/b][/black][/url][red]([/red]INDEX[red])[/red][red];[/red]
[blue]$^I[/blue] = [red]'[/red][purple].bac[/purple][red]'[/red][red];[/red][gray][i]#inplace edit mode[/i][/gray]
[olive][b]while[/b][/olive] [red]([/red]<>[red])[/red] [red]{[/red]
   [url=http://perldoc.perl.org/functions/do.html][black][b]do[/b][/black][/url] stuff   
[red]}[/red]

[tt]------------------------------------------------------------
Pragmas (perl 5.8.8) used :
[ul]
[li]strict - Perl pragma to restrict unsafe constructs[/li]
[li]warnings - Perl pragma to control optional warnings[/li]
[/ul]
[/tt]

Miller.... I see the close() function is not getting parsed correctly when using 5.10 markup.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jr8rdt]

Thanks for the help!!

it does work.

in the

while (<>) {
do stuff
}

How do I know which ARGV it currently processing?

 

[KevinADC]

$ARGV holds the name of the current file

------------------------------------------
- Kevin, perl coder unexceptional!