Thank You - all that have supplied me with a solution to the problem below.
I am amazed once again at the power of perl, I had imagined pages of code
and what do I receive? five line solutions! Absolutely Amazing.
My resolve has been strengthened to learn perl even more.
Thanks.
-Original Mes
on Wed, 05 Jun 2002 15:26:12 GMT, Nikola Janceski wrote:
> shouldn't it be written as this to aviod that confusion:
> my $RandomScript = $Scripts[rand(@Scripts)];
>
Yes, that's also my preferred way.
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
On Wednesday, June 5, 2002, at 05:08 , tom poe wrote:
> The author then follows with:
> "There are other ways to tell Perl where to look for modules; consult the
> Perl documentation for use."
>
> So, my question is, where is he thinking this info is? Can someone point
> me
> to a discussion o
On Wednesday, June 5, 2002, at 03:12 , James Kelty wrote:
> Hello.
>
> I am using the File::Find module from Cpan to travers some filesystems to,
> well, find a file.
> Here is my small snippet of code. Basically what is happening is that the
> sub is returning a 0 instead of the file name. What
Hi: I stumbled across the following in the book by James Tisdall, Beginning
Perl for Bioinformatics, O'Reilly Pub, ISBN: 0-596-00080-4:
pg. 103 - There's one last thing to know about using modules to load in
subroutines: the Perl program needs to know where to find the module. If
you're doing
It was inferred from my original post that the start/stop times were all
integers, which actually was not true. That's why the bitmap union idea
sounds good, but doesn't work with non-integers.
Thanks to some ideas I got from several people on the list, however, I came
up with an algorithm that
James Kelty wrote:
>
> Hello.
Hello,
> I am using the File::Find module from Cpan to travers some filesystems to,
> well, find a file.
> Here is my small snippet of code. Basically what is happening is that the
> sub is returning a 0 instead of the file name. What am I doing wrong?
>
> #!/usr/
On Wed, Jun 05, 2002 at 03:12:09PM -0700, James Kelty wrote:
> I am using the File::Find module from Cpan to travers some filesystems to,
> well, find a file.
> Here is my small snippet of code. Basically what is happening is that the
> sub is returning a 0 instead of the file name. What am I doin
On Wednesday, June 5, 2002, at 03:05 , Jenda Krynicky wrote:
> From:"siren jones" <[EMAIL PROTECTED]>
>> I'm trying to figure out some cgi code which has the statment
>>
>> &readparse(*input);
[..]
> What is it? A clear hint that the code was written for Perl 4.
> Run away from it if you can.
>
Patrick Hall wrote:
>
> --- "John W. Krahn" <[EMAIL PROTECTED]> wrote:
> > Patrick Hall wrote:
> > > I'd like to push all sequences of capitalized words onto an array.
> > >
> > > So, given this paragraph (which I just snagged off AP)
> > >
> > > Indian Prime Minister Atal Bihari Vajpayee said
>
Hello.
I am using the File::Find module from Cpan to travers some filesystems to,
well, find a file.
Here is my small snippet of code. Basically what is happening is that the
sub is returning a 0 instead of the file name. What am I doing wrong?
#!/usr/bin/perl -w
use strict;
use File::Find;
us
From: "Bryan R Harris" <[EMAIL PROTECTED]>
> I'm trying to come up with an algorithm that seems like it ought to be
> really easy, but it's turning out to be pretty tough...
>
> Basically I have three pairs of start/stop times, e.g.:
>
>3, 5
>4, 10
> 15, 20
>
> I want the total time c
From:"siren jones" <[EMAIL PROTECTED]>
> I'm trying to figure out some cgi code which has the statment
>
> &readparse(*input);
>
> I know readparse is a subroutine, but what is "*input"? Is that a
> variable? Reference? Parameter? What?
What is it? A clear hint that the code was written for Pe
--- "Jackson, Harry" <[EMAIL PROTECTED]> wrote: >
> I have been looking back at this problem and here is what I have found.
>
> Lets take the following set of times
>A , B
> 1 (4 , 5)
> 2 (9 , 10)
> 3 (11 , 12)
> 4 (12 , 14)
> 5 (12 , 18)
> 6 (14 , 15)
>
> If
Uncertain if this is as big as it gets or what, but I tried this:
where %Myusgs is keyed from $USGS_QD_ID
[0] points to Quad name
[1] points to element of array holding input data
%Myquad is keyed from $QUAD_NAME
At this point I feel compelled to mention that if the file you will be
working on is more than a few K or so, then it might be a good idea to
rewrite your loop so that you don't dump the entire file to memory.
Something like:
open(FILE,"myfile.txt");
while(){
if($_ =~ /Date:/){
print "
On Wednesday, June 5, 2002, at 01:38 , David T-G wrote:
[..]
> % use it unless I implement some sort of encryption using SSL or SSH
> % tunneling. I don't really want to do this, so i was thinking of putting
> % in some sort of challenge handshake, using MD5 hashes based on
>
> Rather than rolli
Beau..I guess , the evaluation of the expression is not going to be true if no
"Date:" is found. Since map returns a list consisting of the results of each
successive evaluation of the expression..., the map will return undef.
Although, here..I think using grep would be a better idea!!
---
Shishir --
...and then Shishir K. Singh said...
%
% David ---
%
% Could have done that.Only problem with that is
%
% a) How do I uncompress the *.Z on non Unix(windows) without using gzip
% exe (don't want to do that)
Not sure. I dunno if the zlib module will speak uncompress or not. I
James --
...and then James Taylor said...
%
% I have a program I wrote, client and server, that communicate through
...
% use it unless I implement some sort of encryption using SSL or SSH
% tunneling. I don't really want to do this, so i was thinking of putting
% in some sort of challenge h
David ---
Could have done that.Only problem with that is
a) How do I uncompress the *.Z on non Unix(windows) without using gzip
exe (don't want to do that)
b) The files are not to be tampered with as the requirements call for
them to be registered
in a database for reference purpose.
Shishir --
...and then Shishir K. Singh said...
%
% I basically wanted to have the Compression utility independent of any platforms, so
that I can do uncompress/Compress on tar /gz files on Windows and Zip files on Unix.
Except the *.Z format, the others work fine, thanks to Archive::Zip and
I have a program I wrote, client and server, that communicate through
sockets - There currently is no sort of authentication between the two
other than hosts.allow allowing the IP of the client for that port, and
that's all. People wanting to use my program have told me they won't
use it unle
At 16:12 2002.06.05, Shishir K. Singh wrote:
>open (FILE , "<$ARGV[0]");
>print "ok" if ( map { /Date:/ } () );
>close FILE;
map return an array with the result of the express apply to each line. Even if none of
the lines in contain Date:, you will have an array with one "" value for each
li
Don't know if you can do a search on an array (until and unless you want to evaluate
each element)
In case you are trying to achieve the multiple lines search, maybe this or the 2nd
example can help :
open (FILE , "<$ARGV[0]");
my @lines = ;
close(FILE);
$line = join(" ", @lines);
Hi -
I don't think you can regex on a whole array; try this
after you have loaded the array:
for (@lines) {print "ok" if /Date:/; }
This iterates the array lines presenting $_ for each
iteration. The regex /Date:/ operates on $_.
Aloha => Beau.
-Original Message-
From: An
> -Original Message-
> From: Ankit Gupta [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 05, 2002 3:49 PM
> To: [EMAIL PROTECTED]
> Subject: Help in Regular expression with array
>
>
> Hello,
>
> I am facing a problem in using regular expression on array. My code is
> written below:
Okay, with some experimenting, it looks like @lines is being looked at in a
scalar way, therefore as the number of elements in the array, and that
number doesn't contain the string "Date:".
I would suggest:
foreach(@lines) {
if(/Date:/) {
print "ok"
}
}
At 15:49 2002.06.05, Ankit Gupta wrote:
>Hello,
>
>I am facing a problem in using regular expression on array. My code is
>written below:
>open(FILE, $dirvalue) ;
> my @lines = ;
> print @lines; # prints the file contents
> if( @lines =~ m/Date:/) { pri
Hello,
I am facing a problem in using regular expression on array. My code is
written below:
open(FILE, $dirvalue) ;
my @lines = ;
print @lines; # prints the file contents
if( @lines =~ m/Date:/) { print "ok";}
close(FILE);
here I can pr
Thanks BeauI have been scratching head since morning to see if there is a way out,
but to no effect!!
I basically wanted to have the Compression utility independent of any platforms, so
that I can do uncompress/Compress on tar /gz files on Windows and Zip files on Unix.
Except the *.Z fo
Well, I am no genius, but something like this should get you started. You'll
have to strip off the first line though for this to work.
#!/usr/local/bin/perl -w
use Data::Dumper;
open( INPUT, "landuse_filenames.txt" );
while( ) {
chomp;
( $FILE_NAME, $USGS_QD_ID, $QUAD_NAME, $ST
On Wed, Jun 05, 2002 at 02:47:55PM -0400, Alaric Joseph Hammell wrote:
> I am attempting to parse a the attached .txt file.
>
> i need to be able to access the information by unique keys, QUAD_NAME and
> USGS_QD_ID. Also, I want to be able to do a somewhat less exact access byt
> ST_NAME.
>
> I
Hello,
I am new with perl and was hoping to get some direction.
I am attempting to parse a the attached .txt file.
i need to be able to access the information by unique keys, QUAD_NAME and
USGS_QD_ID. Also, I want to be able to do a somewhat less exact access byt
ST_NAME.
I was thinking th
It's pretty cool notation, actually...
Thanks for the responses.
- B
__
$a ? $b : $c;
is the same as
if( $a ){
$b
} else {
$c
}
see perldoc perlop (I think)
but I would have put the foreach in front for readability:
foreach (@your_list) { $_ % 2 ? print "blue\n" :
Janek Schleicher wrote at Wed, 05 Jun 2002 20:14:27 +0200:
>> I am trying to print the newest value in the array.
>>
>> $questionpos[$questionno][$#{$questionpos[$questionno]}]
>>
>>
> print $pos[-1];
>
Sorry, I wrote to quick:
print $pos[$no][-1];
Cheerio,
Janek
--
To unsubscribe, e-ma
Shishir -
I'm using Win32 also (I have Linux on one machine
but haven't done much with it yet.) I think that the
unix 'tar' utility gives you a .tar file (uncompressed)
and then that file is passed thru a compression utility:
zip => .tar.z, gzip => .tar.gz, or something like
bzip => .tar.b
Jess Balint wrote at Wed, 05 Jun 2002 20:00:57 +0200:
> Thank you. That is all find and dandy now. But what about the print line:
>
> I am trying to print the newest value in the array.
>
> $questionpos[$questionno][$#{$questionpos[$questionno]}]
>
print $pos[-1];
Greetings,
Janek
--
To un
Bryan R Harris wrote at Wed, 05 Jun 2002 19:51:49 +0200:
>> $_ % 2 ? print "blue\n" : print "red\n" foreach (@your_list);
>
>
> This actually works?! Very strange notation, how does the compiler see this line?
>I assume the
> mod operator evaluates to 1-true or 0-false, what does the "?" do?
From: "Tagore Smith" <[EMAIL PROTECTED]>
> Thanks :). That's great. I don't use goto much, except for a couple of
> very specific situations, so I hadn't read the docs for goto. It
> seems I missed a very interesting beast in goto &NAME. In fact , I
> sent a friend of mine some
drieux, et al --
...and then drieux said...
%
% On Wednesday, June 5, 2002, at 09:49 , Alan John Drew wrote:
% [..]
% >If you can avoid it, never compile/install as root. I
% >generally compile the modules as an unprivalidged user, and copy them to
% >~/lib/perl5/ and add the following to by scr
Thank you. That is all find and dandy now. But what about the print line:
I am trying to print the newest value in the array.
$questionpos[$questionno][$#{$questionpos[$questionno]}]
-Original Message-
From: Peter Scott [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 05, 2002 2:02 PM
T
On Wednesday, June 5, 2002, at 09:54 , lz wrote:
> Hi guys,
>
> I have the following line:
> system("cat $FILENAME | mailx -s \"test\" $mailAddress
> ");
>
> How can I check whether mailx operation above was
> successful or not?
The homeboys have covered the basic bases
but what you will p
Jess Balint wrote at Wed, 05 Jun 2002 19:19:15 +0200:
> Hello all. I have trying to push a value onto the end of a two-dimension array. Here
>is my code.
>
> if( /\s+--\s+COLS\.\s+(\d+)\s+-\s+(\d+)\s+--/ ) {
> push( @{questionpos[$question
At 01:19 PM 6/5/02 -0400, you wrote:
>Hello all. I have trying to push a value onto the end of a two-dimension
>array. Here is my code.
>
> if( /\s+--\s+COLS\.\s+(\d+)\s+-\s+(\d+)\s+--/ ) {
> push( @{questionpos[$questionno]}, $1 );
Nope, Pe
Each number in @your_list becomes $_ one at a time. It does the
modulo if true does the first operation after ? or if false then after the
:. Short and sweet, and you will get there.
Wags ;)
-Original Message-
From: Bryan R Harris [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June
With the solutions presented, I used rindex since what about the
title: 'Perl by example by New Author' . Doing a split and you will not have
what you expected. Here is a shot:
while ( ) {
chomp;
next if ( /^\s*$/ );
my $MyPtr = rindex($_," by ");
if ( $MyPtr < 0 )
On Wednesday, June 5, 2002, at 09:49 , Alan John Drew wrote:
[..]
> If you can avoid it, never compile/install as root. I
> generally compile the modules as an unprivalidged user, and copy them to
> ~/lib/perl5/ and add the following to by script:
>
> use lib "./lib/perl5/";
>
> before any other
$a ? $b : $c;
is the same as
if( $a ){
$b
} else {
$c
}
see perldoc perlop (I think)
but I would have put the foreach in front for readability:
foreach (@your_list) { $_ % 2 ? print "blue\n" : print "red\n" }
> -Original Message-
> From: Bryan R Harris [mailto:[EMAIL PRO
> $_ % 2 ? print "blue\n" : print "red\n" foreach (@your_list);
This actually works?! Very strange notation, how does the compiler see
this line? I assume the mod operator evaluates to 1-true or 0-false, what
does the "?" do? What does the ":" do? How do you have a foreach at the
end of a
Hello all. I have trying to push a value onto the end of a two-dimension
array. Here is my code.
if( /\s+--\s+COLS\.\s+(\d+)\s+-\s+(\d+)\s+--/ ) {
push( @{questionpos[$questionno]}, $1 );
push @questionlength[
Leon, et al --
...and then lz said...
%
% David,
%
% Thank you for useful info!
Happy to help!
%
% But as I can see this approach won't catch the problem
% if the incorrect email was specified ?
Hrmmm... You mean if $mailAddress was incorrectly provided? No, it
won't. If mailx exite
David,
Thank you for useful info!
But as I can see this approach won't catch the problem
if the incorrect email was specified ?
Thank you!
--- David T-G <[EMAIL PROTECTED]>
wrote:
> Leon --
>
> ...and then lz said...
> %
> % Hi guys,
>
> Hello!
>
>
> %
> % I have the following line:
>
Hrm... according to the DBI docs, execute() returns undef if it fails...
perhaps you should be using "if (defined($result)) { }" ?? You might
also check for $DBI::errstr ... I believe that only exists when there
is an error...
Are you sure your update is failing?
---
J
Denham Eva wrote:
>
> Hello Listers,
Hello,
> I am struggling to get this right. Beginner in perl, so please forgive
> ignorance, but the regular expressions are confusing.
>
> I am trying to read in a file, with content as follows
> ---snip---
> 1984 by George Orwell
> A BEND IN THE RIVER by
the docs explain the return codes for system, this is what i used:
my $err = $? >> 8;
if ($err) { print "puked\n" }
else {print " success\n"}
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 05, 2002 12:54 PM
To: [EMAIL PROTECTED]
Subj
Leon --
...and then lz said...
%
% Hi guys,
Hello!
%
% I have the following line:
% system("cat $FILENAME | mailx -s \"test\" $mailAddress
% ");
%
% How can I check whether mailx operation above was
% successful or not?
Just check the exit code. A quick
perldoc -f system
tells us that
Hi guys,
I have the following line:
system("cat $FILENAME | mailx -s \"test\" $mailAddress
");
How can I check whether mailx operation above was
successful or not?
Thank you!
__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
htt
When I download something (depending on how large it is/how much I trust)
I get the source code, scan it for anything dodgy (including the
makefile/make make script) and if all seems ok,
compile and install. If you can avoid it, never compile/install as root. I
generally compile the modules as an
At 05:14 PM 6/5/02 +0100, Alan John Drew wrote:
>I have a program which I want to have a bi-directional pipe to (i.e both
>write and read). I am unable to tee it to a file and then read the file,
>so reluctantly started to investigate the IPC modules. I have a snippet of
>code here, which again
> "Patrick" == Patrick Griffin <[EMAIL PROTECTED]> writes:
Patrick> Hello: Just downloaded my first CPAN module (woo-hoo).
Patrick> What risks are associated with installing these modules?
In theory, many.
Patrick> Are they checked for viruses, etc. before posting?
Nope. If yo
Hello:
Just downloaded my first CPAN module (woo-hoo). What risks are
associated with installing these modules? Are they checked for viruses,
etc. before posting?
- Pat
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I have a program which I want to have a bi-directional pipe to (i.e both
write and read). I am unable to tee it to a file and then read the file,
so reluctantly started to investigate the IPC modules. I have a snippet of
code here, which again works (sort of), just not in the way that I
need...
Michael --
...and then Michael Norris said...
%
% This subroutine is supposed to chech the validity of an IP address. 4 numbers (1 -
255) separated by ".". But my regular expression doesn't seem to be working out for
me.
%
...
% if ($_[0] =~ m/([1-2][0..5]*[0..5]*)\.\1\.\1\.\\s*$/) {
I do
On Jun 5, Michael Norris said:
>This subroutine is supposed to chech the validity of an IP address. 4
>numbers (1 - 255) separated by ".". But my regular expression doesn't
>seem to be working out for me.
> if ($_[0] =~ m/([1-2][0..5]*[0..5]*)\.\1\.\1\.\\s*$/) {
[0..5] means [05.] -- that is,
This subroutine is supposed to chech the validity of an IP address. 4 numbers (1 -
255) separated by ".". But my regular expression doesn't seem to be working out for
me.
print "Enter IP address: ";
chomp($ip = );
&ipcheck($ip);
sub ipcheck{
if ($_[0] =~ m/([1-2][0..5]*[0..5]*)\.\1\.\1\.\\s
On Wednesday, June 5, 2002, at 07:34 , <[EMAIL PROTECTED]> wrote:
[..]
>
> I apparently do not have that. Is CPAN the place for that? Is it safe\n
> from viruses and such? Is there install instructions?\n
assuming that you are as concerned about 'viri' - you might want
to ship your email as '
shouldn't it be written as this to aviod that confusion:
my $RandomScript = $Scripts[rand(@Scripts)];
> -Original Message-
> From: Felix Geerinckx [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 05, 2002 11:18 AM
> To: [EMAIL PROTECTED]
> Subject: Re: Thanks - Re: Regex problem ex
On Wednesday, June 5, 2002, at 06:10 , Ron Powell wrote:
[..]
> I should have started there first. I made the (wrong and relatively
> stupid)
> assumption that the module would be at cpan...
rule of thumb is 'why not check there first' - since they do
have a reasonable collection of the basic
> I didn't quite see why you would have to do a +1 on the following:
>
>my $RandomScript = $Scripts[int(rand($#Scripts + 1))];
The '$#array' construct returns the index of the last element of the
'@array'. 'rand $number' returns a random number between 0 (inclusive)
and $number (exclusive)
On Wednesday, June 5, 2002, at 05:18 , Ron Powell wrote:
>
>> %
>> % or which ever your KULT fave login world is, and then sort
>> % out which path thingies belong where - ala
>> %
>> %if( $ARCH == "sgi" ) then
>>
>> Ahhh! If/elseif trees! Ick!
>>
>
>
> See, a great place for a SWITCH sta
Adam, et al --
...and then Adam Vardy said...
%
% Wednesday, June 5, 2002, 10:37:59 AM, you wrote:
%
% >> If this is from a tutorial, you need to find another tutorial :)
%
% Sure. Suggestions?
I'd love to see sites that make it onto other people's "highly
recommended" list, but I'm sure tha
Adam, et al --
...and then Adam Vardy said...
%
% Hello David,
Hi!
%
% Wednesday, June 5, 2002, 12:30:46 AM, you wrote:
%
% >> %
% >> % /(<.*>)/i;
%
% >> This (the // part) searches $_ ('cuz it's that with which we expect we're
% >> working) for a < and then zero or more of anything and t
Hello Bob,
Wednesday, June 5, 2002, 10:37:59 AM, you wrote:
>> If this is from a tutorial, you need to find another tutorial :)
Sure. Suggestions?
--
Adam V.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks Janek and Japhy and Drieux for all the help on this!
I've yet to look at this Tie::Pick, but will.
In the meantime, I've gone with the Japhy solution,
$element = @things[rand @things];
because it was the simplest (and works).
I didn't quite see why you would have to do a +1 on
On Tuesday, June 4, 2002, at 07:36 , David T-G wrote:
> ...and then drieux said...
> % % On Tuesday, June 4, 2002, at 04:58 , David T-G wrote:
> %
[..]
> % much as a peek forward to where and how he can start thinking
> % about doing things better
>
> I suppose I should do a better job of thi
Hello David,
Wednesday, June 5, 2002, 12:30:46 AM, you wrote:
>> Adam --
>> %
>> % /(<.*>)/i;
>> This (the // part) searches $_ ('cuz it's that with which we expect we're
>> working) for a < and then zero or more of anything and then a > and it
Searches, does not sound like much of a concep
Janek Schleicher wrote at Wed, 05 Jun 2002 16:19:11 +0200:
> Yep, if you like it short ;-)
> open BOOK_LIST, " print join "\n", map {chomp; /(.*) by (.*)/; "$2 - $1"} ();
^^^
Oh a typo :-(
> close BOOK_LIST;
Cheerio,
Janek
--
To
Robert Hanson wrote at Wed, 05 Jun 2002 15:57:05 +0200:
> Here is my solution, others will differ...
>
Yep, if you like it short ;-)
open BOOK_LIST, ");
close BOOK_LIST;
> # always print $! on error so you can see the cause open( INFILE,"books.txt" ) ||
>die "Cann't
> Open: $!";
>
> while(
Hello,
I haven't tried it yet and wanted to know if anyone has the clue before I delve deeper
into it (just being lazy :)). According to the documentation , the Archive::Tar module
supports the *.gz format. I didn't find anything about *.Z (the compress format on
UNIX). Does Archive::Tar supp
Here is my solution, others will differ...
# always print $! on error so you can see the cause
open( INFILE,"books.txt" ) || die "Cann't Open: $!";
while( ) {
chomp; # remove the newline
next unless ($_); # skip blank lines
# split the line by the seperator
my @
Hello Listers,
I am struggling to get this right. Beginner in perl, so please forgive
ignorance, but the regular expressions are confusing.
I am trying to read in a file, with content as follows
---snip---
1984 by George Orwell
A BEND IN THE RIVER by V.S. Naipaul
A CLOCKWORK ORANGE by Anthony Bu
> -Original Message-
> From: Zachary Buckholz [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, June 04, 2002 10:11 PM
> To: [EMAIL PROTECTED]
> Subject: probably a simple question
>
>
> Is there any function to tell if a number is even or odd?
> I am looking for an easy way to loop through a
> -Original Message-
> From: Adam Vardy [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, June 04, 2002 10:26 PM
> To: [EMAIL PROTECTED]
> Subject: From tutorial
>
>
> Can someone help please. I'm learning from scratch. What is this?
>
> $_='My email address is <[EMAIL PROTECTED]>.';
>
> /
/looks sheepish
I should have started there first. I made the (wrong and relatively stupid)
assumption that the module would be at cpan...
I'll quit wasting bandwidth now. Perhaps a career in Truck Driving would
better suit me at this point :)
Thanks for the pointer, though.
Ron
> -Ori
The answer is in your question...
http://www.roth.net/perl
The Win32::Daemon module is available from Dave Roth's site.
HTH
John
-Original Message-
From: Ron Powell [mailto:[EMAIL PROTECTED]]
Sent: 05 June 2002 14:03
To: perl beginners
Subject: Newbie Module Install question...
So,
So, I'm trying to use this script (which was mentioned in an earlier
submission to the list, I believe):
http://www.roth.net/perl/scripts/scripts.asp?DirMon.pl
I tried to do the following command: perl DirMon.pl -?
And I get this error back:
Can't locate Win32/Daemon.pm in @INC (@INC contains:
I'm having a problem getting my output to print to the LOGFILE as a FAILED
UPDATE
Everything reports that "Updated waybill number..." ok even though I put
data that should fail in my input file.
What am I doing wrong?
$sql_upd =3D "update bcerts_2001 set track_num=3D\'$track_num\' ";
If you have not already got the solution try this. I am sure the gurus out
there can clean up the code to make it short.
# --- testing the fuction --
# --- $i simulating the row number or cell number as you wish --
for ($i=0; $i<10; $i++){
print &get_cell_color($i);
}
# --- function to se
> %
> % or which ever your KULT fave login world is, and then sort
> % out which path thingies belong where - ala
> %
> % if( $ARCH == "sgi" ) then
>
> Ahhh! If/elseif trees! Ick!
>
See, a great place for a SWITCH statement (*snicker*)
/me runs away
Hi
I have been looking back at this problem and here is what I have found.
Lets take the following set of times
A , B
1 (4 , 5)
2 (9 , 10)
3 (11 , 12)
4 (12 , 14)
5 (12 , 18)
6 (14 , 15)
If we sort by column A the set inherits the following prope
Patrick Hall wrote:
>
> Hi,
Hello,
> I'd like to push all sequences of capitalized words
> onto an array.
>
> So, given this paragraph (which I just snagged off AP)
>
> Indian Prime Minister Atal Bihari Vajpayee said
> Wednesday that India would consider jointly monitoring
> the disputed Kash
Patrick Hall wrote at Wed, 05 Jun 2002 11:01:31 +0200:
> Hi,
>
> I'd like to push all sequences of capitalized words onto an array.
>
> So, given this paragraph (which I just snagged off AP)
> Indian Prime Minister Atal Bihari Vajpayee said
> Wednesday that India would consider jointly monitori
patrick hall wrote:
> Hi,
>
> I'd like to push all sequences of capitalized words
> onto an array.
>
> So, given this paragraph (which I just snagged off AP)
>
> Indian Prime Minister Atal Bihari Vajpayee said
> Wednesday that India would consider jointly monitoring
> the disputed Kashmir border
Sorry, but should have been split on : as stated by drieux.
Wags ;)
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
Sent: Tuesday, June 04, 2002 15:13
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: Parsing a path environment...
split
Zachary Buckholz wrote:
> Is there any function to tell if a number is even or odd?
> I am looking for an easy way to loop through a list and
> output table cell bgcolor based on even / odd.
>
> if its an even numbered row make it red if its odd make
> it blue.
$_ % 2 ? print "blue\n" : print "r
Hi,
I'd like to push all sequences of capitalized words
onto an array.
So, given this paragraph (which I just snagged off AP)
Indian Prime Minister Atal Bihari Vajpayee said
Wednesday that India would consider jointly monitoring
the disputed Kashmir border with its longtime rival
Pakistan.
> Is there any function to tell if a number is even or odd?
> I am looking for an easy way to loop through a list and
> output table cell bgcolor based on even / odd.
>
> if its an even numbered row make it red if its odd make
> it blue.
>
> I have done it in the past by turning a switch on or o
Is there any function to tell if a number is even or odd?
I am looking for an easy way to loop through a list and
output table cell bgcolor based on even / odd.
if its an even numbered row make it red if its odd make
it blue.
I have done it in the past by turning a switch on or off
but I think t
Greetings...
I find the easiest way to talk to mySQL (and get a response!) is via
DBI... I'm guessing it's perdoc DBI, but I may be wrong... :)
If you need any help, I do this sort of dirty work on a daily basis...
---
Jason H. Frisvold
Senior ATM Engineer
Engineering
1 - 100 of 101 matches
Mail list logo
