Re: How to read the input directory from command line arguments using perl?

I'll assume you can have more than one project.txt file in different locations, and that the directory is relative to the directory that project.txt file is in. $otherscript contains the script that starts with the code you gave.

Then you can do something like:

# Assuming you already have read/set the values for $output_dir and $m
+ap_file...
# and a list of project.txt files is given in @ARGV
use File::Spec::Functions qw(rel2abs);
use File::Basename qw(dirname);
while(<>) {
    if(/^REVISION_LOCATION:(.*)/) {
        # $ARGV contains the name of the project.txt file you're readi
+ng
        system($otherscript, "--root=".rel2abs($1, dirname($ARGV)), "-
+-outdir=$out_dir", "--map=$map_file");
    }
}
[download]

Alternatively you could put this code somewhere inside the $otherscript and call the relevant function instead of the system call.

Comment on Re: How to read the input directory from command line arguments using perl? Download Code

Replies are listed 'Best First'.
Re^2: How to read the input directory from command line arguments using perl? by finddata (Sexton) on Mar 22, 2017 at 05:16 UTC
How can i run the above file in terminal?.I had used as follows `./html.pl --root=/home/data/check_data/project.txt --outdir=/home/data +/generate --mapfile=/home/data/check_data/mapfile.txt` [download]	[reply] [d/l]
Re^3: How to read the input directory from command line arguments using perl? by haukex (Archbishop) on Mar 22, 2017 at 08:01 UTC
You already have all the pieces that you need: In your root node you show how you get the command line arguments. bart showed you how to get the pathname of the `project.txt` file using File::Basename, parse the value out of the `REVISION_LOCATION:` line, and turn that filename from relative to absolute using File::Spec's `rel2abs`, using the pathname of `project.txt` as the base. If you're unsure on how to open the `project.txt` file instead of using the magic `while(<>)` that bart used, please see "Files and I/O" in perlintro. Updated wording slightly.	[reply] [d/l] [select]
Re^4: How to read the input directory from command line arguments using perl? by finddata (Sexton) on Mar 22, 2017 at 11:20 UTC
The thing which he added i understood .But the problem is am not geeting how to run the file in terminal by passing input file	[reply]
Re^5: How to read the input directory from command line arguments using perl? by haukex (Archbishop) on Mar 22, 2017 at 14:05 UTC
Re^2: How to read the input directory from command line arguments using perl? by finddata (Sexton) on Mar 23, 2017 at 04:37 UTC
My query is this script is here where are you taking project.txt as your input in the above code.	[reply]
Re^3: How to read the input directory from command line arguments using perl? by haukex (Archbishop) on Mar 23, 2017 at 08:37 UTC
My query is this script is here where are you taking project.txt as your input in the above code. Why while is empty without considering and input file? (source) You can read about the magic `<>` operator and its use in `while` loops in I/O Operators. In the code that bart posted, you would provide `project.txt` either on the command line, as in "`perl script.pl project.txt`", or by feeding it into the script's `STDIN`, as in "`cat project.txt \| perl script.pl`".	[reply] [d/l] [select]
Re^2: How to read the input directory from command line arguments using perl? by finddata (Sexton) on Mar 23, 2017 at 04:38 UTC
Why while is empty without considering and input file?	[reply]
Re^3: How to read the input directory from command line arguments using perl? by karlgoethebier (Abbot) on Mar 23, 2017 at 09:18 UTC
"...while is empty..." It isn't ;-) From "Learning Perl": "Another way to read input is with the diamond operator: <>. This is useful for making programs that work like standard Unix utilities, with respect to the invocation arguments (which we'll see in a moment). If you want to make a Perl program that can be used like the utilities cat, sed, awk, sort, grep, lpr, and many others, the diamond operator will be your friend. If you want to make anything else, the diamond operator probably won't help." diamond.pl `#!/usr/bin/env perl while (<>) {print}` [download] data.txt `foo bar nose cuke` [download] Run it: `./diamond.pl data.txt` Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť Furthermore I consider that Donald Trump must be impeached as soon as possible	[reply] [d/l] [select]
Re^2: How to read the input directory from command line arguments using perl? by finddata (Sexton) on Mar 22, 2017 at 04:44 UTC
Here what is meant by $otherscript?	[reply]