how to read inputs from file for perl script?

[senthilkumars]

i am running my perl script as
"perl script.pl /root/sample/shadow .htpasswd"
now i need to pass these inputs in separate file
and read from that file.

for eg
content of file may be
/root/sample/shadow .htpasswd
/root/sample/shadow .htpasswd1
/root/sample/shadow .htpasswd2
/root/sample/shadow .htpasswd3

and my script is for comparing two files listed above.

[KevinADC]

I don't understand your question

[nithinpes]

If you are trying to compare two files, you can send the path of two/more files as arguments to the script separated by space directly :

perl script.pl "/root/sample/shadow .htpasswd" "/root/sample/shadow .htpasswd1" "/root/sample/shadow .htpasswd2"
 

Inside thescript, you can access these files through @ARGV. For ex:

 open(F1,"$ARGV[0]") or die "failed to open first file";
 open(F2,"$ARGV[1]") or die "failed to open second file";
 
  while(<F1>)
{
  ### read through first file line by line
}
 
 

[senthilkumars]

If you are trying to compare two files, you can send the path of two/more files as arguments to the script separated by space directly :

perl script.pl "/root/sample/shadow .htpasswd" "/root/sample/shadow .htpasswd1" "/root/sample/shadow .htpasswd2"
 

Inside thescript, you can access these files through @ARGV. For ex:

 open(F1,"$ARGV[0]") or die "failed to open first file";
 open(F2,"$ARGV[1]") or die "failed to open second file";
 
  while(<F1>)
{
  ### read through first file line by line
}
 
 

i need to give all the inputs in one file and read from that file.
u said to pass all arguments simultaneously, but i want to write those argument
in a file read from that.

[nithinpes]

i need to give all the inputs in one file and read from that file.
u said to pass all arguments simultaneously, but i want to write those argument
in a file read from that.

In that case, you have to run your original script from another script.
Write another script (e.g new.pl), and run the script as below:

perl new.pl paths.txt

where paths.txt is file containing filenames. Inside new.pl, you call the other script.

 
while(<>)  ## read from file line by line(one file at a time)
{
  `perl script.pl "$_" ` ;  
## $_ is put between " " to include paths containg spaces in between. Not required otherwise
} 
 

There may be better ways of doing it. Hope, this is what you wanted.

[senthilkumars]

In that case, you have to run your original script from another script.
Write another script (e.g new.pl), and run the script as below:

perl new.pl paths.txt

where paths.txt is file containing filenames. Inside new.pl, you call the other script.

 
while(<>)  ## read from file line by line(one file at a time)
{
  `perl script.pl "$_" ` ;  
## $_ is put between " " to include paths containg spaces in between. Not required otherwise
} 
 

There may be better ways of doing it. Hope, this is what you wanted.

i can't get it clearly.
As u said paths.txt i wrote like
/root/sss/shadow /root/.htpasswd
/root/sss/shadow /root/.htpasswd1
/root/sss/shadow /root/.htpasswd2

then new.pl

#!usr/bin/perl
while(<>) 
{
`perl script.pl "$_" ` ; 
}

but i get error like
cannot open: No such file or directory in script.pl at line 2.

[nithinpes]

That may be because you are not chopping newline from the input,remove the trailing new line and try.
new.pl

#!usr/bin/perl
while(<>) 
{
 chomp;
`perl script.pl "$_" ` ; 
}
 
 

[senthilkumars]

That may be because you are not chopping newline from the input,remove the trailing new line and try.
new.pl

#!usr/bin/perl
while(<>) 
{
 chomp;
`perl script.pl "$_" ` ; 
}
 
 

again i am getting the same problem.

[nithinpes]

again i am getting the same problem.

Then, it means file is not present in that location/ it is inaccessible. The error reported is in script.pl, not new.pl

[senthilkumars]

Then, it means file is not present in that location/ it is inaccessible. The error reported is in script.pl, not new.pl

hi boss now i am getting the output correctly.
i forgot to remove " " in new.pl. after removed it i
got the output.
thnx for ur help.

[nithinpes]

Then, it means file is not present in that location/ it is inaccessible. The error reported is in script.pl, not new.pl

In what format are those files in?How are you trying to open the file inside script.pl?
If you post your code, it would be helpful to identify..

[nithinpes]

Oops! We both posted message at the same time. Ok then.

Happy coding !!

[KevinADC]

I am still not even sure what the OP is doing, but it seems rather odd to shell out to perl from a perl script:

`perl script.pl "$_" ` ;

[senthilkumars]

I am still not even sure what the OP is doing, but it seems rather odd to shell out to perl from a perl script:

`perl script.pl "$_" ` ;

I got OP by removing " " in above statement. since there is no space in my
file path no need of putting " ".

[KevinADC]

I got OP by removing " " in above statement. since there is no space in my
file path no need of putting " ".

Thats fine, but shelling out to a perl program from within a perl program seems totally unecessary.

[nithinpes]

I got OP by removing " " in above statement. since there is no space in my
file path no need of putting " ".

Senthilkumar,
I do agree with Kevin. Shelling out to a Perl script may be unnecessary in your scenario.
You can simplify it by including the while loop inside your original script and opening one file at a time, if that meets the objective. Another way is to convert your script to a subroutine and call the sub-routine for each iteration of while loop (each file).
You would have met your objective. But this way, script would be more efficient :)