Trying to understand what I am doing wrong here. I have tried to declare
all variables as lexically scoped and then for each value in the hash
below, print out the value. How do you use hashes when using strict?
Both %digestChunks or $url seem to be empty.
By the way, I just want to say that thi
Does anyone recognize this and know the
solution???
Use of uninitialized value in concatenation (.) at
D:/Perl/site/lib/Net/Config.pm line 44.
Thanks
Doyle
Hello,
I am collecting a large query, and it is coming back in chunks. I would like
to catch the data and push it into a "Reference" to an array, and use
autovivication to create that array.
I have not figured out how to do that. I can push my data reference into a
regular array, but I figured wh
>>
foreach my $file ( @listing )
{
if ( $file =~ /(^CSF(MON|TUE|WED|THU|FRI|SAT|SUN)\d[01-31].\d[00-99])$/ )
{
$pos1 = $1;
print("File $pos1 found\n");
}
} # end foreach
>From the array the code finds CSF and the day but I only want it to find
'nn' in the number range
>>> "Virginia Wiswell" <[EMAIL PROTECTED]> 02/14/01 01:00PM >>>
looks to me like lines 5, 6, and 7 would always get "Unrecognized" because
you're testing for them only when the line begins with line4. line4 and
line5, line6, and line7 are mutually exclusive. in other words, if a line
begins wi
Title: RE: Regular Expression . . . . .
if ( $file =~ /(^CSF(?:MON|TUE|WED|THU|FRI|SAT|SUN)(?:0[1-9]|[12]\d|3[01])
\.\d\d$/ ) {
Hello David,
Many thanks for your advice but I have modified your sugestion as it would not pick up 10-19 and 20-29 and I also found a missing brac
> I am trying to pull user input from my html page and I am getting no
> where. I installed and configured ActivePerl last week. Could something
You need an HTML page to first call the script.
What is your first name:
That should make the script work. When you hit the submit button, the
> Unfortunately, this app doesn't use automated OLE. And it acts on the input
> file, so I can't just paste the input file to the clipboard.
http://search.cpan.org/doc/GSAR/libwin32-0.16/Clipboard/Clipboard.pm
might be able to.
___
Perl-Win32-Users m
Jonathan Alloun wrote [in part]:
> CSFdddnn.xx
> where
> 'ddd' is the day i.e. MON, TUE...SUN
> 'nn' is a number from 01-31
> 'xx' is a number from 00-99
. . . .
> if ( $file =~ /(^CSF(MON|TUE|WED|THU|FRI|SAT|SUN)\d[01-31].\d[00-99])$/
) {
. . . .
> From the array the code finds CSF and the
[EMAIL PROTECTED] wrote:
>
> John Wade wrote:
> > I am teaching myself PERL and would like to write a script from scratch
> for
> > a page access counter. Does anyone know of any on-line tutorials?
>
> There are a lot of on-line tutorials. But I wouldn't recommend trying to
> write
> a page ace
John Wade wrote:
> I am teaching myself PERL and would like to write a script from scratch
for
> a page access counter. Does anyone know of any on-line tutorials?
There are a lot of on-line tutorials. But I wouldn't recommend trying to
write
a page acess counter from scratch. Not unless you ha
> What am I missing here?
>
> TIA
>
> Greg
>
greg.. i see you already got an answer..
you may want to adopt a different approach than one massive in-line if-else
statement. it's hard to tell what you are doing with the line once you
identify it - but you may want to isolate the line number
Greg Wardawy wrote [in part]:
> this gives me Unrecognized for the lines 6 and 7:
. . . .
> } elsif (/^line4/) {
>
> #code;
>
>if (/^line5/) {
>
> #code;
>
> if (/^line6/) {
>
>#code;
>
> if (/^line7/) {
>
>#code;
Umm, isn't that what it *should* do
Title: Re: Regular Expression . . . . .
Hello,
I have a file name which I am looking for in the list, made up of:
CSFdddnn.xx
where
'ddd' is the day i.e. MON, TUE...SUN
'nn' is a number from 01-31
'xx' is a number from 00-99
I have been playing with the atta
Greg,
In your code example:
while () {
if (/^line1/) {
#code
} elsif (/^line2/) {
#code
} elsif (/^line3/) {
#code
} elsif (/^line4/) {
#code;
if (/^line5/) {
#code;
if (/^line6/) {
#code;
if (/^line7/) {
#code;
}
}
}
} elsif (/^lin
Hello all,
For the following structure of the data:
Liine1
Line2
Line3
Line4
Line5a
Line6a
Line7a
Line7b
Line7c
Line6b
Line7d
Line7e
Line7f
Line6c
Line7g
Line7h
Line7i
Line5b
.
.
.
Line8
this gives me Unrecognized for the lines 6 and 7:
#
Not sure about VCS::CVS, but using the command-line utility, you can
use SSH in place of the built-in RSH implementation by setting the
environment variable CVS_RSH to point to the SSH executable.
HTH,
Ian
From: Martin Moss <[EMAIL PROTECTED]> on 02/13/2001 0
Philip Newton wrote:
>
> Aldo Calpini wrote:
> > Joe Schell wrote:
> > > 'Proper' being as defined in all of the relevant RFC's - presumably
> > > including email comments and the older formats?
> > >
> > > If so then you might wish to create a module. I don't believe one
> > > currently exists
I believe I have the posting portion of this list figured out.
Hit reply all to reply. - Delete the original sender to avoid sending them a
personal email.
For some reason there are many addresses which all go to the same place and
these addresses all go to the same place, so just use the first
In Windows, if you right-click on a file in explorer, one of the menu items
is "Properties". For some executables, the properties you can view include
Version information and things like comments, company name, product name,
product version, etc.
Is there an easy way for a perl script to acce
I am teaching myself PERL and would like to write a script from scratch for
a page access counter. Does anyone know of any on-line tutorials?
jw
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-w
Aldo Calpini wrote:
>
> Joe Schell wrote:
> > 'Proper' being as defined in all of the relevant RFC's - presumably
> > including email comments and the older formats?
> >
> > If so then you might wish to create a module. I don't believe one
> > currently exists that correctly checks the format.
>
test
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
Aldo Calpini wrote:
> Joe Schell wrote:
> > 'Proper' being as defined in all of the relevant RFC's - presumably
> > including email comments and the older formats?
> >
> > If so then you might wish to create a module. I don't believe one
> > currently exists that correctly checks the format.
>
>
Here is something directly from the Perl Cookbook (Ram).
FYI - The O'Reilly Perl CD Bookshelf is a valuable reference source. It
has 6 Perl books on 1 CD with an index for all books.
Chapter 2
>what about using Tk to manage your own window with your own buttons ?
>and you won't need to redirect STDOUT, only refresh a text widget.
>And this will run on any platform you have perl. I suppose it's
Nah, that won't work. I've thought about it - but the intended audience is
gonna get frighten
what about using Tk to manage your own window with your own buttons ?
and you won't need to redirect STDOUT, only refresh a text widget.
And this will run on any platform you have perl. I suppose it's
necessary
for your script :-)
JRC
Morbus Iff wrote:
>
> I've been working on this sc
Title: Re: Rounding numbers
use POSIX;
$ceil = ceil(3.5); # 4
>From perlfaq4.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Alloun, JonathanSent: Wednesday, February 14, 2001 6:54
AMTo: [EMAIL PROTECTED]Subject:
- Original Message -
From: "Morbus Iff" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, February 14, 2001 7:07 AM
Subject: Re: Rounding numbers
> >Is there a function out there that will enable me to round up a
number
> >i.e. 0.93495959 would become 1
>
> I've got this o
> "Alloun, Jonathan" wrote:
>
> Hello,
>
> Is there a function out there that will enable me to round up a number
>
> i.e. 0.93495959 would become 1
use strict;
use POSIX;
for (0.93495959, 1.91, 2.01) {
print ceil ($_), "\n";
}
__END__
--
,-/- __ _ _ $Bill Luebke
Joe Schell wrote:
> 'Proper' being as defined in all of the relevant RFC's - presumably
> including email comments and the older formats?
>
> If so then you might wish to create a module. I don't believe one
> currently exists that correctly checks the format.
it does. Email::Valid by Maurice Au
hi,
I am trying to send mail via socket.pm module.
I am opening a socket on the server to my
ISP smtp server, when I try to send the message
I am getting "Broken Pipe" error.
What could be the cause ? what does this mean ?
thanks in advance
__
Click,
I've been working on this script for a while, and everything runs correctly
on Mac, Windows, and Linux. The only problem is that on Windows, after you
play around with the script for a while (it's a persistant thing - doesn't
exit by itself), the DOS/Console window it opens up in *freezes*, and I
At 11:53 AM 2/14/01 -, Alloun, Jonathan wrote:
>
> Hello, Is there a function out there that will enable me to round up a
>number i.e. 0.93495959 would become 1 Thanks in advance,
Jonathan
Not as short as a simple function call, but works:
$x = 2.01;
$y = ($x == int($x) ?
>Is there a function out there that will enable me to round up a number
>i.e. 0.93495959 would become 1
I've got this one that will allow you to round to tens, hundreds, and
thousands:
##
# round() - rounds a number
35 matches
Mail list logo
