to be gathered about the machines include :
[snip]
How are the machines connected?
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED
Thind, Aman [EMAIL PROTECTED] wrote:
:
: We have a 100 mbps LAN running tcp\ip...typical to company networks.
:
: -Original Message-
: From: Charles K. Clarkson [mailto:[EMAIL PROTECTED]
: Sent: 05 February 2004 11:31
: To: [EMAIL PROTECTED]
: Subject: RE: Remote script execution
: array.
Why is this data in an array? If you are going
to search it, it would be nicer if it were in a
scalar or in a hash. How did it get in an array to
begin with?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
asking the
same question and then you replied with the same exact message
again to each of those messages. In all there are six messages
cross posted to two email newsgroups (that I know of) to ask one
question.
What are thinking???
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc
asking the
same question and then you replied with the same exact message
again to each of those messages. In all there are six messages
cross posted to two email newsgroups (that I know of) to ask one
question.
What are thinking???
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc
:
my @teilzeilen = split /\n/, ( $eingabe =~ /(?=Teilnehmer:\n\n)(.+)/s )[0];
I think(?) ( $eingabe =~ /(?=Teilnehmer:\n\n)(.+)/s )[0]
is forcing the regex into list context. In scalar context it
returns 1 (for success?) and split assumes scalar context of
its second argument.
HTH,
Charles K
( 'Wow. I can multiply!' ) ),
Tr( [EMAIL PROTECTED] ),
);
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
names on top I added these two lines
unshift @$array_ref, [ 'id no.', 'street no.', 'street name', 'city' ];
$dbh-disconnect or
err_trap( 'failed to disconnect at get_date statement\n' );
return $array_ref;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
/path/to/MakeFile.pl' )
The problem is that Windows doesn't know you want
to work the directory that MakeFile.pl is in. It is
looking for the file in another directory and telling
us that it can't find it.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile
.. 9 ] ) {
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
: -Original Message-
: From: Paul Kraus [mailto:[EMAIL PROTECTED]
: Sent: Monday, January 26, 2004 10:52 AM
: To: 'Charles K. Clarkson'; 'Perl Beginners'
: Subject: RE: hash of hash of array slices
:
:
: Paul Kraus [EMAIL PROTECTED] wrote:
: :
: : This works
: :
: : Foreach
perl.exe
in your servers path, you'll need to complete path to it:
my $exit_status = system_call_test( c:/perl/bin/perl.exe $file_path )
/ 256;
Or something like that.
If this doesn't work, show us what prints to the browser.
HTH,
Charles K. Clarkson
--
Head Bottle Washer
;
$Response-Write( Executing this: '$call'brbr );
my $status = system( $call );
$Response-Write( 'system' returned: '$!'br );
return $status;
}
%
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
.
[snipped sub]
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
;
# the first 'values %sides' is in list context and
# the second is in scalar context :)
$last_roll = ( values %sides )[ rand values %sides ];
return $last_roll;
}
# return the last roll
sub last_roll {
return $last_roll;
}
}
HTH,
Charles K
$status;
}
%
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
danield [EMAIL PROTECTED] wrote:
:
: I am unable to find out why is this not matching:
:
:[snip]
:
: if ( / Summary Log (generated:/ ) {
The open parenthesis '(' has to be escaped.
if ( / Summary Log \(generated:/ ) {
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
could send me an example you think is good, I could
translate from function oriented to OO and clean it up a
bit. Or you could just send a link.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL
tables with
CGI.pm much any longer. I tend to use HTML::Template since
I have graduated to almost programmer and since my web
page designer became a whole separate person instead of
that voice in my head. (Not that that voice has gone.)
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
vaishnavi krishnamurthy [EMAIL PROTECTED] wrote:
: Can anyone tell me how I can do the following - all the
: elements in my array of unknown size should be initialized
: to the value 0?
Assuming your array has only one dimension:
@array = (0) x @array;
HTH,
Charles K. Clarkson
.
http://www.stonehenge.com/merlyn/UnixReview/col06.html
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
match \n\nReceived: and
: replace it with \nFrom xx\nReceived:. It doesn't seem
: difficult but I am stuck.
:
: I hope someone can help me, I have tried to solve this for hours...
Can you show us what you have? It would make solving this
much easier.
HTH,
Charles K. Clarkson
--
Head
: -Original Message-
: From: Bertrand Mansion [mailto:[EMAIL PROTECTED]
: Sent: Sunday, January 18, 2004 7:56 AM
: To: Charles K. Clarkson; [EMAIL PROTECTED]
: Subject: Re: Search replace using 2 lines for pattern
:
:
: [EMAIL PROTECTED] wrote :
:
: Bertrand Mansion [EMAIL PROTECTED
Robert [EMAIL PROTECTED] wrote:
:
: There was a huge outcry from the other programming languages
: that Perl was being unfair because it was so good.
I hate it when languages cry.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
okay for me. Perhaps something else is
wrong. Show us everything.
aappplebtreecchair
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
the rest of the
page as is. This might have the additional benefit of possibly
allowing the design to change independent of the content.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED
of the string
/
Your anchors are dragging you down. You want to find the
first invalid character. After that it doesn't matter. This
should be fine.
/[^A-Za-z0-9$-_.+!*'(),]/
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
Dan Anderson [EMAIL PROTECTED] wrote:
:
: Does Perl have any kind of else / unless statements, sort of
: like elsif? I tried:
:
: if ($foo) {
: }
: else unless ($bar) {
: }
What about:
elsif ( ! $bar ) {
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes
|!-- VM: resrow --foo!-- VM: /resrow --|;
my ($resrow) = m#!-- VM: resrow --(.*?)!-- VM: /resrow --#;
print $1;
print $resrow;
__END__
Prints:
foofoo
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL
to everyone being able to *write* directions.
Then I would have to become one of those really exceptional
programmers instead of just the average one I am today. :)
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e
you are trying to copy a directory
structure. If that is the case, take a look at
'opendir' and 'readdir' and at the '-X' function in
the 'perlfunc' file of your perl documentation.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
you
are attempting to do here.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first
to more of us, what is
your conclusion? Madmen, Jokers, or something else.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
Get real! This is a discussion group, not a helpdesk. You
post something, we discuss its implications
|join '|', keys %genedex|;
while ( defined( my $line = DATA ) ) {
next unless $line =~ /($gene_regex)/;
my $gene = $1;
# The split extracts the probe id
printf %s\t%s\t%s\n,
$gene, ( split /\s/, $line )[0], $genedex{$gene};
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer
[\][] # character class for [ and ]
) # end capture
/\\$1/gx; # replace with \[ or \] globally
Having said all this. I would still prefer Rob's
solution with two separate regexes in a 'foreach'.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes
is SSI (or ASP) enabled, you might
consider replacing the existing footer with an included
file. That way you will only have to change one file in
the future. And it can be adjusted more often.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254
include $split in the
: new file. The text I want to get replace is from
: and including that line to the end of the file.
Because you originally said you only wanted to
replace everything *after* that particular line.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes
SilverFox [EMAIL PROTECTED] wrote:
:
: Hi all, i'm trying to figure out how I can check
: for duplicates entries in an array and remove
: the duplicate.
Read perlfaq4:
How can I remove duplicate elements from a list or array?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
to send $PixData to a new command that will
: convert it from a 640 X 480 @ 100% JPEG to 160 x 120 @
: 30% JPEG.
:
: Any ideas?
I think Randal has a couple of articles on making
thumbnails on-the-fly. Have a look at:
http://www.stonehenge.com/merlyn/
HTH,
Charles K. Clarkson
--
Head
] ) and
the current amount. Then I print the new last total
on @totals. Notice that this algorithm will allow
any range in $amounts to be totaled, not just
consecutive amounts starting from the beginning.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968
;-)
Test your solution with:
@array1[0..5] = ( 1, 4, -200, 8, 15, 0 );
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
, 20, $gray );
$im-filledRectangle( 0, 0, 47, 16, $green );
$im-string( gdSmallFont, 3, 3, Test, $black );
my $png = 'testbutton.png';
open PNG, /home/httpd/htdocs/$png or die qq|Can't write $png: $!|;
binmode PNG;
print PNG $im-png;
close PNG;
HTH,
Charles K. Clarkson
--
Head Bottle
, you might then
be able to center the string in a box.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
.
I think(?) you're looking for 'cmp' which returns
-1, 0, or 1 depending on whether the left argument is
string wise less than, equal to, or greater than the
right argument.
$string[1] cmp $string[0]
Take a look at perlop Equality Operators.
HTH,
Charles K. Clarkson
--
Head Bottle
sub. Or,
if you're allowed to install multiple files, you could
include this module in your package.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
the special case
: where ' ' is passed and the string is split on whitespace
: which is not interesting, but where leading space is
: skipped?
Wait a minute. You're a beginner?!? :)
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
pagoda [EMAIL PROTECTED] wrote:
:
Take a look at the first question in perlfaq4:
Why am I getting long decimals (eg, 19.94999) instead
of the numbers I should be getting (eg, 19.95)?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
blank space from the beginning/end of a string?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
-[1]{color}
$token-[1]{color} eq 'red';
}
}
print Dumper \%items;
__END__
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
Neill [EMAIL PROTECTED] wrote:
: Is their a simple how to page I can access on the web ?
http://www.roth.net/perl/odbc/faq/#How%20do%20I%20use%20Win32::ODBC
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe
ago and normally classify
myself as finished high school. I'm curious: What level of
education have list members attained?
TEA,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
? Or is it something serious.
It's an attempt at humor. I am a real estate investor
in Texas, USA. Since the company is just me and a little
real estate, I find it difficult to put President there.
Head Bottle Washer keeps me well grounded in reality.
HTH,
Charles K. Clarkson
--
Head
of user
intervention. If you show us more code and explain
what you are trying to do, I might be of more help.
Are you indicating that the code you give above isn't
working?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
'
},
],
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
is: $last \n;
__END__
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
-descriptive subjects.
Some days I feel like starting a message board for
people who like to help on message boards. Then I could
post quotes from particularly annoying posts in the Look
what the Idiots Posted Today forum. :)
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes
Douglas Houston [mailto:[EMAIL PROTECTED]
:
: WHY do I need to explain why I want to do this?
Because no one wants to give a loaded gun to
someone who hasn't demonstrated a good grasp of
gun safety.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home
;
print $i\n;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
henq [EMAIL PROTECTED] wrote:
: HTML-Kit has color highlighting and a perl-tidy plugin.
: Give it a look. FTP is nicely integrated.
So does UltraEdit (UltraEdit.com). Ian is always
updating and perl-tidy is very customizable.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
. The same applies to my answers.
Not to mine, Bucko! I am always right and disagreeing
with me will lead to dire consequences.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED
: @slice = @numbers[ $number[ 1 ],$number[ 11 ] .. $number[ 11 ] + 4 ]
--
[arrows added]
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
= [
[
'1 2 3'
],
[
'a b c'
],
[
'aa ab ac'
]
];
See the difference?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
BTW, I used @x, @y, @z because $a and $b are special.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
decided to avoid using prototypes.
Just my $.03 (I'm a big spender),
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
@a = ? #arg1 an array $_[0] is not working
: my @b = ? arg2 another array $_[1] is not working
: my @c = ? arg3 another array $_[2] is not working
: }
sub mysub {
my( $x, $y, $z ) = @_;
.
.
.
}
HTH,
Charles K. Clarkson
--
Head Bottle
distribution, has some excellent examples. You can also
read Ovid's course on programming with CGI.pm:
http://users.easystreet.com/ovid/cgi_course/
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e
( [
td( { -width = '20%' }, $_[0] ),
td( { -width = '80%' }, $_[1] ),
]);
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
command line, install perl locally on your
own computer.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Kevin Pfeiffer [EMAIL PROTECTED] wrote:
: Where I am stuck is on the question:
:
: Given an @array such as
: (Title of Song, Artist, Title, Another Artist, etc),
: is there an easy way to strip out the quotation marks.
s///g foreach @array;
HTH,
Charles K. Clarkson
--
Head Bottle
{
open $curFile, $0 or warn Could not open $0: $!;
}
sub slide_ {
close $curFile;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
constant DATE_FORMAT = '%m%d%y';
.
.
.
my $yesterday = strftime DATE_FORMAT, localtime $^T - 86400;
my $today = strftime DATE_FORMAT, localtime $^T;
printf Today: %10s\nYesterday: %4s\n, $today, $yesterday;
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
choose, stick to it. And try not to abbreviate
When you need help later on, it might be someone who doesn't
use English as a first language trying to help.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail
: background - is that it? If so, what's next?
It sounds like you may have installed Activestate perl.
If you installed it in the C:\Perl directory, try pasting
this link into a browser window to get to the documentation
on your computer.
file:///C:/Perl/html/index.html
HTH,
Charles K
;
}
}
__END__
You can read more on this topic in 'perlsub' in the
Persistent Private Variables section.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
it to
:
: for ($i=0;$i4;$i++) {
: print FILE @arr$i\n;
: }
How about:
use strict;
use warnings;
my $filename = 'blah';
# always check to see if open succeeded
open FH, $filename or die Cannot open $filename: $!;
print FH @[EMAIL PROTECTED]@arr3\n;
close FH;
__END__
HTH,
Charles K. Clarkson
--
Head
kind of sort order? Or does order matter?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
that the first column would always be numeric.
You didn't state it for the second column either.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
::Dumper;
use POSIX 'ceil';
print Dumper fixed_split( 6, '12345678' );
sub fixed_split {
return [ unpack A$_[0] x ceil( ( length $_[1] ) / $_[0] ), $_[1] ];
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e
other cgi scripts run okay?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
to see the code to provide
assistance.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
root:
$filename = '/images/file.jpg';
if ( exists( $filename ) ) {
#
# Do something with $filename
#
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Shishir Saxena [EMAIL PROTECTED] wrote:
: Is there a way to get the information returned by the VC++ fn
: GetVersionInfo(); thru any of the perl structures / commands?
What does GetVersionInfo() return?
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home
line 13 near 1c
Chances are that 1c is a typo and should be lc
the perl lowercase function.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
:
print strip_to_end( '/', 'C:/test/me' ), \n;
sub strip_to_end {
my( $seperator, $string ) = @_;
return ( split $seperator, $string )[-1]
}
Then, if we find a faster method (like 'substr')
we can change the method without effecting the rest
of the program.
HTH,
Charles K. Clarkson
it a strange way to write
an array.
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
programmers. I used perl for more than a year
as a utility. I didn't do any multiple screen apps until
just recently. C::A is also OO and that is a turn off
for many.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
/cgi.html
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
%symbol_table = %::;
delete @symbol_table{ @previous_keys };
return [ keys %symbol_table ];
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
] );
print Dumper [EMAIL PROTECTED];
sub concat_array {
my( $string, $array_ref ) = @_;
@$array_ref = map $_$string, @$array_ref;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED
?
: For example in the below tag font face=Arial,
: i want to get Arial in my output.
You want to get Arial in your output of what?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL
on automating the
process is at:
http://www.stonehenge.com/merlyn/WebTechniques/col29.html
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Jeff Westman [EMAIL PROTECTED] wrote:
:
: Okay guys, what does this mean? Several of you 'sign' with this.
:
: HTH
Last week when the blower went out on the central A/C,
it meant Hotter Than Hell.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home
= eigenstates( any( @not_unique ) );
print Dumper [EMAIL PROTECTED];
One advantage is that this method is
it will run instantaneously on a quantum
computer.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
..' ),
$q-end_html();
If you're not hung up on the Thinking. . . message,
you could redirect the page from the header. The browser
will use its own message.
print $q-redirect('http://www.mysite.com/feature.html');
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy
)$/,
values %condorhash;
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
to a
# full blown report
print Dumper \%fouls_count;
sub line_report {
return sprintf
Player's Name: %s\n .
\tType of foul committed: %s\n,
@_;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
: (\w+)/ ) {
# $1 = player, $2 = foul type
print line_report( $1, $2 );
# count fouls
$fouls_count++;
}
}
close STATS;
print \nTotal fouls: $fouls_count\n;
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc
the same no overwrite.
Wrong. the original file has 5 lines and e
is the fifth line. The new file has 6 lines and
e is the sixth line. Line 5 has been overwritten
with x.
Why not tell us what you really want instead
of these letters?
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson
B. Fongo [EMAIL PROTECTED] wrote:
:
: Now my codes looks like. It works.
[snip]
You might take a look at CGI::Application which
handles a lot of the structure of a script for you.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968
601 - 700 of 754 matches
Mail list logo