> -Original Message-
> From: Javeed SAR [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 09, 2002 5:05 PM
> To: [EMAIL PROTECTED]
> Subject: spaces in a variable
>
>
> Hi,
>
> How to remove spaces in a variable?
> For eg if i have variable $te
>
> $te = $attr_tag . $date;
> cho
Hi,
How to remove spaces in a variable?
For eg if i have variable $te
$te = $attr_tag . $date;
chomp$te;
print "$te";
Gives me output as follows:
SYNC_CHECKWed Oct 9 12:20:53 2002
I want to remove all the spaces in output variable $te.
Regards
javeed
Try compiling the code and then spinning up the compiled version.
Don
-- Forwarded Message --
Subject: running a perl script as a service on W32 box
Date: Mon, 07 Oct 2002 13:03:28 -0400
From: david odell <[EMAIL PROTECTED]>
To: beginners perl <[EMAIL PROTECTED]>
I can inst
Jim Ockers wrote:
>
> Is there any concise method of fully evaluating the arithmetic
> expressions in here documents, rather than just one level of
> substitution?:
>
> sub RotationMatrix {
> my $theta = $_[0] * 3.14159265 / 180.0;
> my $m = cos($theta);
> my $n = sin($theta);
>
Hey Paul,
My MUA believes you used Mutt/1.3.28i
to write the following on Tuesday, October 8, 2002 at 5:19:38 PM.
PJ> let me suggest The Perl Reference Guide, by Johan Vromans. Johan
PJ> is a long standing member of the Perl community who has been
PJ> keeping this guide pretty much sinc
Is there any concise method of fully evaluating the arithmetic
expressions in here documents, rather than just one level of
substitution?:
sub RotationMatrix {
my $theta = $_[0] * 3.14159265 / 180.0;
my $m = cos($theta);
my $n = sin($theta);
my $T = Math::MatrixReal->new_from_stri
On Tue, Oct 08, 2002 at 09:59:16AM -0700, Jessee Parker wrote:
> Is there a way to keep track of the number of open sockets your program
> might have that are in a TIME_WAIT (I think it is) state?
The problem is if a socket is in a TIME_WAIT state it's no longer open by
your program. The socket
On Tue, Oct 08, 2002 at 10:00:09AM -0700, Anil Shekhar wrote:
> Thanks Mark.
>
> I mean how is the following possible.
>
> print ++($foo = 'Az'); # prints 'Ba'
> print ++($foo = 'zz'); # prints 'aaa'
(I'm obviously not Mark, but I figure I'll give this a shot)
That's how the
in that casem just humour me and try
require './config.cgi';
i have heard that can solve some problems
On Tue, Oct 08, 2002 at 04:17:50PM -0400, Nikola Janceski wrote:
> He just sent it to me for some reason, but I can't find the problem.
> Be sure to CC Bootscat as he is the original poster.
Here's one I had sent to me after postage in reply to Eric's email on naver.com.
This's expected to bounce.
Alfred,
--
block that mailing address.
--- Eric Pretorious <[EMAIL PROTECTED]> wrote: >
Hi, Bruno:
>
> Unfortunately, I don't have one laying around in
On Tue, Oct 08, 2002 at 01:45:27PM -0700, Jim Thomason wrote:
> Hi!
>
> Go to barcharts.com. They have a convenient cheatsheet for Perl - 8 1/2
> x 11, six pages,laminated.
Hmm. That's two recommendations for this, but I'm not sure I would
trust anything that claims to be about PERL, the Pract
Hi!
Go to barcharts.com. They have a convenient cheatsheet for Perl - 8 1/2
x 11, six pages,laminated.
Jim
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks for the suggestions. I'm pretty new to Perl, as you can tell. I
came from Javascript most recently, and (sorry) Visual Basic. I am a linux
user and fan, although I'm writing this from work, where I have to use
Windows. I mainly posted this script to try to help the person who posted
a N
He just sent it to me for some reason, but I can't find the problem.
Be sure to CC Bootscat as he is the original poster.
-Original Message-
From: Bootscat [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 4:51 PM
To: Nikola Janceski
Subject: Re: Need urgent help
Here's how it'
David <[EMAIL PROTECTED]> wrote:
> Steve Grazzini wrote:
>>
>> And besides, open() is not particularly easy to
>> override. You'd have to account for all of:
>>
>> open FH, $path;
>> open FH, "> $path";
>> open FH, ">", $path;
>> open FH, ">", \$sstream;
>> open FH, "command |";
>> o
Try http://www.barcharts.com/barcharts/chartDetails.asp?sku=555-6
__
Stephan Gross 732-548-3494 [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
can you give us a sample of your script showing the line in question
On Tue, Oct 08, 2002 at 02:05:28 -0500, Bootscat wrote:
> Can someone tell me how to get passed this error?
> The Config files it's looking for is there.
>
> Can't locate config.cgi in @INC (@INC contains: /usr/lib/perl5/5.6.1/
"Silverfox" wrote...
[snip]
: OK...I rewrote the code..created the sub's..this is what am getting..any
: ideas:
I may be totally off the mark, but I think it's an issue of namespaces. Sort
of a variation of the same problem as before. Keep reading...
: ERROR:
: [laptop@localhost perl]$ ./aim.pl
Hi! I'm taking a refresher look at Learning Perl on Win32 (O'Reilly book) and I'm
wondering if there are any notes posted for this book or any kind of notes or
cheatsheets for Perl. I found the Perl Intro on Learning Perl.org to be helpful and
anything like that would be great. I've gone throug
Janek Schleicher wrote:
>
> Shawn Milochik wrote:
> >
> > @message = undef;
You missed this one Janek. :-)
To the OP, you are assigning the value undef to the first array
element. That statement is the same as:
$message[0] = undef;
If you populate the array with push() you now have an extra
And don't forget the standard 'perldoc perlre'.
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 11:20 AM
To: [EMAIL PROTECTED]
Subject: Re: Perl regexp tutorial?
Fogle Cpl Shawn B wrote:
>
> Can anyone point me to a regexp tutorial (or
Dan Cox wrote:
> How would I get the IP address that is dynamically assigned to my modem
> and assign it to a variable? I'm using windows and would prefer not to
> use Win32::Registry. Thanks for any help.
>
> Dan Cox
check out IO::Socket and IO::Interface. example:
#!/usr/bin/perl -w
use stri
Fogle Cpl Shawn B wrote:
>
> Can anyone point me to a regexp tutorial (or manpage for that matter). I
> can't seem to find good information that's too indepth on the subject (and
> some of you guys look like regexp wizards).
http://www.oreilly.com/catalog/regex2/
John
--
use Perl;
program
ful
Shawn Milochik wrote:
> I was just playing with Net::POP3 this past weeked. Here's a working
> script. It's not great, but I got the basics working, and you can mess
> with it.
>
It's a nice script, the only things that could be improved is to write
it more Perlish :-)
> #!/usr/bin/perl
which do you have:
use config.cgi;
require config.cgi;
in your code?
Where is the file located? did you check the case of the file name in the
script and at it's location?
we need more info.
> -Original Message-
> From: Bootscat [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, October 08, 2
Can someone tell me how to get passed this error?
The Config files it's looking for is there.
Can't locate config.cgi in @INC (@INC contains: /usr/lib/perl5/5.6.1/i686-linux
/usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i686-linux
/usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.
On Mon, Oct 07, 2002 at 08:37:15AM -0400, SilverFox wrote:
> SPAM: Start SpamAssassin results --
> SPAM: This mail is probably spam. The original message has been altered
> SPAM: so you can recognise or block similar unwanted mail in future.
> SPAM: See ht
you can always parse netstat , and have it refresh (sleep and loop) every
few seconds
> -Original Message-
> From: Jessee Parker [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, October 08, 2002 12:59 PM
> To: [EMAIL PROTECTED]
> Subject: Number of open sockets
>
>
> Is there a way to keep t
I was just playing with Net::POP3 this past weeked. Here's a working
script. It's not great, but I got the basics working, and you can mess
with it.
Shawn
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
# Code
#|/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\||/-\|
#!/usr/bin/perl
#use Net::FTP;
use
I think you're right. Here is an excerpt from the perlop perldoc.
"If, however, the variable has been used in only string contexts since it
was set, and has a value
that is not the empty string and matches the pattern "/^[a-zA-Z]*[0-9]*\z/",
the increment is done as a string, preserving each ch
Steve Grazzini wrote:
>
> And besides, open() is not particularly easy to
> override. You'd have to account for all of:
>
> open FH, $path;
> open FH, "> $path";
> open FH, ">", $path;
> open FH, ">", \$sstream;
> open FH, "command |";
> open FH, "| command";
i don't recommand peo
That's still not terribly specific. Actually the second case of zz=>aaa
throws me but looking at it, this is my *guess* (someone PLEASE correct me).
The first case is possible because (intuitively) B follows A and 'a' follows z
(in a wraparound sort of way). The wraparound causes a carry so
Not answering the question, more like adding to it. :) There was recently a
fair bit of discussion on Perl profilers. I wonder if a Profiler would be
applicable to socket info?
>= Original Message From "Jessee Parker" <[EMAIL PROTECTED]> =
>Is there a way to keep track of the number
Thanks Mark.
I mean how is the following possible.
print ++($foo = 'Az'); # prints 'Ba'
print ++($foo = 'zz'); # prints 'aaa'
Thanks
Anil
- Original Message -
From: "Mark Anderson" <[EMAIL PROTECTED]>
To: "Anil Shekhar" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: T
you would probably want to do that in the .htaccess file in a root
directory... there is some documentation if you search google.com for
..htaccess custom error message
--
Dra'Kon
"Humans are poor excuses for eons of monkey inbreeding." -Chris Marlor
"Can someone help me please?"
Can you be more specific about what you don't understand?
If $foo is a string of alpha characters and you use ++ you get a string with
the last character incremented alphabetically.
This does not work both ways, -- does not reverse the effect of ++ on
strings.
Hi ...
I am trying to understand the auto-incr/decr out of the 'perlop' man page.
I could not fully understand the following.
"If, however, the variable has been used in only string contexts since it was set, and
has a value that is not the empty string and matches the pattern /^[a-zA-Z]*[0-9]
BTW, what George is showing there is an Array Slice. That's why the @
symbol is used instead of the $ symbol. I'd recommend looking it up in the
perldocs.
-Original Message-
From: George Schlossnagle [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 08, 2002 9:26 AM
To: Frank Wiles
Cc:
Hi list,
can one redirect from a web page that cannot be found?
i.e. If for some reason www.yahoo.com came up blank
can perl redirect back to the original page or to an
error page?
Ben
__
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos
join ",", @array[2...$#array];
works nicely for me.
Frank Wiles wrote:
> .--[ Diego Riano wrote (2002/10/08 at 16:50:41) ]--
> |
> | Hello all
> |
> | I have an array like this:
> |
> | @array=(1,2,3,4,5,6);
> |
> | And I would like to join the element starting from the third
Hello All,
I'm installing Proc::Spawn and I find this:
/usr/bin/perl Makefile.PL
Checking if your kit is complete...
Looks good
Could not eval '
package ExtUtils::MakeMaker::_version;
no strict;
local $VERSION;
Instead of iterating through the keys and then using the key to get the value,
it's easier on the eyes and I believe a little bit more efficient (could be
wrong there) to do it this way:
while ( (my $key, my $value) = each %yourhash ) { ... }
This saves you from having to use $hash{$key}...you
.--[ Diego Riano wrote (2002/10/08 at 16:50:41) ]--
|
| Hello all
|
| I have an array like this:
|
| @array=(1,2,3,4,5,6);
|
| And I would like to join the element starting from the third one until
| the lasta want. Something like:
|
| join (",",$array[2],$array
.--[ [EMAIL PROTECTED] wrote (2002/10/08 at 09:55:09) ]--
|
| All,
|
| I'm looking for suggestions on how I can accomplish running a perlscript to
| e-mail me when a certain log condition is met.
|
| My idea is that I will call the perlscript from syslog.conf:
|
|
|
From: "Anthony Beaman" <[EMAIL PROTECTED]>
> Hi! I'm sure this is simple and I'm overlooking something but here
> goes. I'm trying to write a script that will ping a machine but print
> it's results to a file (in Wordpad; I'm using NT) and the file will
> open and show the results. I'm able to pi
read up on slices;
join (",", @array[2 .. $#array]);
> -Original Message-
> From: Diego Riano [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, October 08, 2002 10:51 AM
> To: [EMAIL PROTECTED]
> Subject: Joining array elements
>
>
> Hello all
>
> I have an array like this:
>
> @array=(1,2
Diego Riano wrote:
> I have an array like this:
>
> @array=(1,2,3,4,5,6);
>
> And I would like to join the element starting from the third one until
> the lasta want. Something like:
>
> join (",",$array[2],$array[3],$array[4],$array[5]);
>
> The problem I have is that this array will chance
Hello all
I have an array like this:
@array=(1,2,3,4,5,6);
And I would like to join the element starting from the third one until
the lasta want. Something like:
join (",",$array[2],$array[3],$array[4],$array[5]);
The problem I have is that this array will chance from time to time
sometimes
Hi! I'm sure this is simple and I'm overlooking something but here goes. I'm trying to
write a script that will ping a machine but print it's results to a file (in Wordpad;
I'm using NT) and the file will open and show the results. I'm able to ping and I'm
able to direct it to a file but it's n
On Tue, 8 Oct 2002 10:10:55 +1000 , [EMAIL PROTECTED]
(Colin Johnstone) wrote:
>I need help sending HTML emails with sendmail have tried this
>
>open (SENDMAIL, "| $sendmailpath -t");
print SENDMAIL "Content-Type: text/html\n";
>print SENDMAIL "Subject: $subject\n";
>print SENDMAIL "From: $fro
All,
I'm looking for suggestions on how I can accomplish running a perlscript to
e-mail me when a certain log condition is met.
My idea is that I will call the perlscript from syslog.conf:
local2.* |exec /sbin/perlscrip.pl
How do I get perl to take input from syslogd?
How would I make sure th
Davide Copelli wrote:
> I need to stop modifing the code I made in perl for a web application.
Don't modify it any longer.
Or did you mean that others should not change them any longer.
You find some information under
perldoc -q compile
perldoc -q hide
> I am using Linux and I have a web spac
Colin Johnstone wrote:
> HI all,
>
> I need help sending HTML emails with sendmail have tried this
>
> $from="foo\@bar.com";
> $to= shift; ## yes this is enclosed in a function and I pass the email address as a
>parameter
> $subject="Latest News!";
> $sendmailpath="/usr/sbin/sendmail";
>
>
Gregory Bernard wrote:
> Here is a little script I am working on, first part executes without any
> problem... The database is deleted from MySQL but the second part of the
> script which is supposed to take a file on my disk and insert it into my db
> does not work...
>
>
> Second part (after
From: Ben Crane <[EMAIL PROTECTED]>
> I have a problem, when I try to redirect to a new
> site...I get the following text in the browser window:
>
> Status: 302 Moved location: www.yahoo.com
>
> it doesn't immediately go to yahoo.
Most probably you've already printed the header so this is treat
Hi List,
I have a problem, when I try to redirect to a new
site...I get the following text in the browser window:
Status: 302 Moved location: www.yahoo.com
it doesn't immediately go to yahoo.
regards
Ben
__
Do you Yahoo!?
Faith Hill - Exclusive
Here is a little script I am working on, first part executes without any
problem... The database is deleted from MySQL but the second part of the
script which is supposed to take a file on my disk and insert it into my db
does not work...
Second part (after for (split(//
#!/usr/bin/perl
$in =
From: "Dennis LaPine" <[EMAIL PROTECTED]>
> I've had this script configured and running on two other servers
> without any problems. I'll be a monkeys uncle if I can get this to run
> on the new server we have moved to. This is a Linux based server and I
> ...
Before you do anyt
From: "Johnstone, Colin" <[EMAIL PROTECTED]>
> I have successfully sent just plain text emails using sendmail but can
> I send HTML emails, I have tried this with no success.
>
> $from="foo\@bar.com";
> $to= shift;
> $subject="Latest News!";
> $sendmailpath="/usr/sbin/sendmail";
From: "Faymon, Kurt" <[EMAIL PROTECTED]>
> Give a 'config file' with 100 or so entries of global subs like:
>
> "/nli/|[nli]|",""
> "/nlt/|[nlt]|",""
> "/nlp/|[nlp]|",""
> "/nlh/|[nlh]|",""
> And so on...
>
> I read these into a hash (sPiChars) with 'replace' value as key and
> the RegEx of the
Hi Kurt,
You can save yourself the if statement. If the pattern is not found the
s/// will not proceed. That will save process ting the line twice when you
do match the pattern.
Other than that, you are changing "nl" followed by a single letter to "
with X being a digit corresponding to that
On Tue, 8 Oct 2002, Faymon, Kurt wrote:
> Give a 'config file' with 100 or so entries of global subs like:
>
> "/nli/|[nli]|",""
> "/nlt/|[nlt]|",""
> "/nlp/|[nlp]|",""
> "/nlh/|[nlh]|",""
> And so on...
>
> I read these into a hash (sPiChars) with 'replace' value as key and the
> RegEx of the
Give a 'config file' with 100 or so entries of global subs like:
"/nli/|[nli]|",""
"/nlt/|[nlt]|",""
"/nlp/|[nlp]|",""
"/nlh/|[nlh]|",""
And so on...
I read these into a hash (sPiChars) with 'replace' value as key and the
RegEx of the search terms as value of that give key. Then as I go over
pro
I have learnt a lot from these pages:
http://japhy.perlmonk.org/book/
//Dave
-Original Message-
From: Fogle Cpl Shawn B [mailto:[EMAIL PROTECTED]]
Sent: den 8 oktober 2002 09:27
To: '[EMAIL PROTECTED]'
Subject: Perl regexp tutorial?
Can anyone point me to a regexp tutorial (or manpag
block that mailing address.
--- Eric Pretorious <[EMAIL PROTECTED]> wrote: >
Hi, Bruno:
>
> Unfortunately, I don't have one laying around in my
> inbox right now.
> (The one that arrived right after I sent my original
> inquiry!) When I do
> get one, though, I'll forward it on to you.
>
> Th
Can anyone point me to a regexp tutorial (or manpage for that matter). I
can't seem to find good information that's too indepth on the subject (and
some of you guys look like regexp wizards).
thanks,
shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROT
Hi, Bruno:
Unfortunately, I don't have one laying around in my inbox right now.
(The one that arrived right after I sent my original inquiry!) When I do
get one, though, I'll forward it on to you.
Thanks!
--
Eric P.
Sunnyvale, CA
On Thu, 3 Oct 2002, Bruno Negrao - Perl List wrote:
> Hi Er
If you are generating the email CGI form on the fly,
you can pass the number as a hidden INPUT field :
eg:
... INPUT fields as needed
Hope it helps.
Ben Crane a écrit :
>
> Hi List,
>
> I have an online web map created through mapinfo-when
> you click on a part of the JPEG image it lo
HI all,
I need help sending HTML emails with sendmail have tried this
$from="foo\@bar.com";
$to= shift; ## yes this is enclosed in a function and I pass the email address as a
parameter
$subject="Latest News!";
$sendmailpath="/usr/sbin/sendmail";
open (SENDMAIL, "| $sendmailpath -t");
print
Hi List,
I have an online web map created through mapinfo-when
you click on a part of the JPEG image it loads a CGI
script and passes a unique 12 digit number which then
identifies where on the map it is.
After the road/point has been selected and the cgi
script has returned the location-it then
Javeed Sar wrote:
>
> Hi all,
Hello,
> What is the UNIX grep equivalent in perl?
>
> For eg:
> @vobs=`cleartool lsvob -s -host blrk4005a|grep $vob_tag`;
>
> here the grep is UNIX grep?
> What about in perl is there any function equivalent?
my @vobs = grep /\Q$vob_tag/, `cleartool lsvob -s -h
71 matches
Mail list logo