On Fri, 2003-07-18 at 22:34, Ming Deng wrote:
> Ramprasad wrote:
>
> > else
> > Instead in your main program call
> > do "foo.pl args..."
> >
> > And in foo.pl set some scope defined variable like
> >
> > #foo.pl
> > $dbh=connect()
> > unless($dbh){
> > $GLOBAL::ERRORSTR="Couldnot connect
Hi all,
I have downloaded and installed perl with apache and php
Here are the readme file folders for each part of the packaged file
Perl-5.8-win32-bin-0.1.exe
openssl-0.9.6h
php-4.23
mod_perl-2.0
httpd-2.0.43
AP804_source
I have apache running ok and perl, but I can't get the hello world fil
Jamie Risk wrote:
I've no control over the EOL of text files that I'm processing; is there a
conveniant method using chomp() and the INPUT_RECORD_SEPERATOR ($/) to
handle DOS/UNIX/MAC generated text files automatically?
Handle them how?
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTEC
Li Ngok Lam wrote:
>
> my (%LIST, @other_list);
>
> @other_list = ( Unknown Length Data Elems );
>
> foreach my $col (@lists)
> {
> for (@other_list)
> {
> if ( exist $LIST{$col}[0] ) { Do_smth_2 } # But ERROR either
If you want to test if the array has any elements you can do
> Anyone have any ideas about this - is there a common mistake I might be
> making here?
>
> I am using a simple regex to extract a few pieces of every line of a 2000+
> line text file then spitting it back into a second text file. I can't
figure
> out why but the output file always includes every
Andrew Thomas wrote:
> Anyone have any ideas about this - is there a common mistake I
> might be making here?
>
> I am using a simple regex to extract a few pieces of every line of
> a 2000+ line text file then spitting it back into a second text
> file. I can't figure out why but the output file a
Anyone have any ideas about this - is there a common mistake I might be
making here?
I am using a simple regex to extract a few pieces of every line of a 2000+
line text file then spitting it back into a second text file. I can't figure
out why but the output file always includes every other li
On 17.07.03,14:51, Keith Olmstead wrote:
> Hello,
>
> Been searching though this list for awhile now, and now I am needing some help. I
> am not asking for someone to do my code for me, I am trying to learn perl and the
> only way for me to do that is to dive staight into it.
>
> My problem i
What are you trying to do? If you could include a brief example, it
would be nice.
Li Ngok Lam wrote:
> my (%LIST, @other_list);
>
> @other_list = ( Unknown Length Data Elems );
>
> foreach my $col (@lists)
> {
> for (@other_list)
> {
> if ( exist $LIST{$col}[0] ) { Do_smth_2 }
On Fri, Jul 18, 2003 at 01:15:15PM -0500, Paul Archer wrote:
> Here's a quick way:
> perl -e '$var="abdaatela"; print ((scalar grep /a/,(split /(.)/,$var)),"\n");'
>
> grep returns the number of matches in a scalar context, and the split breaks
> the string up into separate elements. The parens in
Here's a quick way:
perl -e '$var="abdaatela"; print ((scalar grep /a/,(split /(.)/,$var)),"\n");'
grep returns the number of matches in a scalar context, and the split breaks
the string up into separate elements. The parens in the split return the
item split on (otherwise it would throw away each
> Anyone know if it's possible for the return/exit value of a script, in the
> event of success, to be something other than 0?
>
The 'exit' command should work just like it does in the shell: 'exit 9;' for
example, *should* give you an exit status of 9 (although I couldn't get it
to work for me a m
Ramprasad wrote:
else
Instead in your main program call
do "foo.pl args..."
And in foo.pl set some scope defined variable like
#foo.pl
$dbh=connect()
unless($dbh){
$GLOBAL::ERRORSTR="Couldnot connect to database $@";
exit 1
}
And in the main program you can check
if($GLOBAL::ERRORSTR) {
my (%LIST, @other_list);
@other_list = ( Unknown Length Data Elems );
foreach my $col (@lists)
{
for (@other_list)
{
if ( exist $LIST{$col}[0] ) { Do_smth_2 } # But ERROR either
What should I write here ? So can push vars to $LIST{$col}
}
}
Thanks in advi
Gabor Urban wrote:
> Hi,
>
>
> could someone give me a quick info whar __END__ and __DATA__ lines
> are good for?
>
Short silly answer:
__END__ing the program and starting the __DATA__ that you can
read from the implicit filehandle.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For add
Hi,
could someone give me a quick info whar __END__ and __DATA__ lines are
good for?
Gabaux
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello.
CGI.pm module can restrict the size of the file being uploaded.
You canb use something like this:
my $max_size = 512000; #For 500kb limit
$CGI::POST_MAX=$max_size;
If the file size is bigger than that, it stop the process and returns an
error message.
But, thinking about it now, it's b
Hello.
CGI.pm module can restrict the size of the file being uploaded.
You canb use something like this:
my $max_size = 512000; #For 500kb limit
$CGI::POST_MAX=$max_size;
If the file size is bigger than that, it stop the process and returns an
error message.
But, thinking about it now, it's b
Janek Schleicher wrote:
> Paul D. Kraus wrote at Thu, 17 Jul 2003 15:33:11 -0400:
>
> > Is there a way to assign a single value to a list? other then
> > doing the obvious and spelling out each list assignment or
> > running through a loop.
> >
> > For instance...
> >
> > my ( $var1, $var2, $var3,
Trensett wrote at Wed, 16 Jul 2003 18:29:51 -0500:
>> The next will work:
>> my @variable = $string =~ /\((.*?)\)/g;
>
> what's the exact implication of ".*?"?
> Why wouldn't just .* in parenthesis work for this case?
A good answer can also be found in
perldoc perlre
and
perldoc -q greedy
Gree
Jamie Risk wrote at Thu, 17 Jul 2003 10:39:56 -0400:
> Until now, I've avoided writing modules by inlining the deisred code in the
> new files. Messy. I'm avoiding modules for two reasons, laziness and naive
> conception that for what I'm trying to do it's overkill.
>
> Is there a method to refe
Paul D. Kraus wrote at Thu, 17 Jul 2003 15:33:11 -0400:
> Is there a way to assign a single value to a list? other then doing the
> obvious and spelling out each list assignment or running through a loop.
>
> For instance...
>
> my ( $var1, $var2, $var3, ... ) = "Paul"
> assigning paul to all va
22 matches
Mail list logo
