topic Re: Perl in Operating System - HP-UX

Perl

Stephen_175 — Fri, 16 Sep 2005 09:59:34 GMT

I am trying to write some perl code to convert this into a strictly Perl script.

Instead of using the system calls, is it possible to do this strictly in Perl without relying on sed and awk?

Example:

system "awk '/dat/ { print $9 }' /export/home/soglesby/gents_processed | sed 's/\.dat//g' | sed 's/\return_*//g'"

How would I be able to do this without sed and
awk?

Thanks

I am not having much luck and cannot find
any examples in the book to do the equivalent

Re: Perl

Rodney Hills — Fri, 16 Sep 2005 10:12:38 GMT

How about-

open(INP,"while() {
chomp;
next unless /dat/;
@a=split('\s+',$_);
$a[8]=~s/\.dat//g;
$a[8]=~s/\return_*//g'
}

HTH

-- Rod Hills

Re: Perl

Stephen_175 — Fri, 16 Sep 2005 10:16:35 GMT

Thanks Rod, I'll try this and let you know.

Stef