To make BladeSystem information easier to find, we have moved the BladeSystem forums here, to Servers and Operating Systems.
General
Showing results 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

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