Thanks to everyone for the input.
It needs to parse a string for the file name and extension i.e.
(D:\temp\pic1.jpg and retrieve pic1.jpg). If there is no string to parse
then the string needs to be empty or null.
I just placed it in a subroutine:
sub GetFileName
{
my ($nm) = @_;
Charles Knell writes:
I need to parse some HTML files in order to tag specific strings with
formatting markup. Specifically, I have some Transact-SQL stored procedures
which I have transformed into HTML. In the procedures are variables identified
by a leading @ symbol. For example:
Norman Pearson writes:
Thanks to everyone for the input.
It needs to parse a string for the file name and extension i.e.
(D:\temp\pic1.jpg and retrieve pic1.jpg). If there is no string to parse
then the string needs to be empty or null.
I just placed it in a subroutine:
sub
Jan,
I was hoping we would hear an estimate from ActiveState
as to when the PPM version of the Tk module will be
updated. Nick Ing Simmons released the current version
800.023 to CPAN on 2001/05/15. The current version
available via PPM is 800.022 . As the recent email
from the ActivePerl
Using UserAgent you requested:
$req = HTTP::Request-new(GET = 'http://www.google.com');
while using RobotUA you requested:
$req = HTTP::Request-new(GET =
'http://laptop.radnor/dissertation/index.html');
So first off, the two URL's differ. But more importantly the
second URL looks malformed
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
So am I to understand that going downward from the top of the e-mail
(lets say its in a @list) that the first line that is
full of white space will be seperating the header from the message? I
need to parse the message away from the header and get
Hey everyone,
Anyone know what the function(s) are to get date and time from a Win32
install of ActivePerl? My unix code seems too be breaking on...
$strStartTime = `date +%m-%d-%Y %H:%M:%S`;
Thx in advance...
Adym Lincoln
Edgewater Technology, Inc.
Phone: (603) 644-2445, 7261
Fax: (603)
On Thu, 31 Jan 2002 11:56:55 -0700, Arms, Mike [EMAIL PROTECTED] wrote:
Hi Mike,
I was hoping we would hear an estimate from ActiveState
as to when the PPM version of the Tk module will be
updated. Nick Ing Simmons released the current version
800.023 to CPAN on 2001/05/15. The current version
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
localtime(time);
This is an internal perl function. Read all about it with:
perldoc -f localtime
-- Matt
To: [EMAIL PROTECTED]
cc: (bcc: Matt B. Grimaldi)
Date:01/31/2002 11:38 AM
From: [EMAIL
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
here is the readme, the only thing not finished is the install part. i
have a grate amount of the script already done (of course the
script(s) are not finished so things may be changed). Any
feedback/comments is welcome.
NAME
Mail Group - a perl
To get the current time under Perl, you'd do:
$time = time;
This is an integer (number of seconds since the Win32 time epoch).
Then to do it yourself you can do:
@time = localtime $time;
$timedate = sprintf '%04d-%02d-%02d %02d:%02d:%02d', $time[5]+1900,
$time[4]+1, @time[3,2,1,0];
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
This will login to a pop account, then download a message. You need to
give it the message number.. login() will return the number of message
in your inbox.
use Net::POP3;
$pop = Net::POP3-new('pop.mail.yahoo.com');
$numofmsgs =
From: Hudson Clark [EMAIL PROTECTED]
So am I to understand that going downward from the top of the e-mail
(lets say its in a @list) that the first line that is full of white
space will be seperating the header from the message?
No. The first line thats EMPTY separates the
[EMAIL PROTECTED] wrote:
Hey everyone,
Anyone know what the function(s) are to get date and time from a Win32
install of ActivePerl? My unix code seems too be breaking on...
$strStartTime = `date +%m-%d-%Y %H:%M:%S`;
use strict;
use POSIX;
# default time formats
print scalar
Hi there,
I rewrite a script from Windows NT shell to Perl. The script transfers some
files and send an command to an AS400 ftp server. The command looks like
this: quote rcmd call pgm(ss0mod99/A00099X) parm('myfile.txt').
That's exactly what you would write on the command line to send a
What's wrong with a system call?
system quote rcmd call pgm(ss0mod99/A00099X)
parm('myfile.txt');
should do the trick, unless you need to capture the
output, in which case use backticks:
my @results = `quote rcmd call pgm(ss0mod99/A00099X)
parm('myfile.txt')`;
--- Wening Andreas [EMAIL
16 matches
Mail list logo