Simpler Navigation coming for Servers and Operating Systems
Coming soon: a much simpler Servers and Operating Systems section of the Community. We will combine many of the older boards, and you won't have to click through so many levels to get at the information you need. If you are looking for an older board and do not find it, check the consolidated boards, as the posts are still there.
cancel
Showing results for 
Search instead for 
Did you mean: 

Perl

Stephen_175
Occasional Contributor

Perl

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
2 REPLIES
Highlighted
Rodney Hills
Honored Contributor

Re: Perl

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
There be dragons...
Stephen_175
Occasional Contributor

Re: Perl

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


Stef