I know there has to be an easy Perl way to do this. Our HR
dept. scans in thousands of documents and has them up on a
intranet site with thumbnail views. Then another department
clicks on the thumbnail to get the large version of that
doc to save to their desktop. How can I use Perl to enter
in the
Does anyone have a simple routine or a way that I can
format my seconds. Say I have:
$seconds = '3600';
I want the output to say "1 hour"
$seconds = '5567';
I want the output to say "1 hour 54 minutes and 64 seconds"
Something like that that will break down the amount of
days, hours, minutes, an
I'm not sure why this is not working. I have a small script
that I enter the username and password via the command
prompt and it writes a dat file with the encrypted data.
This works great.
In my snippet below I read in the dat file, decript the
username and password "It does work fine" and put it
I have a simple script that works great except I want to
get an error that I pipe to STDOUT. The below will print to
the command prompt when a directory is not found:
Can't stat //comp/D1$/EliteXP: No such file or directory
How can I get my own error to print out. Ive tried
find (\&files, "//$co
I'm messing around with Mason and trying to get it to work
on Windoze, but seems not quite right. Has anyone had
success running this on w32? I set up my virtual root, and
the proper mappings to a .mason extension "just for
testing" and it will parse my html, but anything else won't
work. My exampl
My script below works fine, but I need to grab the file
version also.
Thank you
Allan
#!/Perl
use File::Find;
my $ByteCount=0;
find(\&files, "//COMPNAME/c\$/Program Files/Common
Files/Microsoft Shared/Office10/mso.dll");
print "Files are using $ByteCount bytes\n";
print "I NEED THE VERSION";
This is probably a simple question, but i'm asking for some
help as to the best way to
accomplish this. My script reads data from my database and
one of the columns is the user id.
This script is run once every hour by a cron job. I want to
grab all the user id's each hour and
keep a count going.
I need to get a date and time format into 3 different
variables:
Date format: 2004-09-09 # $date
Time format: 9:00 or 15:00, etc # $time_now
and the time 1 hour ago. So it it's 4 in the afternoon. I
need.
Time 2 format: 15:00 # $time_hour_ago
Any help greatly appreciated.
Allan
_
I'm reading through the CGI.pm docs right now and have a
question. I have an html file that has over 80 params to
pass to my script. I can grab all the names by using:
@names = $query->param
This works great..
How can I get all the values this same way? All the values
are numeric, I just want t
The below gives a syntax error: # near "->param{"
my (@names, @array);
@names = $query->param;
foreach (@names)
{
push(@array, $query->param{"$_"});
}
print "@array \n";
On Thu, 5 Aug 2004 10:37:49 -0400
Peter Eisengrein <[EMAIL PROTECTED]> wrote:
> #untested
>
> @name
No this does not seem right.. I've tried using the below
but this still is not right?
my %seen;
while (($Year, $Data) = $sth->fetchrow_array) {
my $key = $Year;
print LIST "$top_template" unless $seen{$key}++;
print LIST "$Year - $Data";
print LIST "$bottom_template" unless $seen{$key}++;
}
I don't completely understand why we need to convert all
these. I have a solution though "I think". My below snippet
goes into a directory where all the .bat files and the
bat2exe.com utility is. How can I as I loop through all the
files automatically, and the utility to execute them ..
Something l
Actually I need to convert all .bat files to .exe files..
On Fri, 11 Jun 2004 14:29:28 -0400
[EMAIL PROTECTED] wrote:
> Are u trying to convert .bat to .cmd files, not .com
> files?
>
> - Original Message -
> From: Mike Jackson <[EMAIL PROTECTED]>
> Date: Friday, June 11, 2004 12:40 pm
I'm just trying to get the below to work properly. I'm
taking a credit card number, and incrypting it. Then
printing it out, then unincrypting it. I'm having problems
getting the latter to work. Any help greatly appreciated.
#!/Perl -w
use strict;
use Crypt::TripleDES;
my $des = new Crypt::T
I'm using.
while(($nums) = $sth->fetchrow_array) {
print $nums;
}
This will give me "01 02 03 04"
I want to push this into an array.
push @nums, $nums;
But I want the result of
@nums = qw(01 02 03 04);
The same as:
@nums = ('01', '02', '03', '04');
How do I get this? I have tried "and I k
I want to take the information from a guestbook and put it
into my database encrypted. Then be able to pull it out
again in readable form. How can I do this with perl.
Thanks in advance.
Allan
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To uns
They are using my to declair the variable $foo
More than likely where you see my you will see use strict;
when people say:
my $foo = "this";
what is the difference between that and:
$foo = "this";
Than
--
http://www.provide.net
___
Perl-Win32-Us
I have my Perl script set up to page through recordsets. 10 pages at a time.
My SQL call is something like this.
SELECT column1, column2 FROM table.
Now each time the next or prev button is pressed this SQL call is executed and
searches through the table to find where it left off at. This is a b
I had a couple of questions about installing a module without using ppm. Or I
should say when it's not available via ppm. I took time today to research this
and figured out how to do it. At least it works for me. So I thought I would
share it with the group. Im running Win2000, but would assume ;-
I downloaded the HTML::Pager module from cpan. I have a zip on my desktop. How
do I install it? I used to installing with ppm.
Thanks in adance.
--
http://www.provide.net
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.
Is there a repository where I can use ppm to get
HTML::Template
and
HTML::Pager
Thanks in advance. Allan
--
http://www.provide.net
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-user
21 matches
Mail list logo
