hi all.
I wish ,all of you be hopefull and happy.
I write one program for control user in ISP
(internet service provider)
with crontab.
it runs every 2 minutes and finish and
2 minutes later , run again
in your mind..
how can I write it with perl ??
thx for your time.
thx alot.
__
I encountered a problem with floating point arithmetic that I'm afraid
may be causing greater calculation errors in my program. The program
I'm writing calculates numerical solutions for ordinary differential
equations (http://sid.cwru.edu/perl/euler.pl). What's happening is
that floating point
Shane Garza wrote:
>
> Not just in perl this is my first program ever.
>
> I decided to look at perl first while immersed in awe.
>
> I am posting this code for feedback "and hopefully some positive feedback is
> there", I just want to learn ;). So flame away, and try to create the same
> logi
How about this :-
open (SALARY,"c:/salary") || die"$!\n";
chomp (@read = );
close (SALARY);
$read = join '',@read;
$read = $read + 10;
open (SALARY,">c:/salary") || die "$!\n";
print SALARY $read;
close SALARY;
--- end of msg --
- Original Message -
From: "nafiseh saberi" <[EMAIL
Jeff 'Japhy' Pinyan wrote:
>
> I suggest a negative look-behind and a negative look-ahead:
>
> $string =~ s/(?
> But that might take too long, since it's probably not optimized the way it
> should be. So I'd probably go with:
>
> $string =~ s/(\s+)/length($1) == 1 and $1/eg;
List,
Just been playing around with the code a little more...
sub view_users{
open PASSWD, "$file" or die "$file: $!\n";
while ($lines = ) {
@lines = split (/:/, $lines);
if ($lines[3] == 45 ) {
$users{$lines[0]} = $lines[4];
}
}
return %users;
close PASSWD;
}
vie
Hey all,
Currently I am working on the Linux /etc/passwd file. Now I want to be
able to split the /etc/passwd file for example...
tunnel:x:503:503::/home/tunnel:/bin/bash
test:x:504:50:Test Account:/home/test:/bin/false
test2:x:507:502:Test Account:/home/test2:/bin/false
daniel:x:508:45:Thats M
Not just in perl this is my first program ever.
I decided to look at perl first while immersed in awe.
I am posting this code for feedback "and hopefully some positive feedback is
there", I just want to learn ;). So flame away, and try to create the same
logic in two lines if you can "and that
> "Jeff" == Jeff Norville <[EMAIL PROTECTED]> writes:
Jeff> PLEASE NOTE: This message, including any attachments, may include
Jeff> privileged, confidential and/or inside information. Any distribution or use
Jeff> of this communication by anyone other than the intended recipient(s) is
Jeff> s
Looked through CPAN but didn't find anything specifically dealing with
receipt of attachments.
I basically want to parse an attachment for a PGP key. Suggestions?
Jeff Norville
IVR Engineer
PreNet Corporation
503.944.4600 x308
PLEASE NOTE: This message, including any attachments, may include
>> Jonathan wrote:
>> I don't think the shell is called to
>> resolve the "/home/users/me/web/$in
>> {'NAME'}.ext" bit, and therefore
>> you cannot run commands with it.
>
> Randal wrote:
> It would be if $in{NAME} contained "|\0".
> NULL characters terminate the string, and
> if | appears just b
He didn't specify perl. So I guess this works.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 28, 2001 1:37 PM
To: 'Zysman, Roiy'; '[EMAIL PROTECTED]'
Subject: RE: a beginners challenge
> -Original Message-
> From: Zysman, Roiy [mai
On Wed, Nov 28, 2001 at 04:03:46PM -0500, Jeff 'japhy' Pinyan wrote:
> On Nov 28, Michael Fowler said:
> >Given a version of Perl 5.6 or greater, then the substitution could become:
> >
> >s/(?
> That works in 5.005 too.
Ah, so it does. Thank you for the correction.
Michael
--
Administrat
On Wed, Nov 28, 2001 at 08:19:26PM +0200, Zysman, Roiy wrote:
> > Lets see who can write the most lean ,mean , elegant , powerful, poetic
> > (but most important) _Shortest_, script that cleans from a directory
> > files that are at least 3 days old.
perl -e 'chdir(shift @ARGV); sleep(3*86_400);
On Nov 28, Michael Fowler said:
>On Wed, Nov 28, 2001 at 11:56:30AM -0800, Ahmed Moustafa Ibrahim Ahmed wrote:
>> You don't you need the line beginning and line termination in
>> s/(^|[^ ]) ([^ ]|$)/$1$2/g;
>
>Given a version of Perl 5.6 or greater, then the substitution could become:
>
>s/(?
On Wed, Nov 28, 2001 at 11:56:30AM -0800, Ahmed Moustafa Ibrahim Ahmed wrote:
> You don't you need the line beginning and line termination in
> s/(^|[^ ]) ([^ ]|$)/$1$2/g;
It depends on what is desired in the two edge cases of " foobar" and
"foobar ", and what version of Perl is being used. I wa
On Nov 28, Ahmed Moustafa Ibrahim Ahmed said:
>You don't you need the line beginning and line termination in
>s/(^|[^ ]) ([^ ]|$)/$1$2/g;
>
>Would
>s/([^ ]) ([^ ])/$1$2/g
>be simpler?
But it doesn't work in all cases:
$_ = "a ";
s/([^ ]) ([^ ])/$1$2/g;
print; # "a "
But the (^|[^x]) app
On Nov 28, Michael Fowler said:
>$_ = "I want to delete all this spaces, but this";
>s/(^|[^ ]) ([^ ]|$)/$1$2/g;
>
>It seems there should be a simpler way, perhaps without the $1 $2
>replacement, but that's the best I came up with.
My look-behind/ahead approach does, but I d
Michael,
You don't you need the line beginning and line termination in
s/(^|[^ ]) ([^ ]|$)/$1$2/g;
Would
s/([^ ]) ([^ ])/$1$2/g
be simpler?
Thanks,
Ahmed
- Original Message -
From: Michael Fowler
To: Pedro A Reche Gallardo
Cc: [EMAIL PROTECTED]
Sent: Wednesday, November 28, 2001 1
Ok, I've been with the list now on and off for about 4 months. I've seen
some DBI examples, but most only deal with extracting info from a database.
I want to create one. Here's what I have:
I have a current shell script using SQLPlus that creates the database within
Oracle on our primary syste
On Wed, Nov 28, 2001 at 11:48:30AM -0500, KEVIN ZEMBOWER wrote:
> find -iname "*.*htm*" -o -iname "*.stm"|xargs egrep -l
>
>"centernet\.jhuccp\.org/cgi-bin/mail2friend|cgi\.jhuccp\.org/cgi-bin/mail2friend"|xargs
> perl -pi~ -e"s?http://.*\.jhuccp\.org(/cgi-bin/mail2friend)?\1?g;"
Someone suggest
On Wed, Nov 28, 2001 at 01:25:51PM -0500, [EMAIL PROTECTED] wrote:
> $string = "I want to delete all this spaces, but this";
> $string =~ s/\s{1}(?=\w)//g;
> print $string;
Almost, but it doesn't match his description. Consider a few edge cases:
"foo bar" is chang
On Wed, Nov 28, 2001 at 01:06:19PM -0500, Pedro A Reche Gallardo wrote:
> Hi all, I would like to delete all single white spaces from a string
> without deleting concatenated white spaces. An example:
> $string= "I want to delete all this spaces, but this"
>
> The result would be:
>
Ahmed,
As it was an oversight and Jenda had rightly pointed out, my solution eats
up one space if there is more than one concatenated space!
$string =~ s/\s{1}(?=\S)//g;
By the aforementioned statement, I meant -- Match a space that is
immediately followed by a non-space character. If a find is
On Wed, 28 Nov 2001, Kevin Meltzer <[EMAIL PROTECTED]> wrote,
> > What is the difference between mysql and MySQL (case sensitivity)?
>
> Unless I missed a new product along the line, mysql is just a non-correct-case
> for MySQL.
Doesn't anyone ever use the mysql client for MySQL?
san@pts2
Rex,
Would you explain your regexp, please? Also, what do you think about this:
$string =~ s/([^\s])\s([^\s])/$1$2/g;
Thanks,
Ahmed
On Wed, 28 Nov 2001 [EMAIL PROTECTED] wrote:
> Let me give it a shot...How about this?
> --Rex
>
> $string = "I want to delete all this spaces, but
On Nov 28, Pedro A Reche Gallardo said:
>Hi all, I would like to delete all single white spaces from a string
>without deleting concatenated white spaces. An example:
>$string= "I want to delete all this spaces, but this"
>
>The result would be:
>
>$string = "Iwanttodeleteallthisspa
Put the file handle where to print:
=
#!/usr/bin/perl -w
use strict;
# No need to decode, CGI makes it for you!
use CGI;
# no need to set if you don't modify them
my $q = new CGI;
open(OUT, "> dataform.html") or die "Can't open file: $!";
print OUT "Candidate: $q->param('candidate')\n";
Any takers on this one:)
> Subject: The below CGI script creates my dataform.html but when I
> open it theres no contents;ie Candidate: $candidate etc
>
> Hello Everyone,
> Any hints on how to send data into this file "dataform.html file" to
> append and update its contents..
> I'm trying
> Let me give it a shot...How about this?
> --Rex
>
> $string = "I want to delete all this spaces, but this";
> $string =~ s/\s{1}(?=\w)//g; print $string;
1) I bleive you meant \S and not \w
$string =~ s/\s{1}(?=\S)//g; print $string;
2) It doesn't work correc
> -Original Message-
> From: Zysman, Roiy [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, November 28, 2001 1:19 PM
> To: '[EMAIL PROTECTED]'
> Subject: a beginners challenge
>
>
>
> > Hi All,
> > Why not make a little challenge ..
> > Lets see who can write the most lean ,mean , elegant ,
>
Sound like an assignment for school
Etienne
Mike Rapuano wrote:
>
> Huh, sounds fishy...
>
> Good try;)
>
> M.
>
> -Original Message-
> From: Zysman, Roiy [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, November 28, 2001 1:19 PM
> To: '[EMAIL PROTECTED]'
> Subject: a beginners challeng
Let me give it a shot...How about this?
--Rex
$string = "I want to delete all this spaces, but this";
$string =~ s/\s{1}(?=\w)//g;
print $string;
> -Original Message-
> From: Pedro A Reche Gallardo [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, November 28, 2001 1:06 PM
> T
Yup sounds fishy...
Plus it's elegant done in Java, Perls good, but elegant is Java.
Michael D. Eggleton
http://www.gorealnetworks.com
mailto:[EMAIL PROTECTED]
-Original Message-
From: "Mike Rapuano" <[EMAIL PROTECTED]>
To: "Zysman, Roiy" <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>
Date:
Hi all, I would like to delete all single white spaces from a string
without deleting concatenated white spaces. An example:
$string= "I want to delete all this spaces, but this"
The result would be:
$string = "Iwanttodeleteallthisspacesbutthis"
Any idea we
Huh, sounds fishy...
Good try;)
M.
-Original Message-
From: Zysman, Roiy [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 28, 2001 1:19 PM
To: '[EMAIL PROTECTED]'
Subject: a beginners challenge
> Hi All,
> Why not make a little challenge ..
> Lets see who can write the most lean
> Hi All,
> Why not make a little challenge ..
> Lets see who can write the most lean ,mean , elegant , powerful, poetic
> (but most important) _Shortest_, script that cleans from a directory
> files that are at least 3 days old.
> Good luck all,
> You're welcome to pick who you think is the win
First question:
Perl all the way (well you're on a perl mailing list)
But your Perl knowledge will be useful everywhere. I tought I'd vener
need perl for other things than my website, and finally ended up to use
it (on win2k) to change every occurence of a word in many files, to
create index file
Thank you for your help, Luke, in clarifying my one-liner. I'm not the
best perl hacker and welcome the chance to learn from other who are.
I used the egrep to get only the files with cgimail2friend or
centernet...mail2friend in them. I thought I had earlier tried something
like you suggested
i need to edit the Makefile.pl on AIX
anybody knows how to
i have install_p perl from the .bff of aix
i need to edit to set the LD_RUN_PATH
i am getting error cant load Oracle.so; without being
able to do this
any help ??
rajib
__
Do You Yahoo!?
Yah
On Wed, Nov 28, 2001 at 12:38:48PM -0500, [EMAIL PROTECTED]
([EMAIL PROTECTED]) said something similar to:
> Hello,
>
> Can anyone tell me why he/she will choice PERL over PHP?
Personally, I didn't like using PHP when I *had* to. No sir, I didn't like it.
This was a recent thread on the beginne
On Wed, Nov 28, 2001 at 12:38:48PM -0500, [EMAIL PROTECTED] wrote:
> Can anyone tell me why he/she will choice PERL over PHP?
There are lots of reasons. The most important reason to use Perl
instead of PHP is that Perl is useful in many areas - web programming
as well as system administration a
"Scott R. Godin" wrote:
>
> In article <[EMAIL PROTECTED]>,
> [EMAIL PROTECTED] (Johan Vromans) wrote:
>
> > "Scott R. Godin" <[EMAIL PROTECTED]> writes:
> >
> > > has anyone implemented a 'better version' of the vacation program for
> > > themselves?
> >
> > From your message it is not quite c
Here is a start:
You would pull from the hash, but easier for testing to just use __DATA__ and
using map , I have the following setup:
0 - the date
1 - month
2 - day
3 - year
So you compare first vs year, then if necessary to month followed
Hello,
Can anyone tell me why he/she will choice PERL over PHP?
What is the difference between mysql and MySQL (case sensitivity)?
Lastly what is a good book for a developer who is interested in
implementing
a WEB-based database using MySQL and PERL?
PS: I have the Paul DuBois book on "MySQL
Thanks, that's what I needed.
thanks again.
Cheers,
Terrence
-Original Message-
From: Adam Turoff [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 28, 2001 10:19 PM
To: Terrence Chan
Cc: [EMAIL PROTECTED]
Subject: Re: OO Perl programming.
On Wed, Nov 28, 2001 at 04:54:53PM +0800,
Just to clarify the command:
find -iname "*.*htm*" -o -iname "*.stm" | \
xargs egrep -l \
"centernet\.jhuccp\.org/cgi-bin/mail2friend|cgi\.jhuccp\.org/cgi-bin/mail2friend"
| \
xargs perl -pi~ -e"s?http://.*\.jhuccp\.org(/cgi-bin/mail2friend)?\1?g;"
-
first off, why are you
> "Kevin" == Kevin Meltzer <[EMAIL PROTECTED]> writes:
Kevin> Never trust anyone over 30
Presuming that's in Hex, sure. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Te
On Wed, Nov 28, 2001 at 08:46:36AM -0800, Randal L. Schwartz ([EMAIL PROTECTED])
said something similar to:
> Never trust CGI params.
> Never trust CGI params.
> Never trust CGI params.
I'll add to that:
Never trust user input
Never trust database data
Never trust command line params
Never trus
I'm trying to find all the HTML documents in my website and change a
line in them from a link to a different site to an absolute link on the
current server. The perl one-liner I wrote is (Jeez, am I proud of
this):
find -iname "*.*htm*" -o -iname "*.stm"|xargs egrep -l
"centernet\.jhuccp\.org/cgi
Hello Everyone,
Any hints on how to send data into this file "dataform.html file" to append
and update its contents..
I'm trying to write code to capture the values from a URL address line and
have them sent
to a file to be entered and appended for me to view later.
The below code is what I'm tryi
> "Jonathan" == Jonathan e paton <[EMAIL PROTECTED]> writes:
Jonathan> I don't think the shell is called to resolve the
Jonathan> "/home/users/me/web/$in{'NAME'}.ext" bit, and therefore
Jonathan> you cannot run commands with it.
It would be if $in{NAME} contained "|\0". NUL characters term
> "Michael" == Michael Fowler <[EMAIL PROTECTED]> writes:
Michael> In that snippet you're accessing the hash %_, when you should be accessing
Michael> the hash reference in $_, like so:
Michael> for ($PASS{$PASSWD_NAME}) {
Michael> $new_user = $$_{user};
Michael> $new_pas
maarten hilgenga [[EMAIL PROTECTED]] quoth:
*>Hi all,
*>
*>After installing Perl 5.005.03 from the CPAN port on a Silicon Graphics
*>running IRIX 6.3 without any problems, I tried installing an openssl library.
*>During this installation I found two errors:
*>
*>can't locate module strict.pm &
*
[EMAIL PROTECTED] [[EMAIL PROTECTED]] quoth:
*>| Does anyone know where i can find a documentation to make my Modul
*>| CPAN conform?
*>
*>http://www-106.ibm.com/developerworks/linux/library/l-make.html
That is not for a beginner and I'm not sure many seasoned pros would even
be quite that masoch
I am very new to hashes (as well as Perl) and am having some difficulty with
a cgi script. This script allows individuals to post "announcements" via a
form. The form data is stored in a text file, sorted in descending order by
date, and printed to the html page. However, the script is currentl
Hi everybody!
I have a problem i don't know
how can I make to eliminate a line of a list in HTML? and later to erase the
lines that it selects.
I am considering to select using them " checkbox ", but i don't how can i do
for erasing them. How can I can do?
Thaks for your help.
On Wed, Nov 28, 2001 at 04:54:53PM +0800, Terrence Chan wrote:
> I'm new to OO Perl and I wonder if it is possible to implement Sigleton
> pattern in OO perl. And how it is implemented.
>
> Any info/pointer is welcomed.
Check out search.cpan.org for "singleton". You'll find this:
http://search
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Johan Vromans) wrote:
> "Scott R. Godin" <[EMAIL PROTECTED]> writes:
>
> > has anyone implemented a 'better version' of the vacation program for
> > themselves?
>
> From your message it is not quite clear whether your goal is to have
> an im
This works for me.
use Fcntl qw(:flock);
open(NUM, "+< next.num") || die "Can't get new number\n$!\n";
flock(NUM, LOCK_EX) || die "Can't lock next.num\n$!\n";
my($serviceNum) = ;
seek(NUM, 0, 0) || die "Can't rewind next.num\n$!\n";
my($outNum) = $serviceNum + 10;
print NUM "$outNum";
close(NUM)
On Wed, 28 Nov 2001, Ahmed Moustafa Ibrahim Ahmed <[EMAIL PROTECTED]> wrote,
> Hi Nafiseh,
>
> I think can't open a file for reading and writing at the same time.
> Anyway, the following should help:
>
> #--
> open (FILE, $file) || die "Can't open $file: $!\n";
> $v
Hi all,
After installing Perl 5.005.03 from the CPAN port on a Silicon Graphics
running IRIX 6.3 without any problems, I tried installing an openssl library.
During this installation I found two errors:
can't locate module strict.pm &
can't locate Getopt/Long.pm
My questions:
Are these module
Hi Nafiseh,
I think can't open a file for reading and writing at the same time.
Anyway, the following should help:
#--
open (FILE, $file) || die "Can't open $file: $!\n";
$value = ;
close (FILE);
$value += 10;
open (FILE, ">$file") || die "Can't open $file: $!\n";
From: "John W. Krahn" <[EMAIL PROTECTED]>
> Purshottam Chandak wrote:
> >
> > perl -ipe "s/yak/bak/g" `dir *.yak` is supposed to allow me to do a
> > search and replace on all the .yak files in the directory in which I
> > am working. It doesn't; I get all sorts of errors. I've
hi all.
how r u ?
I wish all of you be fine and happy.
I want to ...
1- open an existing file
2- read the number that exist in it
3- add it with 10
4-write the result in file.
5- note: I want to earse the last number and write the result
instead of it.
I write some code ..but doesn
Hi, I wonder if it is possible to create a new window(children) that could herit
all variables of a parent window in Perl TK under Windows .
So how can we do?
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Purshottam Chandak wrote:
>
> perl -ipe "s/yak/bak/g" `dir *.yak` is supposed to allow me to do a search
> and replace on all the .yak files in the directory in which I am working.
> It doesn't; I get all sorts of errors. I've tried modifications of said
> string- I've tried pipes,
>
> I've trie
| Does anyone know where i can find a documentation to make my Modul
| CPAN conform?
http://www-106.ibm.com/developerworks/linux/library/l-make.html
-- Marcus
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
hi to all
Does anyone know where i can find a documentation to make my Modul
CPAN conform?
I mean with makefile and and testscript and so on.
I mean not perldoc makemaker.
Thanx
Martin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
what kind of problem you hav ?
martin
On Tue, 27 Nov 2001 22:04:25 +0530, you wrote:
>I'd like some help running single line programs from the command line with
>the -e parameter. I keep having problems.
>
>Thanks.
>
>Pc
>
>
>
>_
>Do You Y
"Scott R. Godin" <[EMAIL PROTECTED]> writes:
> has anyone implemented a 'better version' of the vacation program for
> themselves?
>From your message it is not quite clear whether your goal is to have
an improved vacation program, or do you want an intelligent mail
filter? For the latter, try
Hi,
I'm new to OO Perl and I wonder if it is possible to implement Sigleton
pattern in OO perl. And how it is implemented.
Any info/pointer is welcomed.
Thanks in advance.
Terrence
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (John W. Krahn)
wrote:
> > my @line = split /:/;
> > if ( (lc($line[0]) eq lc($usrname)) && ($line[3] == 45) )
> ^^ ^^
> This won't work if a user name has upper case letters, for example I
> just created these tw
[EMAIL PROTECTED] (Madhura Ranade) writes:
> I am trying to display the details filled in the feedback form.
> I want to display it below the feedback form.
> The comments entered by the client should be displayed below the feedback
> form after the submit button is clicked.
> what will be the cod
[EMAIL PROTECTED] (Jeff 'Japhy' Pinyan) writes:
> On Nov 28, Leon said:
> >(Q2)How to do the following :-
> > If there are 2 spaces, I wish to convert it into 1 like
> >this =>
> > 3 spaces into 2 like this =>
> > 4 spaces into 3 like this =>
>
> I
perl -ipe "s/yak/bak/g" `dir *.yak` is supposed to allow me to do a search
and replace on all the .yak files in the directory in which I am working.
It doesn't; I get all sorts of errors. I've tried modifications of said
string- I've tried pipes,
I've tried separating the command line parameters
76 matches
Mail list logo
