Shell Programming and Scripting

how to uniquely match each of the words seperated by / in perl



${REP_PATH}/FUNCTIONAL/wide1c_1.0V/max/qor.rpt

Here's an example:

Code:

#! /usr/bin/perl -w
use strict;

my $x = "abc/pqr/xyz";
while ($x =~ m:([^/]*):g) {
    print "$1\n";
}

Depends on what you want to do with each match. You could as well split the string with '/' as delimiter and put them in an array. What is the exact requirement? Input, desired output, sample data?

./GEN_SCR.pl -f ${REP_PATH}/FUNCTIONAL/wide1c_1.0V/max/qor.rpt -o ${REP_PATH}/FUNCTIONAL/GEN2_wide1c_1.0V_max.csv

how can i extract and see if the bold argument shown above is max or min inside hte script GEN_SCR.pl .

_________________________________
1 #!/usr/local/bin/perl
2
3 use strict;
4 use warnings;
5 #use diagnostics;
6
7 use Getopt::Std;
8 getopts ("f: o :");




<logic for max or min ???>
___________________________________

---------- Post updated at 03:58 PM ---------- Previous update was at 03:43 PM ----------

hi,
i have used ARG[0] for extracting the pattern from the argument(using reg expressions) ...

my $dash = $ARGV[0];
but not working?
Please help

One way is to use split:

Code:

my $minMAX = (split /\//,$ARGV[0])[3];
if ($minMAX eq "min") {
    print "min\n";
}
elsif ($minMAX eq "max") {
    print "max\n";
}

hi bala,

The problem is ARGV[0] will not work in the contest of getopt...
i have tried to simply print the ARGV values...but not succesful

Try manipulating the idea in post #4.
The argument addressed by -f option would be held in some variable right. Instead of $ARGV[0], you can split this variable which holds the path. Try it out and let us know.