Harry Putnam wrote:
:
: Mark G <[EMAIL PROTECTED]> writes:
:
: > Nothing @all. you don't need to do <$.>, $. is
: > fine by it self so can scrap that to
: > printf " %s %s %-28s %s\n", $., $2, $4, $6;
:
: I wanted the brackets in the output.
printf " <%s> %s %-28s %s\n", $., $2, $4, $6;
HTH,
Mark G <[EMAIL PROTECTED]> writes:
[]
>> Is there something wrong with printing the line number?
>
> Nothing @all. you dont need to do <$.>, $. is fine by it self so can scrap
> that to
> printf " %s %s %-28s %s\n", $., $2, $4, $6;
I wanted the brackets in the output.
[...]
> . . . . . . .
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, June 17, 2003 1:35 AM
Subject: Re: Capture a printing function into an array
> Mark G <[EMAIL PROTECTED]> writes:
>
> > I am a newbie as well b
Mark G <[EMAIL PROTECTED]> writes:
> I am a newbie as well but this line makes no sence to me why do you have
> ($line = $line) ???
>> ($line = $line) =~ s/[Dd]estination/Dst/g;
It began life as:
$line =~ s/[Dd]estination/Dst/g;
Which is sufficient, but in the course of doggedly c
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 16, 2003 11:47 PM
Subject: Capture a printing function into an array
>
> My script has a function that I want to just print its output in some
> circum
My script has a function that I want to just print its output in some
circumstances but in others I need to capture its output into an
array for further processing:
sub strip_to_bone {
if(/[Ss]ource/ && /[Dd]estination/){
($line = $line) =~ s/[Ss]ource/Src/g;
($line = $line) =~
