[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
: : "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote
:
: All,
:
: Could you please explain line by line what this code
: is doing below from Charles?
Sorry it took so long. I must have missed this one.
: : use strict;
: : use warnings;
: :
: : use
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145
x27;Derek Smith <[EMAIL PROTECTED]>',
Subject => "Eject list is greater than 40",
Data=> "@ejectapes" );
$msg->send;
}
close (FILE);
Thank you,
derek
"Charles K. Clarkson" <[EMAIL PROTEC
On Thursday 01 July 2004 15:57, John W. Krahn wrote:
>
> On Thursday 01 July 2004 05:48, [EMAIL PROTECTED] wrote:
> >
> > I am trying to figure out how to print 8 scalers/elements then \n,
> > then 5 more lines of 8 or less for a max total of 40 Here is my
> > code:
> >
> > print FILEOUT "eject 0,
On Thursday 01 July 2004 05:48, [EMAIL PROTECTED] wrote:
>
> I am trying to figure out how to print 8 scalers/elements then \n,
> then 5 more lines of 8 or less for a max total of 40 Here is my
> code:
>
> print FILEOUT "eject 0,0,0 ";
> my $count = `wc -l <$ejectapes`;
>
> if ($count <= 40 ) {
>
[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
: I am trying to figure out how to print 8 scalers/elements
: then \n, then 5 more lines of 8 or less for a max total
: of 40 Here is my code:
:
: print FILEOUT "eject 0,0,0 ";
: my $count = `wc -l <$ejectapes`;
[snip]
How about:
use strict;
u
Ok well that might be what you are looking for, but also check out
format, link below:
http://www-cgi.cs.cmu.edu/Web/People/rgs/pl-format.html
or
perldoc perlform
It should be an easy matter to format your output to however many
columns you want.
Chris Hood
Chris Hood
Investigator Verizon
[EMAIL PROTECTED] wrote:
I am trying to figure out how to print 8 scalers/elements then \n,
then 5 more lines of 8 or less for a max total of 40 Here is my
code:
print FILEOUT "eject 0,0,0 ";
my $count = `wc -l <$ejectapes`;
One idea:
my @elem = split ' ', $count;
@elem = splice @elem, 0,