ings as well.
It is usually best to avoid using variables which are not
local to a sub routine inside a sub routine, though there are
cases where this it is desirable and good programming practice.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
25
blem with
write_col() or with the setup for the object $worksheet.
If it does test okay then the problem may be in the
data manipulation just before the call to write_col().
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
http://www.cl
rse @ascending_indexes ];
print "\n\n";
print "Descending sort then ascending sort\n\t";
printf '%5d', $_ foreach @occ_count[ @descending_indexes ];
print "\n\t";
printf '%5d', $_ foreach @unique[ @descending_indexes ];
print "\n";
__END__
eing just a little contrite.
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
http://www.clarksonenergyhomes.com/
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
e):
Script: http://www.clarksonenergyhomes.com/chakrabarti.txt
Module: http://www.clarksonenergyhomes.com/chakrabarti.pm
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
http://www.clarksonenergyhomes.com/
Don't tread on my bandwidth.
Hui Wang <mailto:[EMAIL PROTECTED]> wrote:
: I can make my program do its job at last, but it runs
: slowly. Can anybody tell me how to improve the running
: speed of this program?
You only provided the module. Can you supply a
working example? Something we can actually run?
HTH,
Cha
Dharshana Eswaran <mailto:[EMAIL PROTECTED]> wrote:
: The desired output should look like the following:
:
: 0x0a => 1010
: 0x23 => 00100011
:
: Can anyone suggest me for the same?
Read perlfaq4:
How do I convert between numeric representations/bases/radixes?
HTH,
Charles
ou have a solution for the remaining value.
Try to solve the rest yourself. Come back here when you get
stuck solving a step.
print 1 % 25, "\n";
print 30 % 25, "\n";
print 300 % 25, "\n";
print 1234 % 25, "\n";
print 60001 % 25, "\n";
HT
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
http://www.clarksonenergyhomes.com/
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTE
pplication.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
I.B. wrote:
: unfortunately I have to use regex to solve this problem.
Why do you have to use a regex?
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [
aesthetically pleasing.
use Data::Dumper 'Dumper';
print Dumper [EMAIL PROTECTED];
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addi
Vishwanath Chitnis wrote:
: is there any other way other than above mentioned to do this?
How can we possibly tell with only those lines?
Show more code. Something we can run that will illustrate
your problem.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
ce) = ();
print Dumper $service;
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
&l
;
use strict;
use warnings;
use Data::Dumper 'Dumper';
sub print_result{
print Dumper [EMAIL PROTECTED];
}
1;
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubsc
.01 } @$array_ref ? 0 : 1;
}
__END__
Or even this (if you can understand it in six months):
my @result =
map
cutoff( [ $P[$_], @P[8*$_+10 .. 8*$_+17] ] ),
0 .. 5;
print join( "\t", @result ), "\n";
sub cutoff {
my $array_ref = shift;
return an
7, 88, 89, 90, ],
Is that what you really want for each sub array?
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-m
file {
# open file for read or die
my $file = shift;
open my $fh, '<', $file or die qq(Cannot open "$file": $!);
# slurp file
local $/ = undef;
# return file as scalar
return <$fh>;
}
HTH,
Charles K. Clarkson
--
Mobile Homes Speciali
you are attempting. We don't
know what is in @P_array, for example, because it is never defined
and @q_$i isn't a valid perl variable name. Working code would be
better.
Tell us what you want to do to the big array.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Marke
,
which is a count of its elements.
# Try this:
if ( @line != 0 ) {
# Or this:
if ( @line ) {
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROT
perl, you'll
need to submit the form to the server before the second
textbox is filled.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
te
tr/<>/'/;
# add = if missing
s/'/='/ unless /\d=/;
# add to report
push @report, $_;
}
# print report
print "$_\n" foreach @report;
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
25
Bryan Harris wrote:
:: ... and cute tricks should only be used in cute programs.
:
: I'll take that as a compliment -- thanks, John!
He said cute programs, not cute programmers.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Michael Alipio wrote:
: ignore this one.. I've already figured out how.
Why not post your solution for the archives? Someone
else may run across your question during a search and
will not know the answer you found.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Adv
acknowlege" is misspelled.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://l
%',
-spacing => 0,
-padding => 0,
-border => 0,
-data=> [
[ 'test', 'test'],
[ 'test', 'test'],
],
);
print $test;
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advo
Expect script via CGI is an Expect
question, not a perl question. Perhaps you need to ask your
question on an Expect mailing list. I did find this on the Expect
FAQ.
http://expect.nist.gov/FAQ.html#q24
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968
b ExcludeIPAddress {
my $ipAddress = shift;
my $subnet = shift;
return scalar grep /$ipAddress/,
@excludedIPAddresses,
$subnet->broadcast(),
$subnet->base();
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254
do that?
I have no idea what Expect is, but searching for
'expect' and 'perl' in Google revealed a perl module for
expect.
The other pieces of your problem might include getting
form values from an HTML form. CGI.pm can help with that.
HTH,
Charles K. Clark
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://l
x27;t explain it with words, show us an example.
my $i = 0;
foreach my $header ( sort keys %$headers) {
push @input_data, {
$header => $rows[$i++],
};
}
~
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don'
chen li wrote:
: $total[ $column ] += $row->[ $column ];
:
: Can you or anyone else explain it a bit more?
It is short for this.
$total[ $column ] = $total[ $column ] + $row->[ $column ];
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programme
;
# adjust column widths to taste.
return
$cgi->Tr(
$cgi->td( { -width => '30%', -valign => 'top' }, $field, ),
$cgi->td( { -width => '70%', -valign => 'top' }, $control, ),
);
}
__END__
HT
e $fh;
@array = reform( 12, @array );
print Dumper [EMAIL PROTECTED];
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For add
d line.
The perl docs should be in HTML format on your hard drive.
Look in the html directory where perl is installed and
find the readme.html file. Mine is located here.
file:///C:/Perl/html/readme.html
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
2
list context it will return the array matches.
if ( databaserequest_noun( 'blah', 'blah', 'blah' ) ) {
# matches
} else {
# no matches
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread
sewe_perl wrote:
: Is there any method to get the information on the dynamic
: website, such as php, jsp and so on.
Yes, FTP. php is executed on the server and the result
is sent over http. LWP fetches the result, not the source.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free
Bjørge Solli wrote:
: I get an error message I don't understand. I've been following
: what I thought was good practice when talking to a DB.
Did you import those constants?
use DBI qw(:sql_types);
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web
serequest_noun() to return?
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn
(Cannot open "/path/to/the/$file.gif": $!);
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
case) and
$Q::lexicalentry are not both equal to 'Italy'.
use CGI;
my $q = CGI->new();
if ( 'Italy' eq 'Italy' ) {
print $q->p("the entry is part of the database");
} else {
print $q->p("the entry isn't part of the database");
t it does, map() can compact things.
sub bases {
my $powers_ref = shift;
return
map {
sprintf( '%08b', $_ ) .
sprintf( '%4d', $_ ) .
sprintf( '%4o', $_ ) .
sprintf( '%4X', $_ ) .
"\n"
x27;tasks',
-values => [ sort keys %tasks ],
-labels => \%tasks,
-multiple => 'true',
),
span(
{ -class => 'place_cmd' },
Y(#memaddr)
print @{ $array_ref };
:print $a[1][1]; # Works
:
:for (@a)
for ( @{ $array_ref } ) {
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [
Charles K. Clarkson wrote:
: The first time the script through the 'select' field is empty
Whoopsie!
The first time through the script the 'select' field is empty
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EM
en, to choose another the form
: must be reloaded from scratch (ie: reload button does not
: work, only go etc)
That sounds like a browser caching problem. Search the CGI.pm
docs for 'cache' for details. You can also add a reset button for
the form.
HTH,
Charles K. Clarkson
--
Mo
TECTED],-default=>$commands1{1}[0,-lab
els=>\%select);
BTW, is your space bar broken? White space (tabs, spaces, blank
lines, etc) used consistently can make programs easier to read and
maintain.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programme
I BioKid wrote:
: I am able to do the second part, but am not able to get
: the users file to a variable or array ?
Read the "Files and I/O" section of the "perlintro"
file in the perl documentation.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Adv
Shourya Sengupta wrote:
: How do I call a perl script from a vb script?
The same way you run *any* external program from a
VB script. This is really a VB question, not a perl
question.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
first used.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org
stored? Will a new country appear there? How are you accessing
this database?
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
tests and not work on a copy?
: }
: return 1;
: }
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
urse directories.
Read up on the use of strictures and warnings. You have a
sloppy programming style which will hurt you down the road.
Start every script with these modules. Think of them as
training wheels. They are needed until you find your balance.
use strict;
use warnings;
use diagnost
t
C:\1\dfwrein\cgi-bin\a.pl line 54.
Global symbol "$name" requires explicit package name at
C:\1\dfwrein\cgi-bin\a.pl line 54.
Global symbol "$in" requires explicit package name at
C:\1\dfwrein\cgi-bin\a.pl line 60.
Execution of C:\1\dfwrein\cgi-bin\a.pl aborted due to compilation er
# set max
@unique = @[EMAIL PROTECTED];
return @unique;
}
}
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
sometimes appears
that way to the user.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
on file tests.
if ( -d "c:/xfer/$filename" )
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
Chad Perrin wrote:
: On Thu, Jun 22, 2006 at 03:07:32AM -0500, Charles K. Clarkson wrote:
::
::: OK, so here is the task. The first row I want to turn into
::: variable names. Machine, PurgeSuccess, etc.
::
:: You probably don't want to do that. You may end up needing
:: symbolic refer
'Bay 2',
'Bay 3',
'Network Switch'
]
),
row(
'Enclosure 1',
'/'
function
already loaded into the main namespace by the 'use' statement.
It will automatically change the output should the -noxhtml
CGI.pm pragma is added later.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my
he need for new searches (you, the boss, other programmers, users,
etc.)?
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comm
Smith, Derek wrote:
: Charles K. Clarkson wrote:
:
: : It seems that when the test on line 64 is true, $arry[0]
: : is not defined (and not initialized) and throws this error.
:
: I thought that was the problem initially but tested it and I do
: see this element populated on lines 64 and 65
initialized) and throws this error.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
h row by using Text::CSV_XS or
Text::CSV_PP. These modules will also allow you to write properly
formatted CSV files.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-
print "\n";
foreach my $word ( @{ $dictionary->{$alpha} } ) {
next if $word eq $scramble;
print "$word\n";
}
print "\n";
} else {
print qq(Sorry, I cannot scramble "$scramble&
Mr. Shawn H. Corey wrote:
: for ( keys %kv_pairs ){
: $hash_ref->{$_} = $kv_pairs{$_};
: }
You could use a hash slice there.
@{ %$hash_ref }{ keys %kv_pairs } = values %kv_pairs;
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254
Bryan R Harris wrote:
: Is there an "&&=" also? How about "or="?
All perl operators are listed in the 'perlop' file.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandw
ext_field and menu_name have
no associated values. CGI.pm will return there values as
undef. Thus $name and $major are not initialized.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
PS You
'),
$entry->get_value('mail');
}
# Or, only if it is understandable,
my @sorted_addresses = map
sprintf
'"%s" <%s>',
$_->get_value('displayname'),
$_->get_value('mail'),
$mesg->sorted( 'mail', 'displayname' );
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
pelace anything that's not a number
: as the third char).
:
: or is this right?
It says replace any three character sequences where the first
character is not lower case, the second character is not upper case
and the final character is not a digit.
HTH,
Charles K. Clarkson
--
Mobile Homes
n
apt saying, "Keep your eye on the ball." Your web site
visitors are the ball. You are focusing on the wrong object.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
T
) = split ',', param( $field . '_meta' );
return sprintf
qq|The textarea "$field" is %s characters long.\n| .
qq|\tIt is %s rows by %s columns wide.\n|,
length param( $field ),
$rows,
$columns;
}
__END__
HTH,
Charles K
Wijaya Edward wrote:
: I would like to convert that string as if it is stored
: inside a file, and bypassing the file creation step.
I think you want the IO::Scalar module.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't
if wrong
: }
: }
: }
:
: I want if user corect do something, if not do something
Build the %provera hash first. Once we know that hash
is being built properly, we can then check for the correct
user. Stop jumping ahead and concentrate on the hash for
now.
HTH,
Charles K. Clarkso
gram from the rest of your
code. Don't let it mess with exterior stuff and don't mess with
its interior. Search Randal's old articles for good subroutine
writing rules. I'll bet he has a lot of good advice.
Here's a solution which does not use the dobijanje_iz_entrya()
sub
Charles K. Clarkson wrote:
: It does not handle them special just because
: there's a hash on the right hand side.
Whoopsie! Should be left hand side not right.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
: while ( @mir ) {
: $hash{shift(@mir)} = shift(@mir2);
:}
We can also use a hash slice.
my %hash;
@[EMAIL PROTECTED] = @mir2;
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web
%hash = (
1 => 2,
3 => 4,
5 => 6,
);
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
If it looks wrong convert it to plain text.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PR
? [shrug])
print Dumper [ sort {$a cmp $b} @original ];
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
If it looks wrong convert it to plain text.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
processed? Did you check to be certain that the file you
are trying to open was actually opened? In other words, have
you verified that the file you want perl to open is really
where you think it is.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
= \&_uc;
Calling convert() will now do the same as calling _uc().
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
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>
x to also match the words, shithead, shitter, etc, etc.
Have you looked at the Regexp::Common::profanity module.
If it doesn't fit your need, perhaps the source can give a
few pointers.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [
($key, $value) = each %cc) {
print "$key\t:$value\n";
:
:}
:
:#}
:
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
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>
Mike Blezien wrote:
: is there a simple way to generate a list of numbers from
: 0 - 1000 in increments of 10 IE: 0, 10, 20, 30, 40. ...etc
No offense intended, but is this a homework problem?
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail
s deprecated.
All the work is being done in "$vg{$_}++" which ignores
the split() and increments the value associated with the key
in $_. That one of those key/value pairs happens to be correct
is just coincidence.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
+/ ) {
:
: chomp;
my( $key, $value ) = split /=/;
$vg{$key} = $value;
: $vg{$_}++;
Delete that line. You can read more about the split()
function in the perl documentation.
:
: }
:
: }
HTH,
Charles K
is not a persistant perl enviroment, like
modperl, just this.
END {
# $^T is the time at which the program began
# running, in seconds since the epoch.
print $^T - time(), "\n";
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail
I think the problem we are having is why use a solution
which resorts to global variables when lexical variables get
the job done fine?
use strict;
use warnings;
my $baz = 'pre-baz';
my $foo = foo();
print $foo, "\n";
print $baz, "\n";
sub foo {
my $foo =
che will then
process the SSI includes of the .shtml file.
BTW, there is a H::T mailing list made exclusively for
H::T questions.
https://lists.sourceforge.net/lists/listinfo/html-template-users
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EM
so what is your question?
Charles K. Clarkson
--
Mobile Homes Specialist
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>
chen li wrote:
: Recently I read some source codes of perl modules. I
: find some codes look like this:
:
: BEGIN {..}
:
: What is the function of BEGIN here?
Read BEGIN, CHECK, INIT and END in the "perlmod" file.
HTH,
Charles K. Clarkson
--
Mobile Homes Spec
ource correctly.
The same is true of a technical email list. If I choose to
use a technical email list for answers I would first read up on
the etiquette for using that list then I would be able to use
that resource correctly.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968
. Then the experts and we
young whipper snappers can both be happy. :)
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
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>
space.
Charles K. Clarkson
--
Mobile Homes Specialist
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>
ned module named "system".
:
: System->get_renv();
: System->get_receiver_dir();
Show us more code and tell us what you are trying to do.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
BTW, I think indent() could be rewritten. I think these do
the same thing as your indent().
sub indent {
my $indent = shift;
return '' unless defined $indent;
return '' x $indent;
}
# Or:
sub indent {
return '' unless defined $_[0];
u actually get an array of arrays you can try the
Sort::ArrayOfArrays module to sort it.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
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>
n IIS 6.0 error. Are you using IIS
6.0?
http://support.microsoft.com/kb/890015/en-us
Charles K. Clarkson
--
Mobile Homes Specialist
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>
kidding? I barely understand it.
I'm sure it will work, but I hope I don't have to
maintain it.
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/
[EMAIL PROTECTED] wrote:
: I don't follow - when I add the suggested line I do get No forms
: at (the url). But there is a form on the page cited in the
: script.
There is no form on the page returned by the given url. You can
double check it by navigating to that page in a browser and viewi
1 - 100 of 685 matches
Mail list logo