Shishir K. Singh wrote:
>>Hi,
>
>>I want to open a temporary file somwhere and I am facing the problem of
>>making sure I dont write to an already existing temporary file, thus
>>curropting some other process somewhere else. Is there a way of telling
>>perl to open a new file for writing but to
On Tue, Jul 02, 2002 at 11:46:26AM -0400, James Baster wrote:
> I want to open a temporary file somwhere and I am facing the problem of
> making sure I dont write to an already existing temporary file, thus
> curropting some other process somewhere else.
Securely opening temporary files can be
On Wed, Jul 03, 2002 at 01:15:39AM +0800, Connie Chan wrote:
> For pure perl Code, you may try :
> if (-e "filename") { print "existed" }
> else { open (FH, ">filename"); .. ; close (FH)}
This is a bad idea, as you've introduced a race condition. What happens if
I symlink 'filename' to some
Hi.
[snip]
> How can I call a subroutine which is defined in another file i.e.
> the calling
> perlscript and the function are in different files.
[snip]
When asking a new question, consider either a new thread or cutting down the
text of the message, whichever you prefer.. ;)
You are looking a
Timothy Johnson wrote:
>
> m/(^.+\.gif|^.+\.jpg)/
>
> which would still be wrong, because you can't put anchors and such in a
> regex, but if we move everything except the characters we want to compare
> out of the (|), we get:
Actually, you can put anchors in a regular expression. Your exam
On Tue, Jul 02, 2002 at 10:39:41PM -0500, Mariusz wrote:
> I'm trying to built a simple shopping cart and I'm not sure where to
> start. I do not want to create a db at this point and the order will be
> simply e-mailed. Does this solution make any sense (that's what the cgi
> would do)? :
I'm go
Troy May wrote at Wed, 03 Jul 2002 07:58:10 +0200:
> Hello, I'm trying to match images by the extension. Either .jpg or .gif
>
> Here's what I wrote:
>
> $plup =~ m/\(\^\.\.gif\|\^\.\.jpg)/\
>
> Is it all screwed up? I'm not real good with regexes.
$plup =~ /\.(gif|jpg)$/;
Greetings,
Jane
hi,
is there a shorter way to write this:
sub eatArrays
{
my $arrayRef1 = shift;
my $arrayRef2 = shift;
my @array1 = @$attRef1;
my @array2 = @$attRef2;
..blah..
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL P
> my @array1 = @$attRef1;
> my @array2 = @$attRef2;
-^^^
"attRef" should of course read "arrayRef".
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
You can create a shortcut to command.com (win9x) or cmd.exe (winNT,
Win2k, WinXP) and put the directory you want in the start-in bit of the
shortcut properties.
>>> "Yasen Petrov" <[EMAIL PROTECTED]> 07/03/02 05:41am >>>
Hi there,
Anytime I run the DOS prompt it shows: C:\WINDOWS\Desltop>. And I
Michael Rauh wrote at Wed, 03 Jul 2002 11:07:42 +0200:
> is there a shorter way to write this:
>
> sub eatArrays
> {
> my $arrayRef1 = shift;
> my $arrayRef2 = shift;
my ($arrayRef1, $arrayRef2) = @_;
:-)
Cheerio,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additiona
[EMAIL PROTECTED] schrieb:
>
> my ($arrayRef1, $arrayRef2) = @_;
>
that's ok, but is it possible to put especially the
my $arrayRef1 = shift;
my @array1 = @$arrayRef1;
into one expression?
greetings
michael
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
When I try to install libwww-perl through ppm3 from the ActiveState
repository I get
Error: PPD for
'R:/inetpub/wwwroot/www2.activestate.com/PPMPackages/5.6-plus/libwww-perl.ppd'
could not be found.
Am I doing anything wrong? I've tried it on 2 machines and they both
give the same error.
ITM
From: "Rupert Heesom" <[EMAIL PROTECTED]>
> Thanks for the response, guys. I'm pleased that I don't have to write
> such a thing from scratch, Especially as I'm fairly new to Perl!
>
> Well, when I've been manually testing the file processing, it hasn't
> taken much time (20->30secs). And I'm
Thanks for the response, guys. I'm pleased that I don't have to write
such a thing from scratch,
Especially as I'm fairly new to Perl!
Well, when I've been manually testing the file processing, it hasn't
taken much time (20->30secs). And I'm not expecting much traffic, so I
can take it easy wit
Hi All,
I am new to Perl and need help to solve this one !
I have a txt file and the contents of the file are as below :
---CONTENTS OF TEXT FILE--
Abdullah Ahmed Hassan
Trading
Location Ruwi Souk St, Ruwi
Bus Hrs 0930-1300:1630-2200
P.O. Box 197 Ruwi
on Wed, 03 Jul 2002 09:51:37 GMT, Michael Rauh wrote:
> that's ok, but is it possible to put especially the
>
> my $arrayRef1 = shift;
> my @array1 = @$arrayRef1;
>
> into one expression?
my @array1 = @{+shift};
or
my @array1 = @{shift()};
--
felix
--
To unsubscribe, e-mail: [EM
I didn't see any libwww on their site... are you sure that they have it for
download? ActiveState only has a limited module repository.
http://www.activestate.com/PPMPackages/5.6plus/
Rob
-Original Message-
From: Nigel Peck [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 03, 2002 5:54
You are right, but when I search through ppm3 it shows up as being there
(libwww-perl), strange.
Thanks
Nigel
>>> "Hanson, Robert" <[EMAIL PROTECTED]> 07/03/02 02:11pm >>>
I didn't see any libwww on their site... are you sure that they have it
for
download? ActiveState only has a limited module
Are there any other PPM repositories worth noting other than the
standard ActiveState ones? (I know about the Mod_Perl one)
Thanks
Nigel
ITM Business Solutions
Unit 4
Nine Trees Trading Estate
Morthen Road
Rotherham
S66 9JG
Reception
Tel: 01709 703288
Fax: 01709 701549
Help Desk
Tel:01709 530
On Jul 3, Michael Rauh said:
>that's ok, but is it possible to put especially the
>
>my $arrayRef1 = shift;
>my @array1 = @$arrayRef1;
>
>into one expression?
my @array1 = @{ shift() };
my @array1 = @{ +shift };
my @array1 = @{ shift @_ };
But not
my @array1 = @{ shift };
--
Jeff "
On Tue, 2 Jul 2002 22:39:41 -0500, [EMAIL PROTECTED] (Mariusz) wrote:
>I'm trying to built a simple shopping cart and I'm not sure where to start. I do not
>want to create a db at this point and the order will be simply e-mailed. Does this
>solution make any sense (that's what the cgi would do)
Dear Nigel,
Thanks a ton for the script..It works fine though it skips the first record
even though I make
the file begin with a blank line by simply hitting enter !
Regards
Sunish
Nigel Peck wrote:
> My first attempt, which may be a bit simplified, would be to substitute
> any newline, which
I am creating a web-based video monitoring suit on RedHat. I have got
xawtv to show images live from a miniature camera and also to grab frames.
my question is: Can Perl use xawtv (or another free app) to gram images
from the camera and display it on a web page? it should update itself
regula
Hi Folks!
I'm banging my head in trying to get the logic behind doing this, so any
pointers are appreciated..
I'm (trying to anyway ;) parse a log file, which would contain:
AlarmInd:At=1025647244084,Point=Adm.Monitor,Text=process stops due to client
disconnected,Code=1,
So, here is an Alarm I
Nigel Peck [[EMAIL PROTECTED]] quoth:
*>Are there any other PPM repositories worth noting other than the
*>standard ActiveState ones? (I know about the Mod_Perl one)
Since I don't do Wintel I don't know much about PPM but I'm aware of a few
things that may be helpful.
CPANPLUS is a 'still-in-dev
Jo [[EMAIL PROTECTED]] quoth:
*>
*>The original file was saved on a windows machine, and i copy/pasted it through a
linux text editor. I noticed when i edit the original file using vi, down the bottom
next to the file name is [dos]. Im thinking this has something to do with it.
http://history.
on Wed, 03 Jul 2002 13:56:22 GMT, Anders Holm wrote:
> I'm banging my head in trying to get the logic behind doing this, so
> any pointers are appreciated..
(Don't do that, it hurts ;-)
> AlarmInd:At=1025647244084,Point=Adm.Monitor,Text=process stops due to
> client disconnected,Code=1,
>
> So
I think you'll need 2 blank lines.
-Original Message-
From: Sunish Kapoor
To: Nigel Peck
Cc: [EMAIL PROTECTED]
Sent: 7/3/02 6:51 PM
Subject: Re: Regular Expression Help sought
Dear Nigel,
Thanks a ton for the script..It works fine though it skips the first
record
even though I make
t
Dave Roth has a repository with a few very useful modules, like
Win32::AdminMisc and Win32::Daemon at http://www.roth.net/perl/packages.
Jenda Krynicky hosts some useful modules on his site, including
Win32::Lanman and Mail::Sender at http://jenda.krynicky.cz/perl. The
Win32::Lanman available
Your greatest concern here should be security, yours and that of your
customers.
I would say take something that is already developed. There are plenty
available for free. Try http://freshmeat.net/ and do a search.
> -Original Message-
> From: Mariusz [mailto:[EMAIL PROTECTED]]
> Sent:
I've been having a lot of problems installing modules on my Win2K system
(as some of you may remember).
While installing a module today it said "could not find
"C:\p4view\Apps\ActivePerl\MSI\data\ActivePerl\Perl\lib\CORE\perl.h"
None of that directory structure exists on my system and never has.
Hi, again
I am looking for help to validate a linux user.
I mean, the user, writes username and password and the script returns true or
false if login is correct or incorrect.
Please help me
Thanks a lot.
Bye.
-
This mail sent throu
You probably need to upgrade from ActivePerl 5.6.1 build 631. There was a
bug in that build that would cause this to happen if you ran a verify
--upgrade from PPM. You may also have problems with the Windows Installer
holding up your system for a while trying to "fix" your ActivePerl
installat
Yes you're right, that's exactly what happened. Donwloading 633 now.
Thanks :-)
>>> Timothy Johnson <[EMAIL PROTECTED]> 07/03/02 04:43pm >>>
You probably need to upgrade from ActivePerl 5.6.1 build 631. There
was a
bug in that build that would cause this to happen if you ran a verify
--upgrad
At 10:33 AM 7/3/02 -0500, Jose Vicente Paredes Loor. wrote:
>Hi, again
>I am looking for help to validate a linux user.
>I mean, the user, writes username and password and the script returns true or
>false if login is correct or incorrect.
>
>Please help me
% perldoc -f crypt
[snip]
Thanks Felix.
That's gotten me going again.. ;) Now I'll just figure out how to take one
error at a time and then evaluate what it contains, and count the number of
times it ocurs to then print out what I've found.. easy enough, eh? ;)
Ah well, now I have something to work from in any case!!
Ch
Hi,
> download? ActiveState only has a limited module repository.
>
> http://www.activestate.com/PPMPackages/5.6plus/
Try:
http://www.activestate.com/PPMPackages/zips/6xx-builds-only/
There is:
Tuesday, January 02, 2001 7:36 PM 565993 libwww-perl.zip
Hth,
Shaun
---
Outgoing mail is ce
Or, instead of changing the input file, change the regular expression to
also detect the beginning of the string.
$file =~ s/((^|\n\n).+?)\n/$1 /g;
Katy
Timothy Johnson wrote:
>
>
> I think you'll need 2 blank lines.
>
> -Original Message-
> From: Sunish Kapoor
> To: Nigel Peck
> Cc:
Thank you for all the advice. I looked through free scripts and I found most of them
too sophisticated for what I need. The site I'm working on will only collect orders
and email them - then someone will call the customer, verify and process the order
(they do not want to do credit cards over t
Hi all,
If I have a string, for examle: $date = "06072002";
How could I separate this in to three separate vars so that $mon=06,
$day=07 and $year=2002.
thanks,
William Black
Duke Energy
IM - Systems Mgmt Tools Support
401 S. College St., Charlotte NC
(704) 382-3787 Voice
--
To unsubscribe,
Hiya fellow Perlheads,
I've been lurking for a few months and figured I'd pose a question that I've
been banging my head against for a while. I have tried googling and I have R
the FM, but I can't find any clear indication of what the problem with the
code below is. This error message I get back
William J Black wrote at Wed, 03 Jul 2002 20:25:02 +0200:
> If I have a string, for examle: $date = "06072002"; How could I separate this in to
>three separate
> vars so that $mon=06, $day=07 and $year=2002.
>
my ($mon, $day, $year) = $date =~ /(..)(..)()/;
Greetings,
Janek
--
To unsub
Hi all,
If I have a string, for examle: $date = "06072002";
How could I separate this in to three separate vars so that $mon=06,
$day=07 and $year=2002.
thanks,
William Black - Duke Energy
IM - Systems Mgmt Tools Support
401 S. College St., Charlotte NC
(704) 382-3787 Voice
--
To unsubscri
> If I have a string, for examle: $date = "06072002";
> How could I separate this in to three separate vars so that $mon=06,
> $day=07 and $year=2002.
What do you have? You have two digits, and two digits, and four digits.
In regex talk, that looks like this:
/(\d\d)(\d\d)(\d\d\d\d)/
or
/(\d{2
$date =~ /(\d{2})(\d{2})(\d{4})/;
my($month,$day,$year) = ($1,$2,$3);
-Original Message-
From: William J Black [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 03, 2002 12:00 PM
To: [EMAIL PROTECTED]
Subject: RE: Quick Question
Hi all,
If I have a string, for examle: $date = "0607200
From: [EMAIL PROTECTED]
> As you can see, it *does* fetch and return the record I ask for. I
> just don't understand why I'm getting error messages.
>
> Cheers,
> Peter
>
> CODE:
>
> #!/usr/bin/perl -w
> use DBI;
> use strict;
>
> my $dbh = DBI->connect("DBI:mysql:ADA","root","p
Hello all,
What I want to do is simple - if an error occurs on my previous command
(in this case, making an FTP connection via Net::FTP), I want to send
the value of $@ to a subroutine which sends an e-mail containing the
value of $@ in the body. However, it is clear that I don't understand
what
on Wed, 03 Jul 2002 18:55:25 GMT, <[EMAIL PROTECTED]>
wrote:
> I've been lurking for a few months and figured I'd pose a question
> that I've been banging my head against for a while.
(I've already told this in another thread today:
Don't do this, it hurts :-)
> If anyone can recommend a good
>Hello all,
>What I want to do is simple - if an error occurs on my previous command
>(in this case, making an FTP connection via Net::FTP), I want to send
>the value of $@ to a subroutine which sends an e-mail containing the
>value of $@ in the body. However, it is clear that I don't understan
Okay, I've been beating my head against this one all day! Hope someone can
help.
I'm trying to export some scalars from a module. Just some configuration
information. The whole module is as follows:
~~~
package Config;
our ($HOME_DIR, $INC_URL);
Thanks! Changing:
my $message = @_;
to:
my ($message) = @_;
did put the correct value in the string.
If anyone cares to explain the difference between the code I had and the code
Shishir suggested so I can understand why this makes a difference, I'm all
ears!
Thanks again,
-Ian
"Shishir K.
Basically with the @_ and not having parens is like
$var = scalar(@_); # which is one since @_ is to subs what
@ARGV is to incoming Arguments passed to a module.
So by doing the parens, you are populating the variables on the left
with values being passed into the
>Thanks! Changing:
>my $message = @_;
>to:
>my ($message) = @_;
>did put the correct value in the string.
>If anyone cares to explain the difference between the code I had and the code
>Shishir suggested so I can understand why this makes a difference, I'm all
>ears!
@_ is an array.
You wer
Michael Rauh wrote:
>
> hi,
Hello,
> is there a shorter way to write this:
>
> sub eatArrays
> {
> my @array1 = @{$_[0]};
> my @array2 = @{$_[1]};
>
> ..blah..
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional co
On Wednesday, July 3, 2002, at 12:37 , John Almberg wrote:
> Okay, I've been beating my head against this one all day! Hope someone can
> help.
>
> I'm trying to export some scalars from a module. Just some configuration
> information. The whole module is as follows:
>
>
volks,
I am trying to help with understanding
'what is basic/beginner' level - so I
have tried to put together a step by step
walk through from the simple concept to
the code in execution - close to what would
solve the Problem Description.
So for those of you with 'editorial skills'
and the ti
I'm working on a script to create an Excel spreadsheet programatically,
using Spreadsheet::WriteExcel. I'm using a spreadsheet written by my
boss as the specification. No problems yet, but coding is tedious. I
find myself thinking, "I should write a script utilizing Parse:Excel to
dump an Excel sp
At 01:17 PM 7/3/02 -0700, drieux wrote:
>volks,
>
>I am trying to help with understanding
>'what is basic/beginner' level - so I
>have tried to put together a step by step
>walk through from the simple concept to
>the code in execution - close to what would
>solve the Problem Description.
>
>So f
On Wednesday, July 3, 2002, at 01:13 , John W. Krahn wrote:
points to all for answering the OP's specific question
>> sub eatArrays
>> {
>> my @array1 = @{$_[0]};
>> my @array2 = @{$_[1]};
>>
>> ..blah..
>> }
I guess my problem here is why are we worrying about the
I have the following script that prints email addresses enclosed in <>
from a logfile. It works by removing everything up to and including the
bracket on the left, and then doing the same on the right. I would like
to be able to just extract the text between the brackets.
I have been unable to
Hi,
what if the customer does NOT use cookies, i think you should make a file
foreach custom with their IP address.
and another script that check every now and then if the files has not been
active for two whole hours then delete the file.
Anthony
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
On Wednesday, July 3, 2002, at 01:17 PM, drieux wrote:
>
> volks,
>
> http://www.wetware.com/drieux/pbl/perlTrick/CBO/PingIt/
>
> as a way to look at evolving code upward from the
> simple idea
oops:
One could in theory just take this Forth Script and "go" - modify it as
appropriate
From: "anthony" <[EMAIL PROTECTED]>
> what if the customer does NOT use cookies, i think you should make a
> file foreach custom with their IP address. and another script that
> check every now and then if the files has not been active for two
> whole hours then delete the file.
Charlie Farinella wrote at Wed, 03 Jul 2002 23:51:44 +0200:
> I have the following script that prints email addresses enclosed in <> from a
>logfile. It works
> by removing everything up to and including the bracket on the left, and then doing
>the same on the
> right. I would like to be able
From: [EMAIL PROTECTED]
> As you can see, it *does* fetch and return the record I ask for. I
> just don't understand why I'm getting error messages.
>
> Cheers,
> Peter
>
> CODE:
>
> #!/usr/bin/perl -w
> use DBI;
> use strict;
>
> my $dbh = DBI->connect("DBI:mysql:ADA","root","p
# > package Config;
#
# You might want another Name here - since there is a Config.pm
# already out there how about
#
# package Almberg::WebConfig;
Duh! That was it. I should have realized I was conflicting with another
module when I read the error message.
Thanks loads. My head was ge
Just in case you hadn't come across these before:
1. Check out perldoc perlre and, since it is a bit hard to understand, so
check out other references on regular expressions where necessary. Regular
expressions are a vast and complicated subject when you first start to learn
them, but it looks
On Monday 01 July 2002 07:25, David vd Geer Inhuur tbv IPlib wrote:
> Hi,
Hello,
> Does anyone know how to make it a one-liner ??
>
> @regel = split(/ /, `ypmatch IPlib auto.setuser`);
> chomp @regel;
Use /\s+/ or ' ' instead of / / and you won't need chomp.
my @regel = split ' ', `ypmatch IPl
On Wednesday, July 3, 2002, at 01:42 , Peter Scott wrote:
> At 01:17 PM 7/3/02 -0700, drieux wrote:
>> So for those of you with 'editorial skills'
>> and the time, please review and kvetch with
>> me about
>>
>> http://www.wetware.com/drieux/pbl/perlTrick/CBO/PingIt/
>>
>> as a way to lo
* Anders Holm <[EMAIL PROTECTED]> [2002-07-02 10:31:29 +0100]:
> Why not see if the NFS has bombed out before trying to use it? Maybe just
> trying to do an ls or something which wouldn't need to hang your process,
> but rather give you a failure notice?
(Sorry for the long time in getting back
Dear Katy,
It works great after the changed the regular expression to as given by u
below..!
Thanks a ton for the help.but may I request for a small explanation of the
line
$file =~ s/((^|\n\n).+?)\n/$1 /g;
Sunish
Katy Brownfield wrote:
> Or, instead of changing the input file, change the
On Wednesday, July 3, 2002, at 06:18 , Deb wrote:
[..]
> I can't just check for certain filesystems, I have to "know" what is
> mounted at a given time... But the fact that there is NFS server/
> client game where they no longer make nice - well, I need to discover
> that before issuing the df c
Hello All,
I am working on a mailing project on LINUX and would like to know
the Mx records of hosts from a text file in a perl program
I know I can use programs like dig but they dont provide friendly o/ps
There must be some module written to do dns lookups :-)
Any pointers ?
Thnx
Ram
-
http://search.cpan.org/
Net::DNS::* ???
There might be something there that does what you need.
-Original Message-
From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 04, 2002 3:32 PM
To: [EMAIL PROTECTED]
Subject: Module for DNS to find MX Records ?
Hello Al
75 matches
Mail list logo
