before the pipe.
But this doesn't seem to be happening!
like how in code: $a = 1, 2;
2 is discarded because comma has lower precedence than the assignment
operator.
Thanks,
Joel
On Mar 22, 1:10 am, [EMAIL PROTECTED] (Rob Dixon) wrote:
> Joel wrote:
>
> >
>
>
>
>
&g
(which have highest precedence because
of parantheses) will execute first printing "13".
(2) then the comma between fun(1) and fun 2 is evaluated, once this
happens, is the list operation ( fun 2, fun(3) ) evaluated or is the
comma between 2 and fun(3) evaluated?
Thanks,
Joel
On Mar 20, 9:21
esn't know that my_function is
actually a function call when it doesn't see it predeclared..
I have another question, why are function calls without parantheses
called list operators, is there no difference between the two?
why isn't a function call with parantheses called a list
it "bar" from the list.. why is this?
Thanks,
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Hi,
I have written a small perl script that reads a few RSS flows and
generate an HTML file. It seems one of them have non-ASCII character not
encoded ; this make the script stop.
*** perl script says
***
not well-formed (invalid token) at line 90, column 63, byte 3936 at
/usr/pkg/lib/perl5/vend
Hi
Under CPAN when I run r command, I get the list of
updatable modules. Is there any command to get all
these modules auto updated. Thanks.
Regards
Joel
Mumbai, India
9821421965
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam
;
}
else
{
print "Invalid";
}
***
or is there any perl module available to do validation
of alpha, numeric and alphanumeric (with decimal) data
type ?
Thanks
Regards
Joel
Mumbai, India
9821421965
___
shell
programming.
Please advice. Thanks a lot.
Regards
Joel
Mumbai, India
9821421965
Start your day with Yahoo! - make it your home page
http://www.yahoo.com/r/hs
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
owing code works but I prefer to use chr(29)
instead of ↔
my $count = ($a =~ tr/↔//);
Please advice.
Regards
Joel
Mumbai, India
9821421965
__
Do you Yahoo!?
Make Yahoo! your home page
http://www.yahoo.com/r/hs
--
To unsubscribe, e-ma
Hi All
I am using Activestate Perl Ver 5.8.4 under Windows 2k
and due to firewall I am not able to install packages
using ppm / ppm3. I have checked following doc but no
luck. Please advice. I am sorry if this point was
discussed earlier.
http://www.cpan.org/modules/INSTALL.html
Regards
Joel
EMAIL PROTECTED] ?
Yea, surely that's the easiest way? I don't know if you can do
exchange-like RPC with Perl (probably!) :)
>
> If you can, you have lots and lots and lots of options.
>
> If you can't... I'm not even sure where to start with this...
>
> Ple
Try this, and remember - with XML there are more than one you have to
change:
sub xc {
#returns text free of XML baddies - xc = xml clean
my $data = $_[0];
$data =~ s/&/&/g;
$data =~ s//>/g;
$data =~ s/'/'/g;
$data =~ s/"/"/g;
return $data;
}
-
Hey, that's what we call "FAQ", isn't it? :-)
Is there any FAQ for this mailing list?
Thx
Joel
-Message d'origine-
De : Vladimir Lemberg [mailto:[EMAIL PROTECTED]
Envoye : mercredi 26 janvier 2005 01:08
A : Perl Beginners
Objet : search engine for beginners.perl
I replied directly too - sorry. Why not use a module to help out? I
think it's easier to read - but then again I'm no perl expert...
use File::Basename;
$fullname = "/usr/local/pics/sample.tiff"; #for example
($file,$dir,$_) = fileparse($fullname, qr/\..*/);
if (/\.(tif|tiff|jpg|jpeg)$/) {
Microsoft Scheduler also sucks but not quite as bad as "at". I'd look into the
Windows Cron first but you can also run a daemon (below).
#your shebang
use strict;
use POSIX;
# Start the loop for the daemon
while(1) {
my(@now) = localtime();
my($today) = POSIX::strftime( "%m
e/lib/SDL/Build.pm line 4.
Compilation failed in require at
C:\Perl\site\lib\sdll\SDL_Perl-2.0.5\Build.PL l ine 7.
BEGIN failed--compilation aborted at
C:\Perl\site\lib\sdll\SDL_Perl-2.0.5\Build. PL line 7."
Any suggestions?
Thanks
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
This is off topic, but is cygwin just the ports of GNU software for windows,
or is it an actual command line interface that simulates linux?
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.
Thanks, that works perfectly. Now I just have to figure out how to turn it
back into a valid file. I tried using "pack 'b*'" but I had no luck. Any
suggestions?
Joel
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTEC
quot;) || die "Unable to save: $!";
print SAVE 0b"$x";
close BINARY;
close SAVE;
Any ideas?
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Keyboard symbols, greek letters, and weird things that look sort of like
roads. I don't know about the driver or how I would find out.
Joel
- Original Message -
From: "Rob Dixon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 03, 2004 1:02
card
symbols.
Any ideas?
Joel
#!/usr/bin/perl
use warnings;
use strict;
my $h=15;
my @word = (0x26A1, 0x2622, 0x2672, 0x2623, 0x2669, 0x266A, 0x266B, 0x266C,
0x266D, 0x266E, 0x266F, 0x262E, 0x262D, 0x263B, 0x260D);
while ($h > 0) {
$h--;
my $letter=shift @word;
p
I'm running windows XP actually.
Joel
- Original Message -
From: "Rob Dixon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, March 02, 2004 1:35 PM
Subject: Re: Why did it print a happy face?
> Joel wrote:
> >
> > Thanks for
Thanks for explaining the while loop, but what I was wondering is why perl
printed the happy face and heart in the first place? I was using ASCII
Characters and there aren't any like that.
Thanks
Joel
- Original Message -
From: "Shaw, Matthew" <[EMAIL PROTECTED]&g
output in perl. Any ideas?
(By the way, I haven't fixed the while loop yet so be ready to quit fast to
read the output.)
Joel
#!usr/bin/perl
use Warnings;
use Strict;
my $h=4;
my @word = (0x4E, 0x65, 0x72, 0x64);
while ($h > 0) {
$h++;
$letter=shift @word;
print chr(@word);
}
--
To uns
ories) and go to the path that the script is in by
entering "cd c:\paththescriptisin". Then simply type "scriptname.pl" and it
should run.
Joel
- Original Message -
From: "Katia Kermanidis" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, Fe
ed by
everything between 1 and itself, and no modulus would be found. Any
suggestions?
Thanks
Joel
- Original Message -
From: "David le Blanc" <[EMAIL PROTECTED]>
To: "Joel" <[EMAIL PROTECTED]>; "Perl Lists" <[EMAIL PROTECTED]>
Sent: Wednesday, F
Is there an et cetera type command in perl? Specifically, what I want to do
is to go from
while (1) {
my $num = shift @numarray;
if ($num % 2==0) {
and if the modulus of 2 is 0, find the modulus of 3 and so on. Can anyone
give me some suggestions?
Thanks,
Joel
--
To unsubscribe, e
How would I go about writing an RSS aggregator that would output to a text
file?
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
to buy the
O'Reilly book "Spidering hacks", and the library doesn't have it) allthough
i'm not sure my ISP allows it. I would also like to try writing
client/server applications, but this time I know that my ISP doesn't allow
you to run servers using it.
Any suggestions?
Actually, I'm looking for more of a beginers project.
Joel
- Original Message -
From: "WC -Sx- Jones" <[EMAIL PROTECTED]>
To: "perl" <[EMAIL PROTECTED]>
Sent: Tuesday, February 24, 2004 4:03 PM
Subject: Re: cool project ideas
> Joel wrote:
&g
I'm getting tired of working on a text adventure in perl, and I was
wondering if anyone had some interesting projects they could suggest I
attempt.
Thanks,
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org
http://www.wildglobe.com/
If everything seems fine, try refreshing the page a bit. I'm curious if that
is what it is.
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Thanks, can you give me some examples of loops like that?
Joel
- Original Message -
From: "James Edward Gray II" <[EMAIL PROTECTED]>
To: "Rob Dixon" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, February 20, 2004 12:36 PM
Subject:
Thanks.
What does "ne" mean? It's not listed in functions in the documentation.
Joel
- Original Message -
From: "Daniel Staal" <[EMAIL PROTECTED]>
To: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Thursday, February 19, 2004 9:54 PM
Subject:
Here it is. Okay so it isn't tommorow. I shortened it a bit, but its the
same really.
Joel
- Original Message -
From: "James Edward Gray II" <[EMAIL PROTECTED]>
To: "Joel" <[EMAIL PROTECTED]>
Sent: Thursday, February 19, 2004 3:06 PM
Subject: R
I'll post the code tommorow. I just need to change all the room descriptions
and items, since the the characters and places depicted in the game are
copyrighted. I wrote it as a fan work.
Joel
- Original Message -
From: "James Edward Gray II" <[EMAIL PROTECTED]&g
8:36 AM
Subject: Re: Could I put commands in a variable
> Joel wrote:
> >
> > If I was using one specific group of commands, Could I put them inside a
> > variable, then just use the variable when I needed the commands instead
of
> > copying and pasting them?
&
s compared to
$command =
print "Hello world";
if ($i == 50) {
goto MAIN;
}
elsif ($t == 100) {
goto SECONDARY;
};
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
The subject says it all.
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
I fixed the source code with the suggestions given, but still no luck. Any
other ideas?
Joel
---
#!usr/bin/perl
$abc=1000
until ($abc==0)
{
print "Counting down to 0 from $a\n";
$a--;
}
print "Blast off!";
--
To unsubscribe, e-ma
Thanks, but what does "My" mean and why did you use "print" twice in a row?
Joel
- Original Message -
From: "Dan Muey" <[EMAIL PROTECTED]>
To: "Joel" <[EMAIL PROTECTED]>; "perl" <[EMAIL PROTECTED]>
Sent: Tuesday,
ops in general. Any ideas?
#!usr/bin/perl
$a=1000
until ($a==0)
{
print "Counting down to 0 from $a";
$a--;
}
else (print "Blast off!")
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
...)means?
Thanks
Joel
<>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
I wrote a decent, working program that actually
does something semi-usefull!!!
Check it out! You can find the area of a circle
with it!
Joel
PIr^2.pl
Description: Binary data
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<h
What I meant about the command prompt was "Are all the command prompts the
same? Also, could running the Activeperl software damage my system at all
since it is using a command prompt?
Thanks,
Joel
> > Also, when I opened perl, it looked like the command prompt. Is the
command
s the command prompt accesable through perl? Finally is the
"#!usr/bin/perl line necessary under XP?
Thanks
Joel
Cool, thanks - both look promising.
j
On Mon, 2004-01-19 at 14:47, Wiggins d'Anconia wrote:
> Joel Newkirk wrote:
> > I'm interested in tailing two logs (qmail) simultaneously, and
> > interleaving the data in something approaching chronological sequence,
> >
I'm trying to convert tai64 timestamps (qmail) to human-readable form.
I installed DateTime::Format::Epoch::TAI64 and dependancies, and below
is the latest mutation of a test program. The output lists the tai64
timestamp correctly, and the source IP ($src), but the converted time
($dt->hms) is 00
I'm interested in tailing two logs (qmail) simultaneously, and
interleaving the data in something approaching chronological sequence,
as well as dealing with logfile rotation gracefully.
Any suggestions?
j
--
"Not all those who wander are lost." - JRR Tolkien
--
To unsubscribe, e-mail: [EMA
On Sun, 2003-12-14 at 18:11, Joel Newkirk wrote:
> >
> > The first argument to split is converted to a regular expression and the
> > '#' character is not special in a regular expression so split/#/ and
> > split'\#' do exactly the same thing.
>
On Sun, 2003-12-14 at 14:52, John W. Krahn wrote:
> Josimar Nunes De Oliveira wrote:
> >
> > From: "Perl" <[EMAIL PROTECTED]>
> > >
> > > @temp = split(/#/, "abc#def#ghi#jkl") ;
> > >
> > > doesn't seem to work.
> > >
> > > am i doing anything wrong here ?
> >
> > Try this:
> >
> > @temp = spl
On Fri, 2003-12-12 at 15:59, John Fitzgerald wrote:
> I need a list set like this:
> IDdate
> 3008 11/1/03
> 3008 11/1/03
> 3008 11/1/03
> 3010 12/1/03
> 3010 12/1/03
>
> So I need repeating ID's, with the earliest date for
> each ID. If the order of the data is preserved, I can
> use ju
On Thu, 2003-12-11 at 14:06, drieux wrote:
> On Dec 10, 2003, at 11:34 PM, Joel Newkirk wrote:
> [..]
> > I found my problem - apparently webmin was doing "use GDBM_File;" for
> > me, which is why it worked in the webmin module, and since I wasn't
> > i
On Wed, 2003-12-10 at 22:11, drieux wrote:
> On Dec 10, 2003, at 5:58 PM, Joel Newkirk wrote:
> [..]
> >> whenever I reach:
> >> dbmopen (%PLRULES, "/var/szs/rules.dbm", undef) or die $!;
> >> I die, with "No such file or directory".
> [
On Wed, 2003-12-10 at 22:07, Owen wrote:
> On Mon, 08 Dec 2003 01:06:04 -0500
> Joel Newkirk <[EMAIL PROTECTED]> wrote:
>
> > dbmopen (%PLRULES, "/var/szs/rules.dbm", undef) or die $!;
> > I die, with "No such file or directory".
>
> No idea b
On Wed, 2003-12-10 at 20:58, Joel Newkirk wrote:
> On Mon, 2003-12-08 at 01:06, Joel Newkirk wrote:
> > Now I'm working on a console command to offer the same functionality
> > (only needing to read the rules, not write) using the same dbm. I've
> > used precisel
Well, I guess I'll reply since nobody else has... Problem is I still
have no clue what's wrong here... :^)
Surely somebody here can offer a hint? Please? :^)
j
On Mon, 2003-12-08 at 01:06, Joel Newkirk wrote:
> I've run into a problem. I have been working on a webmin mo
I've run into a problem. I have been working on a webmin module that,
among other things, maintains a dbm file of regular expressions. One
subroutine is passed a string, and if any of the regular expressions
matches, it returns the associated explanation text. I can read and
write this dbm with n
:italic;
}
H3
{
color:blue;
font-family:Garamond;
font-size:30pt;
font-style:italic;
}
-->
Help
Help
Help
-Original Message-
From: John [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 07, 2003 8:53 AM
To: Stout, Joel R; Perl Beginners
Subject: Re: Microsoft Word Creation
as a doc file (though the first option will be to save it as a htm file).
Joel
-Original Message-
From: John [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 07, 2003 8:16 AM
To: Perl Beginners
Subject: Microsoft Word Creation
I want to create a doc file that will contain my text,
ing that line. Is
there some setting that I didn't set or is this normal for a default install
of perl on RH 8?
Thanks again,
Joel
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 16, 2003 1:59 PM
To: Joel Lopez; [EMAIL PROTECTED]
Subject: RE
age->stringFT($black,
"/home/shawn/arial.ttf", 48, 0, 40, 120, "Hello World");
Is this where the image is read from or created to? The book site doesn't
give an image to work with.
thanks for helping a lost man,
Joel
-Original Message-
From: [EMAIL PROTECTED]
ermxtermxtermxtermxtermxtermxtermxterm
I first typed it in, but then after I couldn't get it to work I copied
and pasted it into a file.
I'm using Red Hat 8 and have updated the libgd C library to version
1.8.4 and then used cpan to install GD.
I ran the demo for libgd and it made the graphic it was supposed to so I
think it's working ok. Is there anyway to find out if everything is
installed correctly?
thanks,
Joel
In windows you can use
/Start/Programs/Accessories/System Tools/Scheduled Tasks
or
'at' from the cmd prompt to schedule your perl program to run every minute
or so.
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]]
Sent: 06 January 2003 16:46
To: 'George Schlossnagle'; [E
I would check to see if this copy is legal before sending out the link
again. ~Some~ Russian sites put pirated copies of books online.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Depending on how long the job takes, this little script runs about every 10
seconds. If you want to be more exact I think you'll have to fork.
#!/usr/bin/perl -w
use strict;
use POSIX;
# Start the loop for the daemon
while(1) {
my(@now) = localtime();
my($today) = POSIX::str
Easy for you to say...you don't live in Portland where we have the finest
beer in the world. :)
J
-Original Message-
From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 29, 2002 9:53 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Fixing the Quality of our OldBies was Re: GoryD
Conan,
HTTP::Headers I think is what your after
http://search.cpan.org/search?mode=module&query=http
regards
Joel
-Original Message-
From: Conan Chai [mailto:[EMAIL PROTECTED]]
Sent: 24 April 2002 05:08
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: http headers
hi,
are t
Just translates your "+" to " ".
my ($key);
$key = "one two three+four";
$key =~ tr/+/ /;
print "$key\n";
one two three four
-Original Message-
From: Ron [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 23, 2002 11:18 AM
To: [EMAIL PROTECTED]
Subject: RegEx question
I have been usi
Adding one and incrementing are different. You're adding 1. Did you try
incrementing the character?
Instead of this:
$code[$y]=$code[$y]+1;
try
($code[$y])++;
#!/usr/bin/perl
@code = qw( A B C D );
$y = 0;
if( $code[$y] ne "F" ){
print "$code[$y]\n";
($code[$y])++;
print "$code[$y]\n"
to say there is no firewall.
NMAP would probably be a better option
joel
-Original Message-
From: Fred Sahakian [mailto:[EMAIL PROTECTED]]
Sent: 17 April 2002 20:37
To: >; >
Subject: Firewall
Anyone know of a perl script that can determine if a website is actually
behind a firewa
e a way to only install
XML::SimpleObject? I do not remember going through this before.
Thanks for any help,
Joel
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
#!/usr/bin/perl -w
my $x = "abcd";
print substr($x,3,1);
from perldoc perlfunc:
substr EXPR,OFFSET,LENGTH,REPLACEMENT
substr EXPR,OFFSET,LENGTH
substr EXPR,OFFSET
Extracts a substring out of EXPR and returns it. First character
is at offset `0', or whatever you've set `$['
again with all the backslashes...
This works on windows:
opendir(DIR,"C:/program files");
my @files = readdir(DIR);
print @files;
J:)
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, February 28, 2002 12:58 PM
> To: 'Eric Peers'; [EMAIL PROTECTE
Any thought to storing links to the docs in a db rather than the data
itself, maybe with some keywords you can search on?
Joel
Headline- Apathy Runs Rampant; But Noone Seems to Care
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, Fe
try:
perl program.pl file.txt
and then check $ARGV[0]
It should contain "file.txt". I've dealt with this before using Windows and
line args. Anyone more experienced (Jenda?) can help out more.
J
> -Original Message-
> From: Wagner-David [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, Fe
Reggae
Peter Tosh
Percy
Reggae
Percy Gone Jazz
Percy
Reggae
Yes Percy (owner) is repeated and so is the category, but it makes it a
little easier to add another album to your file:
Napalm Death
Joel
>From previous post:
$q = int( $p ); # goes towards zero
$r = ceil( $p );# goes to next highest integer
$s = floor( $p ); # goes to next lowest integer
> -Original Message-
> From: Naveen Parmar [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 17, 2002 2:15 PM
> To: [
perldoc perldata says for clearing arrays:
@array = ();
or...
$#array = -1;
> -Original Message-
> From: Leon [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 15, 2002 8:19 AM
> To: [EMAIL PROTECTED]
> Subject: Re: Help with clearing an array
>
>
> - Original Message -
>
Got this from a merlyn post,
while () {
next if 1..10;
print OUT_FILE $_;
}
> -Original Message-
> From: Cabezon Aurélien [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 14, 2002 12:56 PM
> To: [EMAIL PROTECTED]
> Subject: deleting lines in file
>
>
> hi,
> i wonder how to dele
Readability wasn't a concern with making this obfu. I did want to show that
it worked with "use strict;" so I put that on a seperate line. Original
Monks post below.
Joel
Calaban on Monks
#!c:\perl\perl.exe -w
use strict;
my $A="a";for(0..285074){$A++;}print"$
Also since my production box is my pc (ack) I don't
have a MS Window popping up every 5 minutes like you will have with the
scheduler.
Hope this helps...
Joel
> -Original Message-
> From: Scott [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 07, 2002 10:44 AM
> T
Not sure, but if you go to Window -> Unhide you can see that the book was
created successfully. Maybe a Win32 Perl Guru can help more.
Joel
> -Original Message-
> From: Billie [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 07, 2002 7:15 AM
> To: [EMAIL PROTECTED]
&
$a = "1234:4321;abcde;fghij::;klmno";
@dataLine = split(/;/, $a, 2);
($x, $y) = split (/:/, $dataLine[0]);
print "x: $x\n";
print "y: $y\n";
print "rest: $dataLine[1]\n";
see split in perldoc perlfunc
> -Original Message-
> From: Curtis Poe [mailto:[EMAIL PROTECTED]]
> Sent: Thursday,
Assigning the array to a scalar will give you a count:
push ( @initial_array, qw( apple orange bananna ));
$a = @initial_array;
print $a;
prints 3
-Original Message-
From: Ryan Guy [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 17, 2001 12:24 PM
To: '[EMAIL PROTECTED]'
Subject: Array
Hi
use POSIX
Regards
Joel
At 11:54 AM 12/4/2001 +0330, nafiseh saberi wrote:
>hi
>you can do it with
>gmtime
>localtime
>and many time function in...
>http://www.perldoc.com/perl5.6/pod/func/gmtime.html
>http://www.perldoc.com/perl5.6/pod/func/localtime.html
>be succes
I'm still a real beginner and think Mail::Sender is about as easy as it
gets...
Since the subject has been brought up, pls take a look at my simple sub for
emailing files. I know this code works but can be improved. I send the
file name(s) to be attached, a file name for the message text, and
Hi
I am from Mumbai, India
Working for a software firm.
God only knows how long my company will survive ...
Feeling the pain of recession ...
Perl Monk on www.perlmonk.org (Jamnet)
Have a 9+ years experience
Looking for a good job...
Ready to relocate
Regards
Joel
At 03:56 PM 11/9
Portland, Oregon
-Original Message-
From: Etienne Marcotte [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 09, 2001 7:08 AM
To: [EMAIL PROTECTED]
Subject: Off-Topic (200%) - Where are you from?
By reading the messages everyday I can guess most of us are from United
States right? And
or..
system("C:\\WINNT\\notepad.exe");
system("C:/WINNT/notepad.exe");
same on my box and I save myself that extra typing :)
-Original Message-
From: Busse, Rich [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 22, 2001 11:08 AM
To: Perl Beginners
Subject: FW: Running application
Watch
int will go towards zero...
#!/usr/bin/perl -w
my ($p, $q, $r, $s, $t);
use POSIX;
use strict;
$p = rand( 100 ); # random number between 0 and 100
$q = int( $p ); # goes towards zero
$r = ceil( $p );# goes to next highest integer
$s = floor( $p ); # goes to next lowest inte
g file entry into my script.
Joel
-Original Message-
From: Gibbs Tanton - tgibbs [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 04, 2001 11:04 AM
To: 'Eric Wang '; '[EMAIL PROTECTED] '
Subject: RE: Periodic Auto Start
If you are on a unix system you can use
# IP of proxy server along with the
port no
set HTTP_proxy_user=joel # Login name if required
set HTTP_proxy_pass=a # password
then run PPM
This should solve your problem
Hey Reg do let me know if it helped you OK
Regards
Joel
At 11:48 AM 9/19/2001
===
#!/usr/bin/perl -w
# use packages
use strict;
use IO::Socket;
# Data Variables
my ($SMTP_Server) = "10.10.10.10";
my ($SMTP_Port) = "25";
my ($CR) = "\r\n";
my $Socket;
# Mail Related Data
my $from = "joel\@testlinux.net";
my $to = &quo
Hi Rahul
I am sorry to say that we always see you coming up with questions and no
efforts from you end. Either you are used to spoon feeding or just want to
get things done for free. This will not help you as well as the list in the
long run.
Thanks for your co-operation
Regards
Joel
Here's an article I found a while back on creating PDF from HTML with Perl.
Probably not exactly what you're looking for:
http://www.stars.com/Authoring/Languages/Perl/PerlfortheWeb/index16.html
Joel
*You know you're bored when...
my $a = "";
for (0..2667
Hi Debashis
I have a same setup at home. Add perl installation path in your
autoexec.bat file if not done automatically.
I don't think you need to configure anything more if you are using new perl
releases
Regards
Joel
At 03:45 PM 7/17/2001 +0100, debashis rana (JIC) wrote:
>
Hi Rahul
Show what attempts you have done before asking for help ok ... how do you
plan to grow. Anyway this is what you are looking for
$string ="rahul;john;hary;brian;raj;dolly;jim;";
my @a = split(/;/, $string);
foreach $item (@a)
{
print "$item\n";
}
Regard
Hi Scott
I was having sleepless nights because of the same problem I tried whatever
I could, tried configuring PWS it didn't work surely will check
the link. One right solution can help many more lives
Thanks a lot
Regards
Joel
At 08:09 PM 7/17/2001 +1000, you wrote:
> &
;t be of more help - just learning myself.
Joel
-Original Message-
From: Brett W. McCoy [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 16, 2001 1:07 PM
To: Christopher Williams
Cc: [EMAIL PROTECTED]
Subject: Re: ActivePerl - how does one configure for HTML
On Mon, 16 Jul 2001, Christo
1 - 100 of 135 matches
Mail list logo
