Hi folks:
i have a file like this:
mail [EMAIL PROTECTED] from
to: [EMAIL PROTECTED], tes
<[EMAIL PROTECTED]>
aslgj, [EMAIL PROTECTED] sdgl,
how can i sort out the email adrress?
please give me direction
thanks in advance
_
Do You Yahoo
Hi All,
This is a perl related question. I am walking a mib and getting OCTETSTR
values. However, some of these are hex values that I am wanting to
convert into decimal. I know how to do the conversion no problem, but
some values return a string in ascii (e.g. "Module 1 port 6") while
other oid's
you'll have to use regular expressions
http://japh.nu for a basic tutorial on those
and read perldoc perlretut
if you want more specific advice, show us what you tried so far and what
happened.
hth, Jos
> Hi folks:
>
> i have a file like this:
>
> mail [EMAIL PROTECTED] from
> to: [EMAIL PR
hello Everybody ,
In perl script code goes like this...
..
Its not running(image not shown)sorry is displayed ...but the complete perl script
except this is working very fine
if i run the same in simple html, image is shown.no path problem...
...is there anything that needs to be
Have you tried adding the path to the image?
You didn't provide much information, so I am going to make a few
assumptions:
Assumption 1:
- Your HTML file that you are testing is in the /htdocs directory
Assumption 2:
- Your CGI script is in the /cgi-bin directory
I realize that you said you h
Hello,
I am using the following code to do two things:
1) create a unique directory name using @ARGV, and
2) recursively copy the contents of a source directory
into the target directories.
However, when I attempt to do this, I am getting the
following errors about infinite loops.
% perl copy.
Hello!
I have a program that uses the CGI module (v 2.36). Here is a code
snippet:
my $q = new CGI;
#
# some more code...
#
print $q->start_html(-title=>$callout_name,
-onLoad=>$init,
-script=>{-language=>'javascript',
-sr
> -Original Message-
> From: Michael Leigh [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 08, 2001 5:02 PM
> To: '[EMAIL PROTECTED]'
> Subject: WWW-Authenticate
>
>
> All,
>
> I am trying to write a program, which log's on to a password
> protected web
> page and runs a report. U
I searched google, asked some people on irc but no-one could answer me.
$max_index is a value gotten from a database which contains the number of
entry's
for($i = 0, $i < $max_index, $i++){
%data$1{name} = #get the name from the database matching the index
and store
it here ...
Date: Thu, 9 Aug 2001 05:16:38 -0700 (PDT)
From: perl newbie <[EMAIL PROTECTED]> | Block
Address | Add to Address Book
Subject: Re: recursive file copy
To: [EMAIL PROTECTED]
Hello,
I am using the following code to do two things:
1) create a unique directory name using @ARGV, an
> -Original Message-
> From: Elie De Brauwer [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 8:43 AM
> To: [EMAIL PROTECTED]
> Subject: Creating a hash from a name stored in a variable ...
>
>
> I searched google, asked some people on irc but no-one could
> answer me.
>
>
Here is a way of doing this. Tested and commented. But, like Bob says, you
may well end up loosing track of what hashes you've created...
--- code ---
@indexNumbers = qw(1 2 3 4);
foreach $number(@indexNumbers) {
$hashname = "hash$number"; # Create a scalar with the name of the
hash you
You can use the Shell function, according to my ancient VB 3.0 manual:
Dim TaskId, Style
TaskId = Shell ("perlscript.bat", Style)
Simple? However:
* You should also code an On Error in case VB can't run/find perlscript.bat.
* 'Style' is a number 1-9 depending on how you want to run it.
> -Original Message-
> From: Elie De Brauwer [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 9:01 AM
> To: Bob Showalter
> Subject: Re: Creating a hash from a name stored in a variable ...
>
>
> > > I searched google, asked some people on irc but no-one could
> > > answer me
Hello perl newbie,
Thursday, August 09, 2001, perl newbie <[EMAIL PROTECTED]> wrote:
pn> I am using the following code to do two things:
pn> 1) create a unique directory name using @ARGV, and
pn> 2) recursively copy the contents of a source directory
pn> into the target directories.
[..]
pn>
I am just now learning perl. I have written a program that ought to simply read a
file a write its contents to another file. However, I get the following message:
"Syntax error at perl.txt line 8, near "$x".
Execution of perl.txt aborted due to compilation errors."
Here is the code:
#!/usr/
> #!/usr/bin/perl
> open(INFILE, "testin");
> open(OUTFILE, ">testout");
>
> $x=getc(INFILE);
> while($x!=eof(INFILE){
^
You have mismatched parentheses here. Should be:
while ($x!=eof(INFILE)){
>print ("$x");
>$x=getc(INFILE);
> }
> close(INFILE);
> close(OUTFILE
I have a script that prints out database records after a search operation.
For each hit in the database, it calls the subroutine sub_one to first turn
the record with the hit into a hash and then print out results in html.
Now, there's one of these hash values which I would then like to use in a
Try this, having put return $value at the end of sub_one
my ($numhits, @hits) = @_;
for (0 .. $numhits - 1) {
$returnedValue = &sub_one(&array_to_hash($_, @hits));}
-Original Message-
From: Birgit Kellner [mailto:[EMAIL PROTECTED]]
Sent: 09 August 2001 15:36
To: [EMAIL PROTECTED]
Subject
On Thursday 09 August 2001 10:32, [EMAIL PROTECTED] wrote:
> "Syntax error at perl.txt line 8, near "$x".
> Execution of perl.txt aborted due to compilation errors."
>
> $x=getc(INFILE);
> while($x!=eof(INFILE){
You'e missing a closing paren here.
However, even when I fix that this doesn't seem
Folks,
I have been reading up on the Benchmark.pm, I thought it was possible to
time
a sub routine with timeit as such
$gt = timeit( 1 , &some_sub );
but I am getting errors in the Benchmark.pm
Use of uninitialized value at /usr/local/lib/perl5/5.00503/Benchmark.pm line
312.
bad time value ()
On Thu, 9 Aug 2001, Yacketta, Ronald wrote:
> I have been reading up on the Benchmark.pm, I thought it was possible to
> time
> a sub routine with timeit as such
>
> $gt = timeit( 1 , &some_sub );
I think you mean
$gt = timeit( 1, \&some_sub);
You need a coderef there, an anonymous sub or a st
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 10:33 AM
> To: [EMAIL PROTECTED]
> Subject: compilation error - simple program
>
>
> I am just now learning perl. I have written a program that
> ought to simply read a file a wr
Hello everyone,
I was wondering if there was anyway to print colored text at the command
line. I'm using linux. Something kind of like how the directories and
executables are colored when you do an 'ls' in linux...
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captain
Folks,
I have this little tad bit of code
my $left = $timer - time();
my $min = $left / 60 % 60;
my $sec = $left % 60;
sleep $ARGV[1];
printf OFN "Time remaining until next egrep: %d:%d\n", $min, $sec;
works like a champ! except the output formatting
The
On Thu, 9 Aug 2001, Yacketta, Ronald wrote:
> I do not get the 0 as in 09 , 08, 07 ,06 etc..
>
> what could I do to ensure that the $sec is _always_ 2 digits?
Precede your format specifier with 0#:
~$ perl -e 'printf("%02d\n", 6);'
06
~$ perl -e 'printf("%03d\n", 6);'
006
-- Brett
Thanxs!
I was thinking I had to use a float
> -Original Message-
> From: Brett W. McCoy [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 11:35
> To: Yacketta, Ronald
> Cc: Beginners (E-mail)
> Subject: Re: help with printf formatting please
>
>
> On Thu, 9 Aug 2001, Yac
> I was wondering if there was anyway to print colored
> text at the command
> line.
I actually was looking for this today as well. Check
out:
http://www.perldoc.com/perl5.6/pod/perlfaq8.html#How%20do%20I%20print%20something%20out%20in%20color%3f
> Thanks,
> Tyler Longren
> Captain Jack Communi
That's pretty cool. Works great. Thank you!
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
On Thu, 9 Aug 2001 08:33:58 -0700 (PDT)
Mark Ross <[EMAIL PROTECTED]> wrote:
> > I was wondering if there was anyway to print colored
> > text at the command
> > line.
--On Donnerstag, 09. August 2001 15:49 +0100 John Edwards
<[EMAIL PROTECTED]> wrote:
> Try this, having put return $value at the end of sub_one
>
> my ($numhits, @hits) = @_;
> for (0 .. $numhits - 1) {
> $returnedValue = &sub_one(&array_to_hash($_, @hits));}
>
thanks - I had foolishly assumed t
Readers:
awk has a function called 'getline' which reads the next line of input
without changing control of the script.
My input file contains pairs of records. When I find a record that matches
my search pattern, I want that record and the next record.
In awk, I used the 'getline' which did ju
At 10:12 AM 8/9/01 -0600, Kent Mercer wrote:
>- Original Message -
>From: "Peter Scott" <[EMAIL PROTECTED]>
> > >How do I begin my first script?
> > >
> > >And how do I save it ?
> > >
> > >Something simple like "Hello World"
> > >
> > >Just started 2 days ago
> > >Need pointed in the rig
At 11:35 AM 8/9/01 -0500, Frank Newland wrote:
>Readers:
>awk has a function called 'getline' which reads the next line of input
>without changing control of the script.
>
>My input file contains pairs of records. When I find a record that matches
>my search pattern, I want that record and the ne
On Thu, Aug 09, 2001 at 11:35:13AM -0500, Frank Newland wrote:
> Readers:
> awk has a function called 'getline' which reads the next line of input
> without changing control of the script.
Perl is unlike sed and awk in this respect; program control is not
determined by reading sequential lines
I am having problems matching strings. I have the
following code that reads a file with computer names
and if a named passed to the script is in the file
print yes otherwise print no, for example. The
computer names are in the format n-4.t-1 meaning node
four on rack 1.
while() {
$line = $_;
Kent there will be some key things in your IIS or PWS that you will need to
do. Your .pl needs to be associated like this.
go to control panel. open administrative tools folder. Open computer
management folder. In right window you should see a internet information
services icon with a + Open
I am ready to clean out my [EMAIL PROTECTED] inbox because mutt can't
handle the messages. I have 9000 messages saved since May 20. That's
less than 3 months and we've had 9000 messages!
I want to say congrats to both the beginners and the experts here.
Thank you for making this list work.
C
way to go everyone, keep it up
-Original Message-
From: Casey West [mailto:[EMAIL PROTECTED]]
Sent: Thursday, August 09, 2001 11:15 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Over 9000 posts
I am ready to clean out my [EMAIL PROTECTED] inbox because mutt can't
handle the messa
Don't diddle with $_ so much... You make things more confusing Here is
what I see (forgive any formatting errors, using Lotus NOTes)...
while() {
$line = $_; # You are setting $line to the current value from
chomp($line); # Getting rid of \n's etc.. (EOL chars)
# Now here, why a
I think that you just need to match the other way around to get the partial
match.
Instead of looking for the fileline within the name_passed, look for the
name_passed within the fileline.
Something like this should do the desired partial match, and be shorter and
clearer (at least to me, another
> -Original Message-
> From: Frank Newland [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 12:35 PM
> To: [EMAIL PROTECTED]
> Subject: Perl equivalent to awk's 'getline'
>
>
> Readers:
> awk has a function called 'getline' which reads the next
> line of input
> without cha
Here are three other possibilities:
1) You might be able to avoid VB entirely by using the
Spreadsheet::ParseExcel module, although I haven't tried it and can't vouch
for it.
2) If Excel is installed on the machine that's running the Perl Script, you
should be able to call the Excel object direc
But don't you need to distinguish between: n-4.t-1 and n-4.t-11? And
if you are passed only t-1 then that should be distinguised from t-11 or
t-100?
I looked at :
$mylead = '';
while() {
chomp;
$mylead = '^';
if ( $named_passed =~ /^t/ ) {
$mylead = ''
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address)
On Thu, Aug 09, 2001 at 05:16:38AM -0700, perl newbie wrote:
> #!/usr/bin/perl -w
> use strict;
> use POSIX;
>
> ##
> ###MAIN PROGRAM###
> ##
>
>
> # set environment variables.
>
> $ENV{WORK_AREA} = "/tmp/regr_tests";
Why are you using e
Just testing, please ignore this message.
-BEGIN GEEK CODE BLOCK-
Version: 3.1
GIT/U d-->(---) s: a->? C++(---) U*++>L+++ P+>+ L+(++)> E- W+++$ N++@ K w(---)
!O? M-- V? PS+ PE Y+ PGP t+ 5-- X+ R@ tv-->--- b+>+++ D+++ G e>++ h- r*- y-++
--END GEEK CODE BLOCK--
What does $mylead = '^' and if
(/${mylead}$name_passed$/) mean?
--- Wagner-David <[EMAIL PROTECTED]>
wrote:
> But don't you need to distinguish between: n-4.t-1
> and n-4.t-11? And
> if you are passed only t-1 then that should be
> distinguised from t-11 or
> t-100?
>
> I looked at
"Kevin Hundley" <[EMAIL PROTECTED]> writes:
> The code does exactly what I want. However, I get the following message
> (when the perl -w option is enabled):
> Use of uninitialized value at (eval 11) line 17.
>
> Is this message something I should just live with (or turn off the -w
> option)
what's Perl DBI module? How can I execute a web-database in Perl language?
thanks in advance
I have the following code:
%compilers = (
system1 => "compiler_a",
system2 => ["compiler_b", "compiler_c"],
system3 => "compiler_d",
);
foreach $compiler (@{$compilers{$system}}) (
$compiler_passwd = $compilers{$system} .
"_passwd";
open ($compiler, "< $compiler_passwd"
On Thu, 9 Aug 2001, Kehai Li wrote:
> what's Perl DBI module? How can I execute a web-database in Perl language?
Here's a good place to start:
http://dbi.symbolstone.org/index.html
-- Brett
http://www.chapelperilous.net/btfwk/
---
Can someone post a sample Perl script(is that what they are called,
scripts?) that communicates with the serial port (for *nix OS). Just
something that opens for read/write, sends "Hello" then reads a reply
would be great. I've read the info in perlfaq8 and termios but I am
having trouble puttin
On Thu, 9 Aug 2001, chris morris wrote:
> Can someone post a sample Perl script(is that what they are called,
> scripts?) that communicates with the serial port (for *nix OS). Just
> something that opens for read/write, sends "Hello" then reads a reply
> would be great. I've read the info in pe
At 05:09 PM 08/09/2001 +0530, Rahul Garg wrote:
>hello Everybody ,
>
>In perl script code goes like this...
>..
>
>
>
>Its not running(image not shown)sorry is displayed ...but the complete
perl script except this is working very fine
>if i run the same in simple html, image is shown.n
I'm stuck with a for-loop and would appreciate any help I can get. I hope
the code is somewhat intelligible, as it comes out of a larger script.
The code serves to print out individual search results for a flatfile
database query, called in a cgi-script.
All matching records are stored in @hits
How do I print an e-mail address to a file. For example, [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Better yet, get "Learning Perl on Win32 Systems" (O'Reilly)
Dan Murphy [EMAIL PROTECTED]
EMC Corp.508-435-1000 x14559
Hopkinton, MA 01748
EMC2
where information lives
-Original Message-
From: Peter Scott [mail
If you need to use double quotes, you can say:
print "somebody\@somewhere.com"
but if you're not using any other escape sequences or variables, then just use single
quotes:
print '[EMAIL PROTECTED]'
Single quotes force perl to take the string as it is instead of trying to inse
The 3rd edition of Learning Perl just came out. I like it it takes a more
platform independent approach, whereas before there were 2 learning perls
now there is only one.
> -Original Message-
> From: murphy, daniel (BMC Eng) [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 3:11
Hi,
I am using Telnet.pm module where I telnet to a router successfully. Now, I would like
to send some control characters like "ctrl]". Is there a way to send octal or hex
values in perl
Thanks
Atul
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECT
why are you sending
me copies of all email in and out of [EMAIL PROTECTED]?
here you can
have them back
Better yet, get "Learning Perl on Win32 Systems" (O'Reilly)
Dan Murphy [EMAIL PROTECTED]
EMC Corp.508-435-1000 x14559
Hopkin
why are you sending
me copies of all email in and out of [EMAIL PROTECTED]?
here you can have
them back
Just testing, please ignore this message.
-BEGIN GEEK CODE BLOCK-
Version: 3.1
GIT/U d-->(---) s: a->? C++(---) U*++>L+++ P+>+ L+(++)> E- W+++$
N++@ K w(---) !O? M-- V?
why are you sending
me copies of all email in and out of [EMAIL PROTECTED]?
here you can have
them back
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can al
Is there a module or command that returns the permissions of a file or
directory?
Thanks,
Hans
> -Original Message-
> From: Baartmans, Hans [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 4:47 PM
> To: [EMAIL PROTECTED]
> Subject: Check file permissions
>
>
> Is there a module or command that returns the permissions of a file or
> directory?
perldoc -f stat
--
T
At 03:47 PM 08/09/2001 -0500, Baartmans, Hans wrote:
>Is there a module or command that returns the permissions of a file or
>directory?
>
>Thanks,
>Hans
use the stat() function.
Aloha;
mel
--
mel matsuokaHawaiian Image Productions
Chief Executive Alphageek (vo
perldoc -f stat
Stat is a great command...
$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 0;
On 09 Aug 2001 16:47:00 -0400, Baartmans, Hans wrote:
> Is there a module or command that returns the permissions of a file or
> directory?
>
> Thanks,
> Hans
--
-=-=-=-=
> -Original Message-
> From: Atul Vohra [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 4:22 PM
> To: [EMAIL PROTECTED]
> Subject: Telnet . send control characters in oct or hex?
>
>
> Hi,
>
> I am using Telnet.pm module where I telnet to a router
> successfully. Now,
You can use stat as others recommended, but stat can be expensive. Stat
is good for getting all permissions, but if you just want to see if you
can write, execute or read a file, try using the file test operators.
For example, to see if a file is writable:
if (-w $filename) { ... }
Sara.
Hans
Hi ,
Can anybody help me to write regex for date validation. The validation criterion
will be as below,
with date in format dd/mm/ &
dd - should be less than 31
mm - should be less than 12
- no validation
Thanks,
Anand
At 02:47 PM 8/9/01 -0700, Sara Taillon wrote:
>You can use stat as others recommended, but stat can be expensive. Stat
>is good for getting all permissions, but if you just want to see if you
>can write, execute or read a file, try using the file test operators.
>For example, to see if a file is
At 05:43 PM 8/9/01 -0500, [EMAIL PROTECTED] wrote:
>Hi ,
>
> Can anybody help me to write regex for date validation. The
> validation criterion will be as below,
>
>with date in format dd/mm/ &
>
>dd - should be less than 31
Really? You're starting from 0?
>mm - should be less than 12
At 03:16 PM 8/9/01 -0700, I wrote:
>At 05:43 PM 8/9/01 -0500, [EMAIL PROTECTED] wrote:
>>Hi ,
>>
>> Can anybody help me to write regex for date validation. The
>> validation criterion will be as below,
>>
>>with date in format dd/mm/ &
>>
>>dd - should be less than 31
>
>Really? You're s
At 03:59 AM 8/10/01 +0530, you wrote:
>Hi Peter,
>
> I have made the changes already. Thanks a lot but its hurtning. Just
> started with Regxes. I assure u, Here after u will get some thing
> apprciabely ok. Can u suggest better site for regexes
Get Jeff Friedl's book 'Mastering Regular Expres
I'm looking for the source to Getopts::Long . pm
I glanced at the repository over at cpan.org and it led me to a page about
the programmer and so forth but there really wasn't an explicit "click
here for the source code"-link.
anyone else ever hacked an existing module apart?
---
-mL x2121
-
Can someone take a look at this and see what is wrong? I am still
learning perl and this is giving me a tough time.
The email.txt file is an empty file and has the correct permissions.
Thanks
Chris
# This section needs to cycle through the emails.txt file.
# Once it has cycled through the f
On Thu, Aug 09, 2001 at 11:15:01AM -0700, Sofia wrote:
> %compilers = (
>system1 => "compiler_a",
>system2 => ["compiler_b", "compiler_c"],
>system3 => "compiler_d",
> );
>
> foreach $compiler (@{$compilers{$system}}) (
This code shouldn't work. Have you made this modification recen
On Thu, Aug 09, 2001 at 06:53:15PM -0500, CDitty wrote:
> The email.txt file is an empty file and has the correct permissions.
You're reading from a file, expecting data to be there, but the file
is empty. Could this be your problem?
> # This section needs to cycle through the emails.txt file
Hi,
I am new to Perl and I wanted to know one simple thing. Lets say that I want
to creat a program that would ask you for your age. Somewhat like this:
Please enter your age:
Then when the user enters his/her age, then it would print the age that the
user typed. Like this:
Please enter your age:
Hi,
I am new to Perl and I wanted to know one simple thing. Lets say that I want
to creat a program that would ask you for your age. Somewhat like this:
Please enter your age:
Then when the user enters his/her age, then it would print the age that the
user typed. Like this:
Please enter your age:
On Thu, Aug 09, 2001 at 08:40:55PM -0400, fazertech wrote:
> this is what I ask for and i know that it is pretty simple, so please can
> any one help me here??
Yes, it's pretty simple. The sort of thing you might give someone as an
exercise to help them learn Perl, for example. Show us your co
On Thu, Aug 09, 2001 at 08:42:28PM -0400, fazertech wrote:
: Hi,
:
: I am new to Perl and I wanted to know one simple thing. Lets say that I want
: to creat a program that would ask you for your age. Somewhat like this:
: Please enter your age:
: Then when the user enters his/her age, then it wou
On Thu, 9 Aug 2001, Matthew Lyon wrote:
> I'm looking for the source to Getopts::Long . pm
It should be right there on your system. Nothing mysterious. On my
machine it was under
/usr/local/lib/perl5/5.6.0/Getopt/Long.pm
It's just plain ol' Perl. No XS files or anything.
> I glanced at the
Hello everyone,
I have a string from an apache log file:
192.168.1.1 - - [05/Jul/2001:22:48:51 -0500] "GET /test.php HTTP/1.1"
200 995
How could I get the IP (192.168.1.1) out of that? I've been playing
with regexps like this:
if/(.*)\s-\s-\s/;
but I have no idea if that's correct or not. Can
I'd like to remind everyone that subject lines are very important. It
is important to try and be as descriptive as possible ( in 70
characters or less :).
When you are about to begin a thread ( that usually means asking a
question here ), please think about your subject lines. This is a
very hi
On Thu, Aug 09, 2001 at 08:35:42PM -0500, Tyler Longren wrote:
: Hello everyone,
:
: I have a string from an apache log file:
: 192.168.1.1 - - [05/Jul/2001:22:48:51 -0500] "GET /test.php HTTP/1.1"
: 200 995
: How could I get the IP (192.168.1.1) out of that? I've been playing
: with regexps l
since you know that the first thing on the log file is the IP number you
only need to get the beginning of the line
IP numbers have the format ddd.ddd.ddd.ddd ranging from 1 to 3 digits,
so
if(/$(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) would grab the IP and put it
in $1
the above will match IP numb
also, if you have already downloaded the package via CPAN, then check
the ~/.cpan/build directory for the source code as well
"Brett W. McCoy" wrote:
>
> On Thu, 9 Aug 2001, Matthew Lyon wrote:
>
> > I'm looking for the source to Getopts::Long . pm
>
> It should be right there on your system.
Make sure you have created a "lib" folder in your CGI-BIN, upload the
folder(MIME)/module(Lite.pm) into it. Make sure you've set
permissions to read all, search/execute all.
Example on using Mime Lite. The following two lines go into your script:
use lib '/www/yourdomain/cgi-bin/lib';
use MI
I´d like to know how i can read out data from a file with for example, a newsletter,
like
1.) first news
2.) 2nd news
3.)...
and print it out as html ? How do i only print sentence no.2 ?
Thanx for help
foxy
On Thu, Aug 09, 2001 at 10:23:47PM -0500, Teresa Raymond wrote:
> Make sure you have created a "lib" folder in your CGI-BIN, upload the
> folder(MIME)/module(Lite.pm) into it. Make sure you've set
> permissions to read all, search/execute all.
Placing anything other than CGI scripts, that are
- Original Message -
From: "Akshay Arora" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: "perl-beginners" <[EMAIL PROTECTED]>
Sent: Thursday, August 09, 2001 7:24 PM
Subject: Re: result of regexps into a string
> since you know that the first thing on the log file is th
At 04:30 AM 8/10/01 +0530, sachidanand haldankar wrote:
>Hi Peter,
>
> with the regex u sent I am still able to enter invalid date
>
>31/25/2001
>
>my perl code is,
>
>$var1 = ;
>$var1 =~ m#^(\d\d)/(\d\d)/(\d{4})$# && $1<31 && $2<12;
>print $&;
>Can u please correct the error,
There's nothi
If you don't have the access to install a module in the root
directory, this is the way you can do it - unless you ask the web
host to install the module you want specifically. And I believe a
module is meant to be executable, so I'm unclear about your remark
there.
>On Thu, Aug 09, 2001 at
But, can this code to test if 31/6/2001 is valid or not?
we know there are totally 30 day in June.
Thanks.
- Original Message -
From: "Peter Scott" <[EMAIL PROTECTED]>
To: "sachidanand haldankar" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, August 09, 2001 10:00 PM
Subject: R
Yes, it does. I believe, that this code only makes sure that only
digits are used, that there are 2 digits for the day slot, 2 digits
for the month slot, 4 digits for the year slot, that the day will not
exceed 31, and the month will not exceed 12 (someone please correct
me if I am not readin
- Original Message -
From: Rizwan Majeed
To: '[EMAIL PROTECTED]'
Sent: Thursday, August 09, 2001 6:05 PM
Subject: changes visible when passing a list by value
It is known that passing a list by value to a function does not make visible to the
calling function changes made to the lis
> I´d like to know how i can read out data from a file with
> for example, a newsletter, like
>1.) first news
>2.) 2nd news
>3.)...
>and print it out as html ? How do i only print sentence no.2 ?
First, some questions about what you already know.
Do you know:
Basic perl?
Basic HTML?
At 12:33 AM 8/10/01 -0500, Teresa Raymond wrote:
>Yes, it does. I believe, that this code only makes sure that only digits
>are used, that there are 2 digits for the day slot, 2 digits for the month
>slot, 4 digits for the year slot, that the day will not exceed 31, and the
>month will not exc
99 matches
Mail list logo