BladeSystem Forums Have Moved here
To make BladeSystem information easier to find, we have moved the BladeSystem forums here, to Servers and Operating Systems.
Showing results for 
Search instead for 
Do you mean 

Perl

Highlighted
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
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...
Occasional Contributor

Re: Perl

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


Stef