topic Re: scripting questions in Operating System - HP-UX

scripting questions

Ridzuan Zakaria — Mon, 13 Oct 2003 18:49:30 GMT

Hi all,

How do I write the below lines in PERL script.

line="/oracle/datafile/arclogs:"
HDR=`echo $line | cut -c 1-1`
HDR1=`echo $line | cut -f3 -d'/'`
HDR2=`echo $line | cut -f1 -d':'`

Thanks.

Re: scripting questions

Rajeev Shukla — Mon, 13 Oct 2003 19:46:44 GMT

Use this way,
#!/usr/bin/perl
$line = "/oracle/datafiles/arclogs";
@HDR = split(/\//, $line);
print("$HDR[1]\n");
print("$HDR[2]\n");
print("$HDR[3]\n");

This will have 3 variables with name $HDR[1], $HDR[2], $HDR[3], where @HDR is the array.

Cheers
Rajeev

Re: scripting questions

Mark Grant — Tue, 14 Oct 2003 00:37:24 GMT

or alternatively

$line="/oracle/datafile/arclogs:";
($HDR,$HDR1)=$line=~m#(.).+/(.+)/.+#;
($HDR2)=$line=~/(.+):/;

Re: scripting questions

Rodney Hills — Tue, 14 Oct 2003 09:37:29 GMT

A slight modification on Marks. "?" need to be added to quantative matches. (.+) will match the maximum number of times. "?" will match a minimum. For example if your path were /oracle/datafile/arclogs/bleem, then Marks pattern match will return "arclogs" for $HDR1 rather than the 3rd field "datafile".

Try this-

$line="/oracle/datafile/arclogs:";
($HDR2,$HDR,$HDR1)=$line=~m#^((.).+?/(.+?)/.+):#;

HTH

-- Rod Hills

Re: scripting questions

Ralph Grothe — Tue, 14 Oct 2003 10:00:10 GMT

The first solution by Rajeev which uses split() is to be preferred since regex matching is more expensive (and error prone ;-).

Maybe overkill for your example, but you can also import the File::Basename module which is part of a core Perl installation.
This exports for you among others the functions dirname() and basename() which should be familiar to you from shell scripting
(though uncalled for exporting isn't considered polite as CPAN standards go ;-)

You can read the docs by issuing

perldoc File::Basename

and if your interested in the implementation use the -m switch

perldoc -m File::Basename

Re: scripting questions

Mark Grant — Tue, 14 Oct 2003 10:04:30 GMT

Actually Ralph, Rajeevs solution doesn't solve the problem. It looks at first sight that the questioner is asking for the directory names extracted out of the path but look carefully at the suppied script and you'll see that it isn't the case. HDR should end up as "/", HDR1 should have "datafile" and HDR2 has the whole path without the trailing ":". I don't know if this is what the poster actually wanted but it is what he asked for.

Re: scripting questions

Ridzuan Zakaria — Tue, 14 Oct 2003 11:33:44 GMT

Hi all,

Mark is correct, HDR should return '/' ,HDR2 should return 'datafile' and HDR2 should return everything before ':'.

I have written the script in kornshell but it tooks very time to complete. Perhap perl will give better performance.

Thanks.

Re: scripting questions

Ridzuan Zakaria — Tue, 14 Oct 2003 11:34:37 GMT

Hi all,

Mark is correct, HDR should return '/' ,HDR1 should return 'datafile' and HDR2 should return everything before ':'.

I have written the script in kornshell but it tooks very time to complete. Perhap perl will give better performance.

Thanks.

Re: scripting questions

H.Merijn Brand (procura — Tue, 14 Oct 2003 12:12:20 GMT

my $path = "/oracle/datafile/arclogs";
my @p = ($path =~ m{(/[^/]*)}g);

lt09:/home/merijn 101 > perl -le'$path=shift;@p=($path=~m{(/[^/]*)}g);print for@p' /oracle/datafile/arclogs:
/oracle
/datafile
/arclogs:
lt09:/home/merijn 102 >

Enjoy, have FUN! H.Merijn

Re: scripting questions

Ralph Grothe — Wed, 15 Oct 2003 10:03:52 GMT

Mark,

I admit I was too sloppy, not reading carefully enough the wanted result.

The only thing I wanted to stress is that whenever you can avoid Regexs, use functions like split(), or substr().
And if you can't or don't want to avoid them when you have a constant pattern, use the "o" modifier.

However, with the given result wanted you can avoid a regex, though admittedly by loss of elegance.

e.g.

$line = '/oracle/datafile/arclogs:';
($HDR, $HDR1, $HDR2) = (substr($line,0,1),(split(/\//,$line))[2],substr($line,0,
-1));