Thanks a lot for yout help.. Paav#!/usr/local/bin/perl print "Input file name: "; $_ = <>; chop; open(INFILE, $_); while (<INFILE>) { if (m/total/) { s/^total\s[0-9]+\s[0-9]+\s([0-9 +]+)\s([0-9]+)$/$1 $2/; print; } } close INFILE;
In reply to RE: RE: RE: Re: required explicit package error.
by Anonymous Monk
in thread required explicit package error.
by Paav
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |