--- David T-G [EMAIL PROTECTED]
wrote:
...
% Programming Perl?) says that comment, when
used as
% a translator keyword following =for, is by
Whoa! You found that in there?? Do you have 3e or
2e? I couldn't find
any POD commands in my 2e (Covers Perl5!) copy,
which is why I kept
I got this from a Perl list at Builder.com, I thought it would be interesting to
share, something folks may want to include it on their web sites:
Retrieve weather data with Geo::WeatherNOAA
Perl's WeatherNOAA module gives you easy access to current weather information and
short-term
Hi everybody,
I don't know to solve this CGI problem:
My CGI script run on the one server1 and I want get the result from another
server2 like this:
#!/usr/local/bin/perl -w
$delay = 10;
$date = /bin/date;
$stuff=rsh server2 -l user /bin/uname -X;
print Refresh: , $delay, \n;
print
Hi Martin,
This is because you didn't use the back-tick's :
$stuff=`rsh server2 -l user /bin/uname -X`;
(Don't mix them up with the ' );
This will actualy execute the command, currently you only set a var.
Also system() and exec() could help you out.
Regs David
Hi everybody,
I don't
It worked! I had to correct some syntax problems I had but after that I got it
rolling. Thank you very much! I'll try suggestions next time before I just assume
that they won't work.
I'm still confused by it but I'll study it maybe understand why it works. LOL
On Wed, 12 June 2002, David
You might want to think about crypting those passwords. Plain text still
leaves the information somewhat vulnerable, especially if you have them in a
flat text file that is being written to in a directory chmod'd 777. Two
suggestions:
- Check out Lincoln Stein's Crypt::CBC
Perl programming is like the Breakfast Bar at Shoneys! Take what you want and leave
the rest.
Ask questions, ask questions, ask questions.
-Original Message-
From: Janek Schleicher[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Wed Jun 12 01:42:23 PDT 2002
Subject: Re: form display
Hello,
I was wondering if anyone knew the best way to upload a file and then
populate the text area with the text file you just selected. Is there any
way to do that with perl and cgi instead of having to use javascript?
Or if that is not possible in perl and cgi is there a way to
I have been working on a simple mail script using Net::SMTP; and the script works
fine...but I was wondering, we had some coldfusion mail scripts, that were written by
an e-commerce company, stop working... then i was going over my code and i realized
that I never used $smtp-quit; DUN dun dun
--- Greg D. [EMAIL PROTECTED] wrote:
Hello,
I was wondering if anyone knew the best way to upload a file and then
populate the text area with the text file you just selected. Is there any
way to do that with perl and cgi instead of having to use javascript?
Or if that is not
I am looking for web sites teaching differences or comparison of Shell and Perl. Does
anybody know any good web sites for that?
Amy
Amy --
First of all, you might get a better response to this on the beginners
list, since it's not really a CGI matter. That aside, though, ...
...and then Amy Kim said...
%
% I am looking for web sites teaching differences or comparison of Shell and Perl.
Does anybody know any good web
using the stat function, say I was using $stat[9],
which displays the time of the file, how would I make
it just display the date. Month-DayofMonth-Year
=
__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
-Original Message-
From: LinkS On WeB [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 13, 2002 4:54 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Perl Help
using the stat function, say I was using $stat[9],
which displays the time
Links --
What a funny name you have...
...and then LinkS On WeB said...
%
% using the stat function, say I was using $stat[9],
% which displays the time of the file, how would I make
% it just display the date. Month-DayofMonth-Year
Take the seconds that come out of stat and feed them to
Spider Man wrote:
I am writing a web CGI form for intranet network use. Everything is NT
based and I need some secure verification. I can grab the information of
what machine has been used to submit the form. However, is there any way I
can find out the username used to log into the
I am a beginner but I have some comments:
1. You should keep the passwords crypted on the file. It is simple to crypt
them
2. You can use foreach(...) but if you will have a big file, it will eat
too much memory.
It would be even more simple to use while(FILE)
3. Is the user allowed to choose
Troy May wrote at Thu, 13 Jun 2002 04:51:34 +0200:
Hello,
I'm trying to do a news feed type of script from an admin page. I need to open up a
page and find
the line that starts with !--news feed-- and insert $html right after that.
I'm drawing a
blank on how to search for that line.
Greetz,
Any ideas if there is a mod out there that I can use to set Windows 2K DNS
settings or is there any other way that I can set this?
I have been battling with this for a while and have not been able to find a
workable solution from MS Technet. The only way that I could find entails
using
on Thu, 13 Jun 2002 00:20:25 GMT, [EMAIL PROTECTED] (Rob) wrote:
I need to write to an existing excel file, which is not supported
by any existing module.
Did you check out Win32::OLE?
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
You should be able to do this through Windows Management Instrumentation
(WMI) which is a service that you will need to start on 2K and a
download for NT (http://www.microsoft.com/scripting/ I think).
This opens up an object oriented interface to doing just about anything
you want to Windows. I
Does anyone have experience of using Perl to control any Novell products
such as Netware, eDirectory (NDS) etc.
I don't have a specific requirement at present but we do a lot of
Novell stuff and I am interested to know what can be/has been done.
Apologies if this question is a bit general but I
From: W. Huang [EMAIL PROTECTED]
I have a refence to a hash, which is $hashref. I want to print out the
name of the hash ( which is %hash ) from $hashref, but don't know
how. Could you please help? thanks!
#-
%hash= {
apple = red,
bana = yellow,
};
$hashref =\%hash;
print
From: Rob [EMAIL PROTECTED]
Does anyone have any advice on how to write to an EXISTING MS Excel
file? The goal is to have a script update values in an excel file.
Thanks,
Rob
use Win32::OLE;
$excel = new Win32::OLE 'Excel.Application', 'quit()';
#$excel-{Visible} = 1;
Dear all,
i have a simple and silly question really..I
downloaded this from the web, tried it, checked
several times to ensure that my file location was
correct and still had problemsthe error message is
very obvious but I've checked file location SEVERAL
times...please help...oh yeah, I do
Do it this way
if( open(IN,$file)) {
local($/)=undef;
$filestr = IN;
}
close IN;
$SEARCH = '!--news feed--';
$filestr=~s/$SEARCH/$SEARCH $HTML/;
open(OUT,$file) || die $!;
print OUT $filestr;
close OUT;
Troy May wrote:
Hello,
I'm trying to do a news feed type of script from an
perl EXCEL app/Win32::OLEYou should have your pathSeparatorChar as \\ and not /.
Since you are using Microsoft's Excel Engine, the Excel APIs are very strict about the
path syntax and therefore, Perl's separatorChar of / (forward slash) will not work!
Cheers,
Rex
- Original Message -
On Wed, 2002-06-12 at 23:30, W. Huang wrote:
Hi,
I have a refence to a hash, which is $hashref. I want to print out the
name of the hash ( which is %hash ) from $hashref, but don't know how.
Could you please help? thanks!
#-
%hash= {
apple = red,
bana = yellow,
};
I tried that but unfortunately does not seem to have an effect on it. If you
look further down the structure under interfaces that's where i should be
setting the DNS server but unfortunately that will not be the same from
computer to computer and I have not been able to find a way to determine
Some asking around on the hlds_linux mailing list produced this:
http://kkrcon.sourceforge.net
Its very cool :)
Ron
-Original Message-
From: Joey Tesmer [mailto:[EMAIL PROTECTED]]
Sent: Saturday, June 08, 2002 5:08 PM
To: [EMAIL PROTECTED]
Subject: Changing a map on an HL server
Hi,
I have recuperated a module from the web and I interfaced
with it but STDOUT is closed .
If I do a : print STDOUT hello\n in my script, nothing appeared .
I don't know where STDOUT is closed and how to re-open it ?
If someone have an idea... ?
Thanks in advance.
Franck.
--
To
I want to convert a bunch of strings to regexs but I want all special
characters to be interpreted as themselves literally.
so . will be \. and * will \*.
so what do I need to change here:
my @idl_object_ext = map { qr/$_/ }
qw( _g.h s_g.cc c_g.cc );
Delivery Queue
Think you need to use \Q$string\E
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 13, 2002 11:05 AM
To: Beginners (E-mail)
Subject: literal to regex
I want to convert a bunch of strings to regexs but I want all special
characters to be
From: Nikola Janceski [EMAIL PROTECTED]
I want to convert a bunch of strings to regexs but I want all special
characters to be interpreted as themselves literally. so . will be \.
and * will \*.
so what do I need to change here:
my @idl_object_ext = map { qr/$_/ }
qw( _g.h s_g.cc
This solution seems to kill anything, here's a snippet of the log. As you can see,
it's hitting things low idle times. (I of course commented out the kill line)
mmorgan
killing process idPID
80350
on pts/0 because minutes equal 1
CLanko
killing process idPID
109034
on pts/1 because
Hmm. Im in training all week, and I feel so powerless without my tools. If
I remember correctly, then what you need to do is find the W2k key where the
NICs are enumerated and retrieve a list of GUIDs, then head back to the key
below and use the information you just got to find and change the
Dear Sir,
Thanks again. could you please help me do something
very basic again as you saved me before. I'm trying
to retrieve a certain row, column, for example A1.
instead of traversing each row and column I want to
have control over specific cells and print out a
specific cell. Do you know
All,
I want to format the output of my database query.
Current code
while (@row =$sth-fetchrow() ) {
print join(',',@row);
}
Results
1.38, .0396,.0076
Desired Results
1.38, 0.0396, 0.0076
Here's what I've tried.. but none of these formats appear
$row[0] = sprintf(%04d,$row[2]); ##
Anthony Akens wrote:
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
John W. Krahn wrote:
#!/usr/bin/perl -w
use strict;
my $results = '/home/danb/killemresults';
open RES, '', $results or die Cannot open $results: $!;
print \n . localtime() . \nStarting\n;
for my
I want to format the output of my database query.
Current code
while (@row =$sth-fetchrow() ) {
print join(',',@row);
}
Results
1.38, .0396,.0076
Desired Results
1.38, 0.0396, 0.0076
Frank,
It's tough for me to be sure exactly what you are wanting for formatting, so I would
On Jun 13, Frank Newland said:
Results
1.38, .0396,.0076
Desired Results
1.38, 0.0396, 0.0076
$row[0] = sprintf(%04d,$row[2]); ## results in == 0.
$row[1] = sprintf(%0d.%04d,$row[4]); ## results in ==0.
%d is for INTEGERS. You have floating points, so use %f.
--
Jeff japhy
From: Mike [EMAIL PROTECTED]
How can I scan a text file for a key word then display it down to a
second keyword. I know in VB the command is somthing like instr()
If you want a direct counterpart of the VB's inStr() then it's
index()
perldoc -f index
(This is supposed to be run.
Hi,
Is there a way to:
Launch a win32 app
Send keyboard commands to it
wait for it to finish
close it
from perl?
I'm making a CDRW every day for testing and I am tired of
running my perl based build script
starting Easy CD Creator
start
I am trying to update an Access database table field with a increment
number. I cant seem to place the update piece in the right place.
Is this the right path to take?
Snip
#!/usr/bin/perl
use Win32::ODBC;
$DSN = KIDSN;
$Dir = E:/kimcon/conv/;
$DBase = Ki720.mdb;
$Driver = Microsoft Access
From: learn perl [EMAIL PROTECTED]
Hi folks, need some help in accessing a ODBC database (SQL server)
using DBI via the nextwork.
usually, if the database is on local machine, I just use the
datasource $dbh=DBI-connect(DBI:ODBC:databasename,$username,
$password, %attr);
but how do I
I would also be interested in seeing what others have come up with.
Bill Akins, CNE
Sr. OSA
Emory Healthcare
(404) 712-2879 - Office
12674 - PIC
[EMAIL PROTECTED]
Nigel Peck [EMAIL PROTECTED] 06/13/02 04:03AM
Does anyone have experience of using Perl to control any Novell
products
such as
Thanks, that's what I thought of doing. But is there a way to connect to
the remote database (MS SQL server) w/o going thru DSN?
Thanks
Eric
On Thu, 13 Jun 2002, Jenda Krynicky wrote:
From: learn perl [EMAIL PROTECTED]
Hi folks, need some help in accessing a ODBC database (SQL server)
Frank Newland wrote:
I want to format the output of my database query.
Current code
while (@row =$sth-fetchrow() ) {
print join(',',@row);
}
Results
1.38, .0396,.0076
Desired Results
1.38, 0.0396, 0.0076
$ perl -le'print join , , map { sprintf %.4f, $_ } ( 1.38, .0396, .0076
From: learn perl [EMAIL PROTECTED]
Thanks, that's what I thought of doing. But is there a way to connect
to the remote database (MS SQL server) w/o going thru DSN?
$db = DBI-connect( 'DBI:ODBC:Driver=SQL Server;
Server=The_name_or_IP_of_Server;
Hi Jenda,
Thanks for your info~ it wasn't on the book any where? =)
as for DSN lookup I have my own code to search for available drivers
^^
Eric
#begin code
#!d:\perl\bin\perl.exe -w
#This tool is used to check for connection strings to the
Well that doesnt give me what I want. I want to search a text file for a
Key word then display the contents to a second keyword.
For example take the above paragraph and display just ' want to search a
text file for a Key word ' thats it.
Thanks
Mike
Jenda Krynicky [EMAIL PROTECTED] wrote
From: Michael Pratt [EMAIL PROTECTED]
Well that doesnt give me what I want. I want to search a text file
for a Key word then display the contents to a second keyword.
For example take the above paragraph and display just ' want to search
a text file for a Key word ' thats it.
I assumed
Hallo!
I'm a novice Perl programmer. I want to make a subdirectory in the
path: /data/home/collette/exponat. My code looks like this:
$invnummer = $FORM{'invnummer'};
$path = /data/home/collette/exponat;
chdir(path);
if ($invnummer ne ) {
mkdir($invnummer, 0755) || die (Cannot mkdir $invnummer
[EMAIL PROTECTED] wrote:
Hallo!
Hello,
I'm a novice Perl programmer. I want to make a subdirectory in the
path: /data/home/collette/exponat. My code looks like this:
$invnummer = $FORM{'invnummer'};
$path = /data/home/collette/exponat;
chdir(path);
You are missing the
Franck Fasano [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hi,
I have recuperated a module from the web and I interfaced
with it but STDOUT is closed .
If I do a : print STDOUT hello\n in my script, nothing appeared .
I don't know where STDOUT is closed
Janek Schleicher [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
use strict; use warnings; wasn't made only to make the Perl Community
luckier.
It can help to avoid typical mistakes like
(a) mispelling of a variable
(b) using of an undefined variable
Todd Wade wrote:
Franck Fasano [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I have recuperated a module from the web and I interfaced
with it but STDOUT is closed .
If I do a : print STDOUT hello\n in my script, nothing appeared .
I don't know
Look for the Win32::SetupSup module. I think it has the functions you need.
-Original Message-
From: Reed Lawson
To: [EMAIL PROTECTED]
Sent: 6/13/02 11:17 AM
Subject: scripting windoze
Hi,
Is there a way to:
Launch a win32 app
Send keyboard commands to it
David T-G [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hmmm... Well, I'll grant you that, but what about the example above? It
would only be undef for the first N lines that are short, and once it
gets loaded then it will get reset instead. It seems more
Thank you, that worked! :)
By the way, I'm thinking of a new thing that I want to do. How would I
alter this to open another page the same way, but replace the html code
BETWEEN two !--news feed-- with the same $html? I could rename the
second !--news feed-- if that would be easier. But I'm
my $string=someHTML;
my @split=split(/(!--news feed--)/,$string);
my $newstring=@split[0,1].$replacement.@split[3,4];
or
my $string=someHTML;
$string=~s/(.*?!--news feed--).*?(!--news feed--.*)/$1$replacement$2/ms;
Not sure if the 'm' modifier is needed on the substitution...
Anyway, these
Thank you Shawn! That worked too!
You guys are great! :)
Troy
-Original Message-
From: Shawn [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 13, 2002 9:19 PM
To: Troy May; [EMAIL PROTECTED]
Subject: Re: Searching for a specific spot on a page
my $string=someHTML;
my
62 matches
Mail list logo