Hey Jerry,
I have a one quick solution for you.
str = "\"q4171\",\"(08/11/03 23:30:48)\",\"\"";
@array = split(/,/,$str);
foreach (@array)
{
s/\"//g ;
}
HTH
Pinku
Jerry Preston wrote:
Hi!,
I am trying to breakdown this line:
"q4171","(08/11/03 23:30:48)",""
with ( @data ) = split /[,|\"]/
perlwannabe wrote:
> Now that I have, with all of you helping, dealt with the unlink problem.
> I am now faced with a new problem.
>
> I have a file, myfile.txt, that consists of various text items that are
> repetitive. I am trying to replace many of the repetitive items with a
> place holder. H
"David Byrne" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
> I am fairly new to Perl and haven't approached a scipt
> this complex or computation this intensive. So I
> would certainly appreciate any advice.
>
> I have successfully created a hash of arrays
> equivalent to a 122 x 6
--- SilverFox <[EMAIL PROTECTED]> wrote:
> Jeff Westman wrote:
>
> >
> > --- SilverFox <[EMAIL PROTECTED]> wrote:
> >> Hey can someone help me figure out why the value of $file_exists won't
> >> change even when the file is mssing Thx.
> >>
> >> #!/usr/bin/perl -w
> >> $out="/home/laptop/sc
I've been trying to install the net:SNMP Perl module and have been having problems.
We got Net:SNMP from SunFreeware.com and added that package, then unpacked and tried
to install the perl mods for net:SNMP from Sourceforge.com.They both installed ok.
However, when running a perl script
> Hello all,
Howdy!
> Incase of reading a bitmap file into an array variable , if
> I have to get the hex value do I
> have to convert the bitmap file into Hex before sending it
> into an array variable or after reading the bitmap file into
> an array what should I do if I want the bitmap
Howdy,
I realize that $ENV{'REMOTE_HOST'} and $ENV{'REMOTE_ADDR'} are handled
differently and can be spoofed so don't worry I'm not basing any security on them.
What I was wondering is on most unix and apache setups does Perl's
$ENV{'REMOTE_ADDR'} always get set to an ip address if it is
availa
Hi Trina.
Trina wrote:
>
> I have a hash that contains keys, but does not yet have values.
> How do you push a list of an item into the value for a particular key?
>
> I tried doing this example below, but it does not seem to be working.
> Is there anything wrong with the way this is written? Can
hi
i wonder how i can list all the methods availible from a given object?
martin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Let me apologize first for asking a newbie/simple question
How can I receive a mail and pipe it to a perl script? The perl script will sit
in my .forward file. Basically I want to be able to take that mail and
put it in a @mail or $mail like variable and then remove the To: header before
injecting
perlwannabe wrote:
Now that I have, with all of you helping, dealt with the unlink problem.
I am now faced with a new problem.
I have a file, myfile.txt, that consists of various text items that are
repetitive. I am trying to replace many of the repetitive items with a
place holder. Here is an e
On Wednesday 06 Aug 2003 1:40 pm, Coello, David wrote:
> can anyone help me on how to do paging of records i want a few records per
> page, im using oracle 8i.!!! and cgi.
> david
I personally would look at LIMIT and OFFSET clauses for your select statement
to enable you to choose the chunk of re
The difference is that Perl reads the entire file into memory when you do a
"@file = ", but it only reads one line at a time if you do a
"while()". The difference definitely becomes clear if you try to do
that with a 180MB file on a machine with 128MB RAM.
-Original Message-
From: Pablo
Howdt list.
I've never had to work with really big files before( I'm used to tiny ones you can
slurp in at once) and now I have to process a 180MB text file line by line and was
wondering the most efficient method to do so form within a script not via coommand
line.
Would I just do
open(FH .
Sorry guys. There's a keyboard shortcut set up on my PC that
sends my current mail that I often hit accidentally. It means
I occasionally post half-finished mails. I'll knuckle-down
and fix it. This is the post as it should have been:
Hi Trevor.
Trevor Morrison wrote:
>
> I am trying to step th
> To preface this, let me say that I am a system administrator
> responsible for creating and modifying User accounts on a
> Unix system.
>
> Is it possible to make a Perl script to change passwords
> using the passwd command without having to get and answer
> those prompts??? I have tried op
On Aug 5, Vinay Thombre said:
>I am novice to Perl and learning very basic things. I want to replace a text
>in a file with new text. I want to do it programatically. How can I do that?
I hope you've got a good book or two, such as "Learning Perl" (the llama
book) published by O'Reilly.
The basi
> HI howdy again!
>
> I forgot to ask:
>
> Whenever I've tried to do:
>
> eval { use module; };
> if($@) .
>
> It always fails and I can't trap it it to , say, try a
> different module if it's not found or otherwise do anythign,
> (like tell a web browser user they need a certain
"Sharad Gupta" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>
> Hi All,
>
> I have a path like:
>
> $s = "http::/foo/bar:http::/foo1/bar1:http/foo1/bar1";
^^
Is your data accurately reflected in $s? There is no :: after the
Thanks Rob,
My MUA believes you used Internet Mail Service (5.5.2653.19)
to write the following on Friday, August 8, 2003 at 8:43:43 AM.
HR> # store access the internal hash by following the reference "->"
$hash{four}->>{uid} = "uid4";
$hash{four}->>{cn} = "cn4";
$hash{four}->>{group} = "Group4";
Dan Muey wrote:
> > Greetings to all that is Perl
>
> Howdy
>
> >
> > Is it possible to specify using a cgi script to read and
> > output a Pure HTML file as output.. so that it can process
> > the form data..
>
> Do you mean can it output an html form to a browser, process it on submit and return
thank you Daniela and also gary this is what i got. it is a very complex query how can
i make this work, Please help!!! :o)
$sqlselect = "SELECT ximplLatam.id, ximplLatam.country, ximplLatamcountry.couname,
ximplLatam.deal_name, ximplLatam.Sector, ximplLatamSector.secname,
ximplLatam.mainProduc
> On Thu, Aug 07, 2003 at 11:28:10AM -0500, Dan Muey wrote:
> >> Yeah. The 'return' keyword can even be left out.
> >
> > Nice! I'll leave it in for readability I think.
> >
> > Wouldn't it need a ';' at the end?
> > [ grep .. ];
> >
> > Or am I once again missing something I should know?
>
Hi All,
Can i have something like "http:://Somepath"
in @INC.
-Sharad
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Aug 7, Allison, Jason (JALLISON) said:
>Can someone explain the interaction of POSIX ERRNO and PERL scripts? When
>does ERRNO get set and is it set with each PERL call? I cant seem to track
>when '$!' is set. Sometimes it will be set to 0, and others 2. I am having
>difficultly nailing its
Hello All,
I have an array with the following lines, that always follow this format. I
need a regular expression that will just pull the data at the end of the
sentence. For example, only AZID, IA, KSOK, MO, NVUT, OR.
The Wall will tell ME to update AZID.
The Wall will tell ME to update IA.
T
On Thu, Aug 07, 2003 at 02:43:12PM -0400, Allison, Jason (JALLISON) wrote:
>if (scalar(@ReadyHandles) > 0)
>{
> ...
>else
>{
> if (! $ERRNO)
> {
> ...
> }
> else
> {
> # Error on select() call
> unless ($ERRNO == EINTR)
> {
>
Vinay Thombre <[EMAIL PROTECTED]> wrote:
[attribution inserted]
"Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> wrote
open INPUT, "< in.txt" or die "can't read in.txt: $!";
open OUTPUT, "> out.txt" or die "can't write out.txt: $!";
while (my $line = ) {
# do something to $line
print OUTPUT
HI howdy again!
I forgot to ask:
Whenever I've tried to do:
eval { use module; };
if($@) .
It always fails and I can't trap it it to , say, try a different module if it's not
found or otherwise do anythign, (like tell a web browser user they need a certain
module for it to work:
this is a long shot, but I read today about false 'no space left' errors
occuring due to chmod settings being 777 on the directories.
I don't know if this has any direct tie to your problem, but you can
look at:
http://www.yabbforum.com/community/YaBB.pl?board=featuretroub;action=display;num=10
From: "Morrison, Trevor (Trevor)" <[EMAIL PROTECTED]>
> What I am trying to do is to process a file that has say 1000 orders
> in it all pretty much of the same format. I want to open up the file,
> and then using a while loop go down through all of the order
> one-at-a-time and once I have all th
On Aug 7, Trina Espinoza said:
>Is there any reason why this doesn't print the @missing?
>Ive also tried unless ($myhash{$elem} == 1) { push(@missing, $frame) }
>Any insight into what I'm doing wrong would be greatly appreciated.
I'd like to know what you're trying to do... I think you're using t
This seems to work...
use strict;
# two lists for the comparison
my @orders = (1,5,7,9,3,1,55,23);
my @stash = (4,12,8,0,2,7,9,3,4,13);
# hash of unique numbers
my %join;
# add all of the numbers from both lists to %join.
# turn on the 1 "bit" for @orders, and "2" for @stash.
# this will give n
Hi!
I have some questions about OOP in Perl.
1. In my class I have lot of methods, but some of them just parse a file or
pass a string to a different format (like in C, Im thinking that they are
private), In perl, whats the better way to call a private method:
$state = $this->city2state("Arg1"
On Aug 7, Trevor Morrison said:
>I am trying to use regex to extract the city,state and zip out of a file.
>Now, the problem is the city can have more then one word to it like
>
>San Antonio
>San Francisco
>
>I have also, bumped into case of 4 or 5 words in the city name! I am
>looking for a rege
C:\>perldoc -f pop
pop ARRAY
pop Pops and returns the last value of the array, shortening the
array by one element. Has an effect similar to
$ARRAY[$#ARRAY--]
If there are no elements in the array, returns the undefined
value (althou
Try
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] => 'http://proxy.mydomain:port');
$req = HTTP::Request->new('GET',"http://www.perl.com";);
$req->proxy_authorization_basic("username", "password");
$res = $ua->request($req);
print $res->content if $res->is_success
On Wed, Aug 06, 2003 at 07:02:21PM -0700 Gupta, Sharad wrote:
> I have a path like:
>
> $s = "http::/foo/bar:http::/foo1/bar1:http/foo1/bar1";
>
> I am trying to get all the http paths which are seperated by ":" like this:
>
> @x = ($s =~ /(http::.*?):(?=http::.*?)/g)
>
> The problem is i get
I've found many references to this while googling around, but no definite
answers. I'm wanting to get the refering page information in a perl/cgi
script and base the flow of the script on it. That is, if the request is
from a refering page that is 'authorized', the script continues on with it'
awards wrote:
Hi,
I had problem installing modules with windows one way and the best way I did
for me is to install via a very little program I made in perl
here is the code
Three lines of code
#!/usr/bin/perl
use CPAN;
shell();
For future reference the above 3 lines equate to:
perl -MCPAN -e she
Hi,
Here are the option I forgot to put. Still does not work, I have second
script that works, but it creates a folders and puts automatically the files
inside that folder
But I want to try this way.
Thanx for the help!!
open(CURRMSG,">c:\\currmsg.txt");
$pop3->get($msg_id,\*CURRMSG);
close CU
Ramprasad wrote:
>
> I have an array of regular exps of which I want to match any of them
> in a string. How can I do this without eval.
>
> for eg.
>
> @array = (
> '/^to: myprog/mi',
> '/^from: [EMAIL PROTECTED]/mi'
> );
>
> $STRING = read_mail_header(...);
>
>
> foreach (@array) {
>
> "Paul" == Paul Archer <[EMAIL PROTECTED]> writes:
Paul> Actually, while we're on the subject: can anyone *really*
Paul> explain the difference between the two, or perhaps more
Paul> importantly, when someone would want to use 'our' over 'my'?
Paul> I've read the docs, but they're not sinking
Please, anybody...
Biju
From: "Biju Ramachandran" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: pid->memory usage
Date: Thu, 07 Aug 2003 11:23:33 -0400
Hi there
I just want to know is there any way to find out the PID ans how much a
process is using
the physical and virtual memory, as it
Nntp.Perl.Org wrote at Thu, 07 Aug 2003 13:32:39 -0700:
> However, the Mail::MboxParser, the one that I really need still says it need
> MIME::Tools. The actual module is called MIME::tools. I'm wondering if the
> program is so stupid that it doesn't realize this ist he same thing. Or
> perhaps
On Aug 13, [EMAIL PROTECTED] said:
>It messes up when I need to wrap lines with \n that don't end in a space.
>If there is no space, it places last word on its own line before it
>should wrap. Otherwise it double \ns the line.
>sub quickWrap {
> my $data = @_[0];
You shouldn't use an arra
I want to start using cookies to store user session information and build associated
privileges on
web pages. I'm starting as a complete novice in this field, has anyone else got off to
a flyer using
a book or web-site they can recommend? Any hints gratefully received, thanks,
Richard.
Quote:
"Why are you bothering to look at $! here?"
The snippets below are just that, snippets. We are in the progress of
testing the upgrade from 5.6.1 to 5.8.0. Everything works great with 5.6.1.
When using 5.8.0 (5.8.0 works fine in the http://world.std.com/~aep/ptkdb/
debugger), ERRNO is bei
"Jayson Prichard" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
Does anyone know where I can find the interfaces to Visio?
Hi!
I have read Visio properties, but I am not sure it has Custom Properties. At
any rate, this URL should get you started. Good luck,
ms-help://MS.MSDNQTR.20
Alan Perry wrote:
> <[EMAIL PROTECTED]> wrote:
> > I've been reading the previous post and was wondering about what qr does
[snip]
> For the second array item, the line translates to:
> print "found\n" if $str =~ '^from: [EMAIL PROTECTED]'mi
> Which could also be written as
> print "found\n"
Dan Muey wrote:
> I'm wanting to setup a module that will export whatever is in
> @EXPORT (if anythign) and ':basic'
>
> IE I want
> use Monkey;
> To be identical to
> use Monkey qw(:basic);
>
> So if I have this on the module which of 3 ways I'm trying to
> accoomplish that are valid (if any)?
> This works - i've tried it...
>
> print 'Deleted ' , unlink (<*997*>) , ' files.\n';
>
> good luck
> Duncan
Yes, it does. But it does not work when reading from a variable.
my $temp = '*997*';
print 'Deleted ' , unlink (<$temp>) , ' files.\n';
This very simple variation of your example does n
>
> Not sure this is what you are after but ...
>
> *x = \15;
> print "\$x=$x\n";
> $x = 16; # => Modification of a read-only value attempted at ...
> print "\$x=$x\n";
>
> Jenda
You're a genius!
I'd love to understand further:
- why using a glob like that make
problem solved:
given an arbitrary object, i can now get a dump of all the functions connected to the
object.
print &dump_functions( $obj );
sub dump_functions
{
use Data::Dumper;
use Class::Inspector;
my ( $obj ) = @_;
my ( $ref, $methods, @methods );
$ref = ref $obj
"Perlwannabe" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> > This works - i've tried it...
> >
> > print 'Deleted ' , unlink (<*997*>) , ' files.\n';
> >
> > good luck
> > Duncan
>
> Yes, it does. But it does not work when reading from a variable.
>
> my $temp = '*997*';
> print '
"Perlwannabe" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>
> >>
> >> The directory c:/testdir/ contains many files, but I want to delete
> >> the files with any *item###*.* from the directory. So if the
> >> directory has 3000 files I want to delete every file that has item997
>
Dan Muey <[EMAIL PROTECTED]> wrote:
:
: I'm wanting to setup a module that will export whatever is in
: @EXPORT (if anythign) and ':basic'
:
: IE I want
: use Monkey;
: To be identical to
: use Monkey qw(:basic);
Seems like you really need is a way to test this
for yourself. Here's a qui
> -Original Message-
> From: awards [mailto:[EMAIL PROTECTED]
> Sent: Friday, August 08, 2003 8:54 AM
> To: [EMAIL PROTECTED]
> Subject: mime::parser(again) download problem
>
>
> Hi,
>
> This is how i'm retrieving messages(code below). The text is
> fine it is
> perfectly downloading
>> IO::Stringy (non-core module) was the old way to do it...
Don't work for me.
I modified the sub to look like:
sub Foo::Inc {
...
my $module = $response->content();
my $fh = new IO::Scalar \$module;
return $fh;
}
And i can't find the module.
-Sha
Hi,
You can use
my $LastValue = $ARRAY[ $#ARRAY-1 ];
The pop function suppress the last value of the ARRAY.
Michel
-Message d'origine-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Date: vendredi 8 août 2003 12:57
À: [EMAIL PROTECTED]
Objet: Last value in a array?
Hi,
I have a c
In article <[EMAIL PROTECTED]>, Rich wrote:
> --=_NextPart_000_00BF_01C35E82.8A144710
> Content-Type: text/plain;
> charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable
>
> Beginners,
> I'm about to write my first Perl script that will function to send this =
> page. When
Hey John,
My MUA believes you used Mozilla 4.79 [en] (X11; U; Linux 2.4.4-4GB i586)
to write the following on Thursday, July 24, 2003 at 1:49:25 PM.
>> I wonder is there an official tech slang acronym site?
JWK> This is probably as close as you are going to get:
JWK> http://catb.org/~e
On Sat, 9 Aug 2003, Wiggins d'Anconia wrote:
> Visu wrote:
> > Hi,
> > I have extracted links from a html source using HTML::TokeParser.
> > I used 'a' as a parameter in get_tag method of HTML::TokeParser.Then I
> > want to substitute something for the links that i have extracted.
> > But t
Ok all I/O works with this filehandle, but seems like require don't like it.
Any ideas why??.
-Sharad
-Original Message-
From: Gupta, Sharad
Sent: Sunday, August 10, 2003 12:59 PM
To: Steve Grazzini
Cc: [EMAIL PROTECTED]
Subject: RE: Ok I am tired
>> IO::Stringy (non-core module) was
Dan Muey wrote:
All I hear are crickets on the list anybody there today?
Maybe its because the northeastern quarter of the US was blacked out all
day... muuuhhh we have power!
Here's a quick thing I was wondering since I'm no http expert.
You wondering something, never happen, ;-)
I'd l
Ur examples are cool. I never knew i can do that.
But my problem was:
I was trying to port some of my scripts to Windows.
I know i can get all of the modules which my already written scripts would be
using via http. And i did'nt wanted to map the drive on *all* the windows mach
sc0017 wrote at Mon, 11 Aug 2003 13:04:12 +0300:
> Hi all i am newbie in perl!
>
> How could i install any module i want?
Read
perldoc -q install
and
perldoc perlmodinstall
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
excellence_personified@
Jerry Preston wrote:
Hi!
I have the following hash:
%layout = (
hotspots => {
JERRY => [
{
'_DIMENSION' => [
'width',
'height'
]
},
{
'cell_center' => [
-1240955,
Hello all,
For somereason I have a bit of code that will not
write out to the log file when it finds my array empty
#Start of upload Files
} elsif ( $ARGV[1] eq "-p" ) {
$log->write(" Ok we have been passed the
-p so we will be putting files to $site");
my $ftp =
Dr J wrote:
> > > MS Visual studio .NET
> > > > Technology. Does this need to be installed? If so, is there an
> > > evaluation version of this?
> >
> > Yes, ActiveState's Active versions of their apps require .NET. I am
> not
> > aware of any evaluation versions of it.
>
> >> But the framework is
Use the glob() function instead of <> for file globbing. Then you won't have
to worry about situations like the one you accidentally fell into.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi,
to use net::smtp I can connect via pop?? If so can please tell me.
Regards
award
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi!
I have the following hash:
%layout = (
hotspots => {
JERRY => [
{
'_DIMENSION' => [
'width',
'height'
]
},
{
'cell_center' => [
-1240955,
-312200,
- Original Message -
From: "Wiggins D'Anconia" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: "Chris Knipe" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Saturday, August 09, 2003 5:07 PM
Subject: Re: document creation.
> Chris Knipe wrote:
> > Lo all,
> >
> > I want to create la
All I hear are crickets on the list anybody there today?
Here's a quick thing I was wondering since I'm no http expert.
I'd like to have a simple spider that will look at a url's diretcory and simply give
me a list of files in that directory.
IE
my $files = ? http://www.monkey.com/bannan
Try "Perl 5.8.0 Documentation: perlipc".
All you want to start socket is there.
Josimar
- Original Message -
From: "awards" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 14, 2003 1:08 PM
Subject: Socket
> Hi,
>
>
> I would like to know if it is possible to tran
Hi,
I have the following
12/08/2003, 11:00
13/08/2003, 23:00
Now I would like to compare them and then calculate the how long time was
elapsed in terms of hours.
For the example above it will return 36 hours.
I don't know if there is a module that do that or a function or we just have
to progra
> I've found many references to this while googling around, but
> no definite
> answers. I'm wanting to get the refering page information in
> a perl/cgi
> script and base the flow of the script on it. That is, if
> the request is
> from a refering page that is 'authorized', the script
> c
Hi All
Just require a memory nudge again. I'm looking for a small script to count
the number of days between two dates. Date format is dd/mm/
Cheers
Colin
---
www.rentmyplace.co.nz
The ultimate in that
--- SilverFox <[EMAIL PROTECTED]> wrote:
> Hey can someone help me figure out why the value of $file_exists won't
> change even when the file is mssing Thx.
>
> #!/usr/bin/perl -w
> $out="/home/laptop/scripts/perl/logs/resetmf.log";
> open OUT, ">>$out" or die "Unable to open $out :$!";
>
>
You would have to put the cc email addresses in double quote: such as "[EMAIL
PROTECTED]" ; "[EMAIL PROTECTED]"
Reggie
>>>-Original Message-
>>>From: awards [mailto:[EMAIL PROTECTED]
>>>Sent: Saturday, August 09, 2003 2:56 PM
>>>To: [EMAIL PROTECTED]
>>>Subject: sending multiple em
For installations on Windows, read
http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/ActivePerl-faq2.html
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, August 11, 2003 12:04 PM
To: [EMAIL PROTECTED]
Subject: Installing Modules
Hi all i am n
I feel so stupid, but I and a co-worker have been staring at this for two hours, with
no progress.
I'm trying to run some perl scripts which came with the system Cacti. One is
webhits.pl:
centernet:/usr/local/httpd/htdocs/cacti8/scripts # cat webhits.pl
#!/usr/local/bin/perl
if ($ARGV[0] eq "")
Dan Muey wrote:
> Howdy,
>
> I realize that $ENV{'REMOTE_HOST'} and $ENV{'REMOTE_ADDR'} are handled
> differently and can be spoofed so don't worry I'm not basing any
> security on them.
I'm no security expert, but how can these be spoofed? They don't come from
the request headers, but are deriv
On Tuesday, August 12, 2003, at 02:27 PM, Trina Espinoza wrote:
I have a hash that contains keys, but does not yet have values. How do
you push a list of an item into the value for a particular key?
I tried doing this example below, but it does not seem to be working.
Is there anything wrong w
> Hey can someone help me figure out why the value of
> $file_exists won't
> change even when the file is mssing Thx.
> $file_exists = $t->cmd ("perl -e 'print 1 if (-s
> \"$newdir[$x]\")'") or
> warn "Unable to execute: $!\n";
You probably need to escape the single quotes as well.
Try tha
Dan Muey wrote:
> > Dan Muey wrote:
> > > Howdy,
> > >
> > > I realize that $ENV{'REMOTE_HOST'} and $ENV{'REMOTE_ADDR'} are
> > > handled differently and can be spoofed so don't worry I'm not
> > > basing any security on them.
> >
> > I'm no security expert, but how can these be spoofed? They
> >
Dan Muey wrote:
>
> Howdy,
>
> I read in an earlier email that some people put _ in front of
> variables/function/etc to show that they are "important and should be
> handled by the program only" and it said that some "modules enforce this"
>
> I guess what I'm getting at is:
>
> If my module
In your subroutine, return reference of each array (or hash) like this:
sub my_sub{
#blah
return ([EMAIL PROTECTED],[EMAIL PROTECTED]);
}
Calling:
my ($array_ref1,$array_ref2)=&my_sub();
More Info ?
perldoc perlref
José.
-Original Message-
From: T.S.Ravi Shankar [mai
I recently installed the ActivePerl 5.8.0.806 on my Win2k box. I installed
it in the default location "C:\Perl" and have not moved it or done anything
to the installation. When I type "ppm" at the C:\ prompt I get the following
error:
"Error: neither
'HKEY_LOCAL_MACHINE/SOFTWARE/ActiveState/PPM//I
Yesterday, Wiggins d'Anconia wrote:
> Yes and no. There are multiple different implementations of threads all
> of which have some good and bad points. You will need to look more into
> them depending on your version of Perl and how complex the task is that
> you wish to accomplish. (There is also
Hi,
I have installed perldap module on my window machine.
But whenever i use that module it gives error:
NSLDAPSSL32V30.dll not found.
I searched thie dll file on net, but couldnot find.
Can anybody suggest where can i find this file.
Thanks ,
Ashish
I think what I'll do is just log $ENV{'REMOTE_HOST'} and $ENV{'REMOTE_USER'}
into a mysql database so I can review that info to watch for abusers.
Since they are logging in that will help verify most everybody and if a
user wants to give out his login info to other folks then just watching my li
Hi,
Why don't you do like that :
@array = (
'^to: myprog',
'^from: [EMAIL PROTECTED]'
);
$STRING = read_mail_header(...);
foreach (@array) {
if($STRING=~ /$_/mi ) { # This should work
# FOUND
.
}
}
or
Hi,
I have a file (about 3-4 MB ) with about 2 records
in it. I need to create an index on a particular field
(integer ) in each record. But there might be multiple
records matching a particular field value. My queries
are something like,
"Get all records with the A < field value < B"
This
On Tue, 12 Aug 2003, Asif Iqbal wrote:
> Let me apologize first for asking a newbie/simple question
>
> How can I receive a mail and pipe it to a perl script? The perl script will sit
> in my .forward file. Basically I want to be able to take that mail and
Nevermind , I found the answer.
> put i
Rich wrote:
> I think I have a good idea how to do this except for one thing. How do I get the
> page from the html page the script is being called from and then
> create temporary variable that I can print the title on /send_this_page.pl and also
> make it the subject of the outgoing email?
Hi,
I'm trying to get flock to behave consistently between IRIX,Solaris
and Linux (2.4.x).
When I run the following Perl Program, IRIX and Solaris allows the Shared
lock (and doesn't execute the inside of the while loop)
Where as, Linux denies the Shared lock with "Resource temporarily una
On Mon, Aug 11, 2003 at 10:25:07PM +0200, awards wrote:
> Hi,
>
> thank you, Now i have a new question.
> If I do the code myself which I can do.
> would the process of executing the program faster if I do the code myself or
> if I use a Module i.e Date::Calc??
>
> regards
> awards
There is a s
1 - 100 of 373 matches
Mail list logo
