On (09/01/03 17:35), Alex Blum wrote:
ok. there's two options:
2. I fix this.
Good choice!
can someone help me please? I'm stuck with this, and don't know, how to
solve the problem. just in case: I did read the
Chapter 23. Security of programming perl (3rd edition) and still don't
know any
now, that is, what I call help!
thank you very MUCH
since I removed all unwanted files from the array @files earlier while
reading the directory contents, I simply changed:
$file =~ /^(\w\.)+$/;
to
$file =~ /^(.+)$/;
and it works
and again, thank you for taking your time to respond and
since I removed all unwanted files from the array @files earlier while
reading the directory contents, I simply changed:
$file =~ /^(\w\.)+$/;
to
$file =~ /^(.+)$/;
and it works
Glad you were able to get it working. Unfortunately, the regex you have
chosen is effectively bypassing
Evan N Mr Niso/Lockheed Martin Kehayias wrote:
Greetings,
Hello,
I am attempting to limit entries a user could make when inputting names into
one of my scripts. I prompt the user to enter one or more names. One name
is easy to isolate but when there are more I want to support commas. At
Rob Dixon wrote:
Hi John, all
Hello,
John W. Krahn [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
[ top-posting fixed ]
I'm wondering how much of an error, if any, people think this is? I
personally choose to top-post so that anybody reading through
That's right. It's:
use Term::ReadKey;
:
ReadMode 2;
$pass = ReadLine 0;
ReadMode 0;
/R
Simran [EMAIL PROTECTED] wrote in message
1042162674.10277.43.camel@pingu">news:1042162674.10277.43.camel@pingu...
Have a look at Term::ReadKey ...
You need to set noecho (i
Hello,
If(keys %hash){
#do ...
}
Could you suggest an other way, please ?
Thanks in advance.
José.
DISCLAIMER
This e-mail and any attachment thereto may contain information which is confidential
and/or protected by intellectual property rights and are intended for the
if (%hash){
$ do
}
Tor.
NYIMI Jose (BMB) wrote:
Hello,
If(keys %hash){
#do ...
}
Could you suggest an other way, please ?
Thanks in advance.
José.
DISCLAIMER
This e-mail and any attachment thereto may contain information which is
confidential
Hi
I'm wondering why you want another way, as this is slower than it needs to
be but shouldn't cause any problems, but you can just do:
if (%hash)
{
:
}
which is neater.
HTH,
Rob
Nyimi Jose [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Deborah Scott wrote:
I have a txt data file that has several fields. Two of the fields are start
time and end time (listed in epoch time).
I need to write a perl program that finds (and prints) events that occur
between midnight last night and midnight tonight.
First problem:
The date
Sophia Corwell wrote:
Sorry about that...
Here is an example:
Here is what my hash looks like:
%compilers = (
system1 = ['compiler_a'],
system2 = ['compiler_b',
'compiler_c','compiler_d'],
system3 = ['compiler_e'],
);
Now, if I want to delete just the 'compiler_c'
Rob == Rob Dixon [EMAIL PROTECTED] writes:
Rob Well, I'm not sure what to do here. It's quite possible - I
Rob would use modules LWP, HTTP::Request::Form and
Rob HTML::TreeBuilder - but if you've only just read LP then I
Rob doubt you would understand how to do it. I could write
Wiggins == Wiggins D'Anconia [EMAIL PROTECTED] writes:
Wiggins How about top posting where it makes sense, aka the argument has
Wiggins shifted substantially, the original poster had no clue what they were
Wiggins talking about :-), etc.
In that case, it's a new thread. Don't even hit reply.
Hi all
///
if($TYPE eq HP-UX)
{ `/usr/sbin/swlist | grep OV NNM |cut -f1 RF1 `;}
else
{ `find /system/ -name deins_patch |cut -f3 -d / RF1`; }
#
how to check if the newly made file RF1 is empty or not ?
#
how to check if the newly made file RF1 is empty or not ?
#
perldoc -f -x
check the -z operator
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
At this point could a user still input something like 7mary3. Ideally a
user can enter a name or several separated by commas but *nothing* else.
Convention would be lowercase firstinitiallastname It seems like Rob's is
really close but I don't understand all of the code. I am a little shy with
HTML-Kit will do that, too. It's just that I have been known to open up
lesser editors from time to time, such as Notepad.
I'll check with my ISP to see if the Perl on the Cobalt Raq's can be
upgraded. It doesn't matter that much, though.
Thanks for the replies.
--
To unsubscribe, e-mail:
What I posted earlier is pretty much it. I basically want to change the
contents of a sudoers file for sudo. I make almost all of the other
modifications in another script. In the current script I want to find the
line that says User_AliasACLPUSHER in the sudoers file and replace it
with
I am not sure how to delete a specific value from a
hash whose keys contains multiple values.
Could anyone advice, please?
Thanks,
Sophia
__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To
Hey all,
I need to return the largest of 3 vars. Is there a better way than
nested IF statements? Maybe put them in an array and sort it?
--
Tim Musson
Flying with The Bat! eMail v1.62 Christmas Edition
Windows 2000 5.0.2195 (Service Pack 2)
Why isn't there mouse-flavored cat food?
--
To
Joshua Scott [EMAIL PROTECTED] wrote in message
5D23931127B7EB409640001B7E8A6E32014A2AFA@PASNT32">news:5D23931127B7EB409640001B7E8A6E32014A2AFA@PASNT32...
I've created a group of Perl subroutines to handle the creation and layout
of my web pages. These subs are used when browsing to my
R. Joseph Newton [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
snip
Having perused a few newsgroups I would say that 99.9% of them post to the
bottom of the e-mail. Question at the top...answers at the end.
Bob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On Fri, Jan 10, 2003 at 12:51:45AM +0530, Sukrit wrote:
Problem Overview
-
Somewhere on the world wide web, exists an asp page with the following
form -
form action=rollresult.asp method=POST id=form1 name=form1 onSubmit=return
validate() target=_top
On entering a valid
John W. Krahn wrote:
Alan C. wrote:
snipped
Here is one way to do it:
#!/perl/bin/perl -w
use strict;
my $text = do { local $/; };
$text =~ s/\n(?!\.|\z)/ /g;
print $text;
Your code does the job just super! Thanks!
The (|) parenthesis group with left side | right side sandwiched
between
Rob Dixon wrote:
my $last = undef;
while ()
{
next unless defined $last;
chomp $last unless /^\./;
print $last;
} continue {
$last = $_;
}
print $last;
Your code works super for the job!
I had thought of chomp and unless. But I'm too
Hey Sophia,
My MUA believes you used
to write the following on Thursday, January 9, 2003 at 6:48:42 PM.
SC I am not sure how to delete a specific value from a hash whose
SC keys contains multiple values.
SC Could anyone advice, please?
Does this help?
perldoc -q delete
--
Tim
How do I challenege more than one variable like I want to
check for the input of Y N y or n for a yes no question. I
put until $answer =~ m/YyNn/ that did not work. Anybody have
any solutions?
the way you did it, would need to use or operator
$answer =~ m/Y|y|N|n/
you probebly want to
Tim Musson wrote:
Hey all,
I need to return the largest of 3 vars. Is there a better way than
nested IF statements? Maybe put them in an array and sort it?
You can write the sort without needing a separate array:
$max = (sort {$b=$a} ($x, $y, $z))[0];
Or, you can do something like
Hi Alan,
Apparently, continue is not supported in Perl, but a conditional next seems to perform
the same function.
Joseph
...perldoc -q continue turned up nothing.
...providing condition met, next makes it skip to the next iteration?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Not sure specifically about continue but just because perldoc doesn't turn up anything
doesn't mean perl doesn't support it. It means that you either typed it wrong or your
perl doc doesn't have that for some reason. Just fyi
-Original Message-
From: R. Joseph Newton [mailto:[EMAIL
If you are on unix and index.cgi prints all of the html that you'd like in index.html
then eithe command line or backtick in a script :
./index.cgi index.html
Dan
-Original Message-
From: Bob X [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 09, 2003 7:12 PM
To: [EMAIL PROTECTED]
If you really want to get into it you can parse the apache log and calculate bandwidth
loosley o ntht althoug hh that won't include ftp, pop, smtp, etc.. Traffic. There's a
module to help called Apache::ParseLog or something like that.
-Original Message-
From: Victor Tsang
From: Bob Showalter [EMAIL PROTECTED]
Tim Musson wrote:
Hey all,
I need to return the largest of 3 vars. Is there a better way than
nested IF statements? Maybe put them in an array and sort it?
You can write the sort without needing a separate array:
$max =
From: Scott, Joshua [EMAIL PROTECTED]
Let me add a little more info regarding my question. The subroutines
are already setup and can't be modified easily. The basic task of all
the different subs is to print to STDOUT. I'd really like to be able
to call this sub from another script and
From: Benjamin Jurado [EMAIL PROTECTED]
Subject:perl monger needed asap...
Please read How To Ask Questions The Smart Way
(http://www.tuxedo.org/~esr/faqs/smart-questions.html#bespecific)
ASAP.
how can i store the results in a array,hash,reference...
use
Dan Muey said:
-Original Message-
From: R. Joseph Newton [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 10, 2003 8:26 AM
To: Alan C.
Cc: [EMAIL PROTECTED]
Subject: Re: Remove some, not all \n from a text block
Hi Alan,
Apparently, continue is not supported in Perl, but a
Like I said, typed wrong. Didn't have time to go look for it but I thought it had to
do with that -q.
Just to note I wasn't the one that said :
Hi Alan,
Apparently, continue is not supported in Perl, but a conditional next
seems to perform the same function.
Joseph
:)
Dan
-Original
Hey Jenda,
My MUA believes you used Pegasus Mail for Windows (v4.02a)
to write the following on Friday, January 10, 2003 at 10:04:23 AM.
Thanks all! I know I can always count on this list!
Looks like we are going with this one.
JK sub Bob {
JK my $max = (sort {$b=$a} ($x, $y,
From: Tim Musson [EMAIL PROTECTED]
Hey Jenda,
My MUA believes you used Pegasus Mail for Windows (v4.02a)
to write the following on Friday, January 10, 2003 at 10:04:23 AM.
Thanks all! I know I can always count on this list!
:-)
Looks like we are going with this one.
JK sub
Hey Jenda,
My MUA believes you used Pegasus Mail for Windows (v4.02a)
to write the following on Friday, January 10, 2003 at 11:04:07 AM.
JK According to the benchmarks this one was slightly better
JK my ($max) = sort {$b=$a} ($x, $y, $z);
I thought Bob2 was the better one...
In the line
my $max = (sort {$b=$a} ($x, $y, $z))[0];
What is the [0] doing?
Also another question. While messing around with the compact version of if
statements I tried these.
$one = 1;
($one == 1) ? (print \$one equals, print $one) : (print \$one does not
, print equal 1);
Returns
1
$one
I want to replace all forward slashes with back slashes is a file.
Using a one liner I tried
perl -I -i.bak -w -e 's!/!\\!g' map.bat
I get this error
useless use of a constant in void context at -e line 1.
this is on a windows xp machine.
Paul Kraus
Network Administrator
PEL Supply Company
Paul Kraus wrote:
I want to replace all forward slashes with back slashes is a file.
Using a one liner I tried
perl -I -i.bak -w -e 's!/!\\!g' map.bat
1) You don't need -I
2) You do need -p
3) You probably need to use double-quotes instead of single, due to Windows
shell brain damage.
4)
that worked.
Now I wanted to replace any white space with a single space.
I used this command
perl -pi.bak -w -e s/\s+/ /g map.bat
That worked correctly but it removed all of my new lines.
Why should I use tr instead?
-Original Message-
From: Bob Showalter [mailto:[EMAIL
I have a perl cgi script that needs to access a database using
Sybase::DBlib.
The CGI bit is working - am able to display text, forms etc correctly, but
when try to connect to the database it fails to connect. Oddly the same db
connection script works in a different script - and the db
Paul Kraus wrote:
Now I wanted to replace any white space with a single space.
I used this command
perl -pi.bak -w -e s/\s+/ /g map.bat
That worked correctly but it removed all of my new lines.
Because new lines are whitespace. Adding -l (ell) to the perl command is the
easiest way to
I am trying to make a small menu for a script and the options are 1 or 2
or 9. I have it written like this
until ($selection == '1|2|9'){
do some stuff
}
and it wont work. I know it is something simple but I am a little
simple myself today and don't know what I am doing wrong.
Dylan Boudreau wrote:
I am trying to make a small menu for a script and the options are 1
or 2 or 9. I have it written like this
until ($selection == '1|2|9'){
do some stuff
}
and it wont work. I know it is something simple but I am a little
simple myself today and don't know
this worked for me.
#!/usr/bin/perl -w
until ($selection=~/[129]/){
print Hello\n;
$selection = 1;
}
I tried 1239.
129 print hello once.
3 is endless hello loop.
Or you can do
until (($selection==1)||($selection==2)||($selection==9)){
code;
}
hope that helps.
-Original
You need a regular expression like
Until ($selection =~ m/^1$|^2$|^9$/) {
Do some stuff
}
The ^ and $ keep them from enterin say '12' or '109' or 'I love 1 monkey'.
Remove them if you only care that they at least type the digit and don't care if
there's extra stuff
Dan
-Original
Have it print $dbh-errstr to see what the database says is wrong.
At least that'd work with DBI not sure about Sybase::Dblib.
Regardless have it print the problem instead of just , 'sorry'
Not sure also but it sounds like apache may not have permission to access the database.
Ie you 'userbob'
Hey Jensen,
My MUA believes you used Internet Mail Service (5.5.2653.19)
to write the following on Friday, January 10, 2003 at 11:23:43 AM.
JKBSAD my $max = (sort {$b=$a} ($x, $y, $z))[0];
JKBSAD What is the [0] doing?
It is putting the largest value in $max. Try changing it to -1, it
Hey Jensen,
My MUA believes you used Internet Mail Service (5.5.2653.19)
to write the following on Friday, January 10, 2003 at 11:23:43 AM.
JKBSAD $one = 1;
JKBSAD ($one == 1) ? (print \$one equals, print $one) : (print \$one does not ,
print equal 1);
Why the double print
The two print statements were there for the sake of having 2 commands. Most
of the time I have in statements I have more than one statement to execute
in the block.
(Condition) ? (if condition true statements) : (if condition false
statements);
Seems to me that multiple commands are executed in
Thanks everyone, for some reason a regexpr never came to mind.
Good thing its Friday,
Dylan
-Original Message-
From: Dan Muey [mailto:[EMAIL PROTECTED]]
Sent: January 10, 2003 1:35 PM
To: Dylan Boudreau; [EMAIL PROTECTED]
Subject: RE: menu
You need a regular expression like
Until
On Fri, Jan 10, 2003 at 11:53:15AM -0600, Jensen Kenneth B SrA AFPC/DPDMPQ wrote:
From: Tim Musson [mailto:[EMAIL PROTECTED]]
JKBSAD $one = 1;
JKBSAD ($one == 1) ? (print \$one equals, print $one) : (print
JKBSAD \$one does not , print equal 1);
Why the double print statements?
Pradeep Goel wrote:
Hi all
Hello,
///
if($TYPE eq HP-UX)
{ `/usr/sbin/swlist | grep OV NNM |cut -f1 RF1 `;}
else
{ `find /system/ -name deins_patch |cut -f3 -d / RF1`; }
#
how to check if the newly made file
On Fri, 2003-01-10 at 01:23, R. Joseph Newton wrote:
Hi James,
You had one good point there. I have now turned automatically quote reply
off in my m,ailer preferences. Now my replies should include only such part
of the originals as is necessary to make the connection to the prior post.
Alan C. wrote:
John W. Krahn wrote:
Alan C. wrote:
snipped
Here is one way to do it:
#!/perl/bin/perl -w
use strict;
my $text = do { local $/; };
$text =~ s/\n(?!\.|\z)/ /g;
print $text;
Your code does the job just super! Thanks!
The (|) parenthesis group with left side
Mark Goland wrote:
How do I challenege more than one variable like I want to
check for the input of Y N y or n for a yes no question. I
put until $answer =~ m/YyNn/ that did not work. Anybody have
any solutions?
the way you did it, would need to use or operator
$answer =~
On Thu, 9 Jan 2003 22:59:03 +0800 (CST), [EMAIL PROTECTED] (Gary fung)
wrote:
My coding is similar as:
$value2 = $dbh-prepare(SELECT page FROM $Table
GROUP BY page) || die Couldn't add record, .$dbh-errstr();
Whenever I use GROUP BY.. , an error statement will go out :
SQL ERROR:
I apologize if this has already been covered to but...
Can you run that command by hand and does it work?
Do this to see is both $Table has a value and if the generated code is actaully a
valid sql command.
$query = SELECT page FROM $Table GROUP BY page;
print P QUERY -$query- P \n
$value2 =
Folks,
(B
(BCan some one kindly slap me silly and show me where I went south?
(B
(B
(Bsub dbMonthlySelect() {
(Bmy $query;
(Bmy $result;
(B
(B$query = "select * from mbstats_se where
(BSTATDATE=TO_DATE('12/30/02','MM/DD/YY')";
(B$result =
On Fri, Jan 10, 2003 at 09:34:18AM -0600, Dan Muey wrote:
Just to note I wasn't the one that said :
Hi Alan,
Apparently, continue is not supported in Perl, but a conditional next
seems to perform the same function.
Joseph
:)
No. But unfortunately your mailer doesn't make it
Can I put a formfeed in a perl cgi ?
I've tried print \f or something like but I can't force a new page.
Can someone help me ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Can I put a formfeed in a perl cgi ?
I've tried print \f or something like but I can't force a new page.
Can someone help me ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
dhoubrechts wrote:
Can I put a formfeed in a perl cgi ?
I've tried print \f or something like but I can't force a new page.
Can someone help me ?
This is not a Perl issue. See:
http://www.w3.org/TR/REC-CSS2/page.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
I thought I understood the answer, but I need more details.
What exactly would I enter if I want a program to find the epoch time for
midnight each night? I know how to find current time and date in both
human time and epoch time.
I want to generate a report that displays the events that are
What exactly would I enter if I want a program to find the epoch time for
midnight each night? I know how to find current time and date in both
human time and epoch time.
I can't give you code, because I haven't worked with perl's various time
functions, but logically, I would get the epoch
Hello
I am using Perl/CGI on Linux (with Apache).
Some users have cookies disabled in their browsers and some are using the
old ones, which cause problems, along with Netscape.
Anyhow, I am looking for following solutions
1. How do we know the Operating System of the Client's system?
2. Where can
perldoc -f continue
Paul Johnson - [EMAIL PROTECTED]
Hmm, okay, it's there, I see. I'm not sure I would be in a hurry to use it, though.
I think a well-construction flow within a block should obviate any need for it. The
next statement, though, is very useful, and I think that was the
Can some please help here :)
I have the following
sub dbMonthlySelect() {
my $query;
my $result;
$query = select * from mbstats_se where
STATDATE=TO_DATE('12/30/02','MM/DD/YY');
$result = doQuery($query,'dbMonthlySelect');
my $i =
Try using 'cmp' instead of '=' in your sort. Then it will sort
alphanumerically.
-Original Message-
From: Yacketta, Ronald [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 10, 2003 4:43 PM
To: [EMAIL PROTECTED]
Subject: hash sorting
Can some please help here :)
I have the following
Timothy Johnson wrote:
Try using 'cmp' instead of '=' in your sort. Then it will sort
alphanumerically.
This does not appear to help, perldoc perlop says:
Binary cmp returns -1, 0, or 1 depending on whether the left argument
is stringwise less than, equal to, or greater than the right
Ronald Yacketta wrote:
Can some please help here :)
I have the following
sub dbMonthlySelect() {
my $query;
my $result;
$query = select * from mbstats_se where
STATDATE=TO_DATE('12/30/02','MM/DD/YY'); $result =
Whoops.
$answer =~ m/^y|n$/i
:O)
- Original Message -
From: John W. Krahn [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, January 10, 2003 2:38 PM
Subject: Re: Delimiter Question
Mark Goland wrote:
How do I challenege more than one variable like I want to
check
Yup. I guess I shouldn't answer questions on the last hour of a busy work
week, but I'll give it another shot. I suppose you could try something
along these lines:
foreach(sort keys %$i){
push(@sorted,$_) unless /^I\d+$/;
}
foreach(sort keys %$i){
push(@sorted,$_) if /^I\d+$/;
}
now
(B foreach my $i ( sort { $a = $b } (keys (%hash))) {
(Bprint "$i = $hash{$i}\n" if ( defined $hash{$i} );
(B }
(B }
(B
(B
(Bhow about
(B
(B foreach my $i ( sort ( keys(%hash) ) ) {
(Bprint "$i = $hash{$i}\n" if (
Deborah Scott wrote:
I thought I understood the answer, but I need more details.
What exactly would I enter if I want a program to find the epoch time for
midnight each night? I know how to find current time and date in both
human time and epoch time.
I want to generate a report that displays
Hello,
I am a total beginner, so any help or a pointer to an appropriate doc will be
appreciated.
I am trying to read a file, and find all the lines that look like;
Finding 111 where 111 could be any number with any amount of digits.
What I am trying to do now is to assign a variable to that
Mark Goland wrote:
From: John W. Krahn [EMAIL PROTECTED]
Mark Goland wrote:
the way you did it, would need to use or operator
$answer =~ m/Y|y|N|n/
you probebly want to check if thats the only thing entred,
$answer =~ m/^yn$/i
^ begins with, $ ends with, i is for
Hello All,
I am sure someone out their in Perl land can offer a better solution
to the following.
###
### slurp in all the required data for the report
###
open ($LOG,cat $g_logdir/OrderServer-*.log|)
or die ( Unable to open
82 matches
Mail list logo